Gradient #Linear bug with rotate
Code: Select all
Function Move()
Cls()
SetFillStyle(#FILLGRADIENT, #LINEAR, 0, 0, k, {colors={#GREEN,0.25,#RED,0.5,#BLUE,0.75,#YELLOW,1}})
BOX(#CENTER,#CENTER,300,100,#BLACK,{Rotate=k,AnchorX=0.5, AnchorY=0.5})
k=k+1
Flip()
EndFunction
SetInterval(1, Move, 1000/100)
EscapeQuit(True)
/* Boucle infinie */
Repeat
WaitEvent
Forever