From faef2d81c224b715c5e429d04c59ba50fb772d9e Mon Sep 17 00:00:00 2001
From: thing1 <thing1@seacrossedlovers.xyz>
Date: Tue, 15 Oct 2024 10:19:30 +0100
Subject: added a stupid amount of work to zpy, and started the document work
 in latex rather than groff

---
 .../code2/examples/raylib_example/dvd.png          | Bin 0 -> 1247 bytes
 .../code2/examples/raylib_example/main             | Bin 0 -> 1077360 bytes
 .../code2/examples/raylib_example/main.zpy         |  37 +++++++++++++++++++++
 .../code2/examples/raylib_example/zpybuild.sh      |   4 +++
 4 files changed, 41 insertions(+)
 create mode 100644 comp/lucas-standen-NEA/code2/examples/raylib_example/dvd.png
 create mode 100755 comp/lucas-standen-NEA/code2/examples/raylib_example/main
 create mode 100644 comp/lucas-standen-NEA/code2/examples/raylib_example/main.zpy
 create mode 100644 comp/lucas-standen-NEA/code2/examples/raylib_example/zpybuild.sh

(limited to 'comp/lucas-standen-NEA/code2/examples/raylib_example')

diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example/dvd.png b/comp/lucas-standen-NEA/code2/examples/raylib_example/dvd.png
new file mode 100644
index 0000000..8e219f7
Binary files /dev/null and b/comp/lucas-standen-NEA/code2/examples/raylib_example/dvd.png differ
diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example/main b/comp/lucas-standen-NEA/code2/examples/raylib_example/main
new file mode 100755
index 0000000..b124ebf
Binary files /dev/null and b/comp/lucas-standen-NEA/code2/examples/raylib_example/main differ
diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example/main.zpy b/comp/lucas-standen-NEA/code2/examples/raylib_example/main.zpy
new file mode 100644
index 0000000..cd6a382
--- /dev/null
+++ b/comp/lucas-standen-NEA/code2/examples/raylib_example/main.zpy
@@ -0,0 +1,37 @@
+//# this function is my main loop
+(defun main int)
+	(InitWindow 800 800 "test test")
+	(SetTargetFPS 60)
+
+	(let img:Image (LoadImage "dvd.png"))
+	(let tex:Texture (LoadTextureFromImage img))
+	(UnloadImage img)
+
+	(let x:int (randint 4 9))
+	(let y:int (randint 4 9))
+	(let xd:int (randint 3 5))
+	(let yd:int (randint 3 5))
+
+	(for i:int 0 (= (WindowShouldClose) 0) 0)
+		(BeginDrawing)
+		(ClearBackground RAYWHITE)
+		(DrawTexture tex x y WHITE)
+		(EndDrawing)
+
+		(set x (+ x xd))
+		(set y (+ y yd))
+
+		(if (> x 750))
+			(set xd -xd)
+		(elif (< x 0))
+			(set xd -xd)
+		(endif)
+		(if (> y 750))
+			(set yd -yd)
+		(elif (< y 0))
+			(set yd -yd)
+		(endif)
+
+	(endfor)
+	(CloseWindow)
+(endfun)
diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example/zpybuild.sh b/comp/lucas-standen-NEA/code2/examples/raylib_example/zpybuild.sh
new file mode 100644
index 0000000..3916f3b
--- /dev/null
+++ b/comp/lucas-standen-NEA/code2/examples/raylib_example/zpybuild.sh
@@ -0,0 +1,4 @@
+#!/bin/sh
+zpy ./main.zpy -c -o main.c -i raylib.h
+cc main.c /usr/local/share/zpylib/zpylib.o -o main -I/usr/local/share/zpylib/include -Wno-implicit-function-declaration -lraylib -lm
+rm -rf main.c
-- 
cgit v1.2.3