From faef2d81c224b715c5e429d04c59ba50fb772d9e Mon Sep 17 00:00:00 2001 From: thing1 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.zpy | 36 ---------------------- 1 file changed, 36 deletions(-) delete mode 100644 comp/lucas-standen-NEA/code2/examples/raylib_example.zpy (limited to 'comp/lucas-standen-NEA/code2/examples/raylib_example.zpy') diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example.zpy b/comp/lucas-standen-NEA/code2/examples/raylib_example.zpy deleted file mode 100644 index 7c6e599..0000000 --- a/comp/lucas-standen-NEA/code2/examples/raylib_example.zpy +++ /dev/null @@ -1,36 +0,0 @@ -(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) -- cgit v1.2.3