Kitty Graphics Protocol in OCaml
anil.recoil.org
terminal
graphics
ocaml
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6type t =
7 [ `Set_state of Kgp_animation_state.t * int option
8 | `Set_gap of int * int
9 | `Set_current of int ]
10
11let set_state ?loops state = `Set_state (state, loops)
12let set_gap ~frame ~gap_ms = `Set_gap (frame, gap_ms)
13let set_current_frame frame = `Set_current frame