added render textures and some texture functionality

1 files changed, 29 insertions, 0 deletions

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)