My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(* Kitty Graphics Protocol - Compose *)
2
3type t = {
4 source_frame : int;
5 dest_frame : int;
6 width : int option;
7 height : int option;
8 source_x : int option;
9 source_y : int option;
10 dest_x : int option;
11 dest_y : int option;
12 composition : Kgp_types.composition option;
13}
14
15let make ~source_frame ~dest_frame ?width ?height ?source_x ?source_y ?dest_x
16 ?dest_y ?composition () =
17 {
18 source_frame;
19 dest_frame;
20 width;
21 height;
22 source_x;
23 source_y;
24 dest_x;
25 dest_y;
26 composition;
27 }