Setvirtualresolution(640,480)
ResetTimer()
//Create test sprite cube
id=CreateSprite(0)
SetSpriteSize(id,25,25)
SetSpriteColor(id,0,255,0,10)
Do
For i=10 to 255
SetSpriteColorAlpha(id,i)
Sync()
Next i
If Timer()>15 Then Exit
Sync()
Loop
End
Setvirtualresolution(640,480) ResetTimer() //Create test sprite cube id=CreateSprite(0) SetSpriteSize(id,25,25) Do For i=10 to 255 SetSpriteColor(id,0,255,0,i) Sync() Next i If Timer()>15 Then Exit Sync() Loop End