1 files changed, 37 insertions, 0 deletions
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)