x# = 30.0
y# = 40.0
z# = 0.01
angle# = 0.0
red = 0
green = 0
blue = 0

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpriteSize(1, 10, 10)

CreateSprite(2, 1)
SetSpriteSize(2, 5, 5)

CreateSprite(3, 1)
SetSpriteSize(3, 6, 6)

CreateSprite(4, 1)
SetSpriteSize(4, 7, 7)

Do
	
	x = x + cos(angle) / 2.0
	y = y + sin(angle) / 2.0
	z = z * 1.005
	angle = angle + 1.5
	red = 400 * x / 100
	green = 200 * y / 100
	blue = 100 * x + 50 / 100
	
	SetSpriteColor(1, red, green, blue, 255)
	SetSpriteColor(2, green, red, blue, 255)
	SetSpriteColor(3, blue, green, red, 255)
	SetSpriteColor(4, blue, red, green, 255)
	
	SetSpritePosition(1, x, y)
	SetSpriteAngle(1, angle)
	
    SetSpritePosition(2, 2 / (x/100), 50 * (y/100))
	SetSpriteAngle(2, angle)
	
	SetSpritePosition(3, x + 10, 25 * (y / 100))
	SetSpriteAngle(3, angle * 3)
	
	SetSpritePosition(4, x * 1.25, y * z)
	SetSpriteAngle(4, angle * z)
	
	Sync()
	
Loop