22 lines
971 B
Plaintext
22 lines
971 B
Plaintext
;;;; 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")
|