My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(* Kitty Graphics Protocol - Frame *)
2
3type t = {
4 x : int option;
5 y : int option;
6 base_frame : int option;
7 edit_frame : int option;
8 gap_ms : int option;
9 composition : Kgp_types.composition option;
10 background_color : int32 option;
11}
12
13let empty =
14 {
15 x = None;
16 y = None;
17 base_frame = None;
18 edit_frame = None;
19 gap_ms = None;
20 composition = None;
21 background_color = None;
22 }
23
24let make ?x ?y ?base_frame ?edit_frame ?gap_ms ?composition ?background_color
25 () =
26 { x; y; base_frame; edit_frame; gap_ms; composition; background_color }