;;;; Bindings over res.c, named the way raylib names its pairs, which is what
;;;; makes a dev build count them.

(defstruct Thing [id i32  flag u8  w f32  data (Ptr u8)])
(defstruct Tex [id u32  width i32])
(defstruct Mesh [n i32  v (Ptr f32)])
(defstruct Model [count i32  meshes (Ptr Mesh)])

(declare-c load-thing [id i32] Thing "LoadThing")
(declare-c unload-thing [t Thing] "UnloadThing")
(declare-c thing-grow [t (Ptr Thing)] "ThingGrow")
(declare-c get-default-thing [] Thing "GetDefaultThing")
(declare-c get-clipboard-image [] Thing "GetClipboardImage")
(declare-c load-tex [width i32] Tex "LoadTex")
(declare-c unload-tex [t Tex] "UnloadTex")
(declare-c gen-mesh-thing [] Mesh "GenMeshThing")
(declare-c unload-mesh [m Mesh] "UnloadMesh")
(declare-c load-model-from-mesh [m Mesh] Model "LoadModelFromMesh")
(declare-c unload-model [o Model] "UnloadModel")
(declare-c load-bytes [n i32] (Ptr u8) "LoadBytes")
(declare-c unload-bytes [p (Ptr u8)] "UnloadBytes")