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

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