Add examples/experimental_sdl/sdl_spritesheet.claro from Claro v1.17.26 zip

2026-06-01 00:55:18 +02:00
parent 71e8f97018
commit 71ec771584
1 changed files with 36 additions and 0 deletions
@@ -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