sig
  type vec2f = float * float
  type t = {
    p : CL_Quadf.vec2f;
    q : CL_Quadf.vec2f;
    r : CL_Quadf.vec2f;
    s : CL_Quadf.vec2f;
  }
end