Exemple : Rectangles rotatifs

'-------------------------------------------------
' Source code for sample: Rotating Rectangles
'-------------------------------------------------
DIM t as TEXT
DIM r1, r2 as RECTANGLE
DIM x as INTEGER: x = 20   ' Change this value for border size.

BGCOLOR #3714FF
r1 = RECT (0, 0)-(640, 640), #26A4FF
r2 = RECT (0, 0)-(640, 640), #32F4FF

TEXT "loading...", (_middlex, _middley)
ANIM r1, "rotate-right", 10000
SLEEP 1000
ANIM r2, "rotate-right", 10000
RECT (x, x)-(640-x, 640-x), #237BFF

t = TEXT "-Press Start-", (_middlex, _middley), "console2", 70, #FFFFFF
ANIM t, "rotate", -45, 45, 5000