Kitty Graphics Protocol in OCaml
terminal
graphics
ocaml
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6type t = [ `Alpha_blend | `Overwrite ]
7
8let to_int : t -> int = function `Alpha_blend -> 0 | `Overwrite -> 1