Kitty Graphics Protocol in OCaml
anil.recoil.org
terminal
graphics
ocaml
1type t = {
2 source_frame : int;
3 dest_frame : int;
4 width : int option;
5 height : int option;
6 source_x : int option;
7 source_y : int option;
8 dest_x : int option;
9 dest_y : int option;
10 composition : Kgp_composition.t option;
11}
12
13let make ~source_frame ~dest_frame ?width ?height ?source_x ?source_y ?dest_x
14 ?dest_y ?composition () =
15 {
16 source_frame;
17 dest_frame;
18 width;
19 height;
20 source_x;
21 source_y;
22 dest_x;
23 dest_y;
24 composition;
25 }
26
27let source_frame t = t.source_frame
28let dest_frame t = t.dest_frame
29let width t = t.width
30let height t = t.height
31let source_x t = t.source_x
32let source_y t = t.source_y
33let dest_x t = t.dest_x
34let dest_y t = t.dest_y
35let composition t = t.composition