From 71ec771584736ddb17d8da86b5b6f46f7f1ffeb6 Mon Sep 17 00:00:00 2001
From: RayPals <raypals@noreply.codeberg.org>
Date: Mon, 1 Jun 2026 00:55:18 +0200
Subject: [PATCH] Add examples/experimental_sdl/sdl_spritesheet.claro from
 Claro v1.17.26 zip

---
 .../experimental_sdl/sdl_spritesheet.claro    | 36 +++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 examples/experimental_sdl/sdl_spritesheet.claro

diff --git a/examples/experimental_sdl/sdl_spritesheet.claro b/examples/experimental_sdl/sdl_spritesheet.claro
new file mode 100644
index 0000000..64ad458
--- /dev/null
+++ b/examples/experimental_sdl/sdl_spritesheet.claro
@@ -0,0 +1,36 @@
+# SDL 1.2 demo: sprite-sheet animation using BLITCLIP
+# Provide sheet.bmp (e.g., 4 frames in a row, each 32x32)
+
+SDL OPEN 640 480 "Claro SDL1.2 SpriteSheet"
+SDL LOADBMP "sheet.bmp" AS sheet
+
+SET x TO 300
+SET y TO 220
+SET frame TO 0
+SET running TO YES
+
+FOR tick FROM 1 TO 1000000
+    SDL POLL
+    IF SDLEVENT = "QUIT"
+        SET running TO NO
+    ENDIF
+
+    # mouse values
+    SDL MOUSE AS mx my mb
+
+    # animate
+    SET frame TO frame + 1
+    IF frame > 3
+        SET frame TO 0
+    ENDIF
+    SET sx TO (frame * 32)
+
+    SDL CLEAR 20 20 30
+    SDL BLITCLIP sheet SRC sx 0 32 32 AT x y
+    SDL PRESENT
+    SDL DELAY 120
+
+    IF running = NO
+        RAISE "quit"
+    ENDIF
+DONE