(* Kitty Graphics Protocol - Compose *)

type t = {
  source_frame : int;
  dest_frame : int;
  width : int option;
  height : int option;
  source_x : int option;
  source_y : int option;
  dest_x : int option;
  dest_y : int option;
  composition : Kgp_types.composition option;
}

let make ~source_frame ~dest_frame ?width ?height ?source_x ?source_y ?dest_x
    ?dest_y ?composition () =
  {
    source_frame;
    dest_frame;
    width;
    height;
    source_x;
    source_y;
    dest_x;
    dest_y;
    composition;
  }