(*---------------------------------------------------------------------------
   Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

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_composition.t 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;
  }

let source_frame t = t.source_frame
let dest_frame t = t.dest_frame
let width t = t.width
let height t = t.height
let source_x t = t.source_x
let source_y t = t.source_y
let dest_x t = t.dest_x
let dest_y t = t.dest_y
let composition t = t.composition