37 lines
678 B
Plaintext
37 lines
678 B
Plaintext
# 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
|