Christmas Effect

[Peter]

Hello,
 

Code: [Select]

include "asm.inc"
window 640,480,1

float a,x=320,y=240,r=800,c

while key(27)=0
cls 0,0,0
for a=0 to 360 step 0.5
   color mod(a,128)+127,mod(a,128)+127,mod(a,128)+127
   lx = sin(rad(a+c))*r
   ly = cos(rad(a+c))*r
   Ellipse x,y,lx,ly
next
c +=.5
if c>=360 then c=-c
redraw
wait 10
wend
winExit


.

[Mike Lobanovsky]

This is cool too!