From a049cc9c0a04ad25a5a04fca7e0ee25e98e85302 Mon Sep 17 00:00:00 2001 From: RayPals Date: Mon, 1 Jun 2026 00:55:19 +0200 Subject: [PATCH] Add examples/experimental_sdl/sdl_bounce.claro from Claro v1.17.26 zip --- examples/experimental_sdl/sdl_bounce.claro | 36 ++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 examples/experimental_sdl/sdl_bounce.claro diff --git a/examples/experimental_sdl/sdl_bounce.claro b/examples/experimental_sdl/sdl_bounce.claro new file mode 100644 index 0000000..b958f35 --- /dev/null +++ b/examples/experimental_sdl/sdl_bounce.claro @@ -0,0 +1,36 @@ +# SDL 1.2 demo: bouncing square +# Build Claro with -DCLARO_WITH_SDL12=1 and SDL 1.2 libs. + +SDL OPEN 640 480 "Claro SDL1.2 Demo" + +SET x TO 100 +SET y TO 100 +SET vx TO 3 +SET vy TO 2 + +SET running TO YES + +FOR frame FROM 1 TO 1000000 + SDL POLL + IF SDLEVENT = "QUIT" + SET running TO NO + ENDIF + IF running = NO + RAISE "quit" + ENDIF + + SET x TO x + vx + SET y TO y + vy + + IF (x < 0) OR (x > 600) + SET vx TO 0 - vx + ENDIF + IF (y < 0) OR (y > 440) + SET vy TO 0 - vy + ENDIF + + SDL CLEAR 20 20 30 + SDL RECT x y 40 40 200 220 255 + SDL PRESENT + SDL DELAY 16 +DONE