sig
  type t = CL_Type.primitives_array
  val init : ?gc:CL_Type.graphic_context -> unit -> CL_PrimitivesArray.t
  external delete : CL_PrimitivesArray.t -> unit
    = "caml_CL_PrimitivesArray_delete"
  external set_attribute :
    CL_PrimitivesArray.t -> index:int -> v:CL_Vec3f.t -> unit
    = "caml_CL_PrimitivesArray_set_attribute"
end