From 4aefdc362813c5fd5dca4f677088d374058fa4b9 Mon Sep 17 00:00:00 2001
From: gonzo <gonzo@toniatuh.com>
Date: Mon, 18 Nov 2024 21:30:06 +0100
Subject: added render textures and some texture functionality

---
 texture.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 texture.scm

(limited to 'texture.scm')

diff --git a/texture.scm b/texture.scm
new file mode 100644
index 0000000..0de9ac3
--- /dev/null
+++ b/texture.scm
@@ -0,0 +1,29 @@
+;;; -------------------------
+;;; Texture drawing functions
+;;; -------------------------
+
+;; Draw a Texture2D
+;; void DrawTexture(Texture2D texture, int posX, int posY, Color tint)
+(define draw-texture
+  (c-lambda (texture int int color) void "DrawTexture"))
+
+;; Draw a Texture2D with position defined as Vector2
+;; void DrawTextureV(Texture2D texture, Vector2 position, Color tint)
+(define draw-texture-V
+  (c-lambda (texture vec2 color) void "DrawTextureV"))
+
+;; Draw a Texture2D with extended parameters
+;; void DrawTextureEx(Texture2D texture, Vector2 position, float rotation, float scale, Color tint)
+
+;; Draw a part of a texture defined by a rectangle
+;; void DrawTextureRec(Texture2D texture, Rectangle source, Vector2 position, Color tint)
+(define draw-texture-rec
+  (c-lambda (texture rec vec2 color) void "DrawTextureRec"))
+
+;; Draw a part of a texture defined by a rectangle with 'pro' parameters
+;; void DrawTexturePro(Texture2D texture, Rectangle source, Rectangle dest, Vector2 origin, float rotation, Color tint)
+(define draw-texture-pro
+  (c-lambda (texture rec rec vec2 float color) void "DrawTexturePro"))
+
+;; Draws a texture (or part of it) that stretches or shrinks nicely
+;; void DrawTextureNPatch(Texture2D texture, NPatchInfo nPatchInfo, Rectangle dest, Vector2 origin, float rotation, Color tint)
-- 
cgit v1.2.3