My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Kitty Graphics Protocol - Animation *)
2
3type state = Kgp_types.animation_state
4
5type t =
6 [ `Set_state of state * int option
7 | `Set_gap of int * int
8 | `Set_current of int ]
9(** Animation control operations. *)
10
11val set_state : ?loops:int -> state -> t
12(** Set animation state.
13 @param loops Number of loops: 0 = ignored, 1 = infinite, n = n-1 loops *)
14
15val set_gap : frame:int -> gap_ms:int -> t
16(** Set the gap (delay) for a specific frame.
17 @param frame 1-based frame number
18 @param gap_ms Delay in milliseconds (negative = gapless) *)
19
20val set_current_frame : int -> t
21(** Make a specific frame (1-based) the current displayed frame. *)