package wall

  1. Overview
  2. Docs
type quadbuf = {
  1. mutable x0 : float;
  2. mutable y0 : float;
  3. mutable x1 : float;
  4. mutable y1 : float;
  5. mutable u0 : float;
  6. mutable v0 : float;
  7. mutable u1 : float;
  8. mutable v1 : float;
}
type 'input t = {
  1. allocate : sx:float -> sy:float -> 'input -> (unit -> unit) option;
  2. render : Transform.t -> 'input -> quadbuf -> push:(unit -> unit) -> Texture.t;
}
val make : allocate:(sx:float -> sy:float -> 'input -> (unit -> unit) option) -> render:(Transform.t -> 'input -> quadbuf -> push:(unit -> unit) -> Texture.t) -> 'input t