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
10let set_state ?loops state = `Set_state (state, loops)
11let set_gap ~frame ~gap_ms = `Set_gap (frame, gap_ms)
12let set_current_frame frame = `Set_current frame