Graphics 640,480
Repeat
o=320
p=240
For i#=0 To 360
f#=Sin(i)*128
s=Sgn(Cos(i))
For x#=0 To 8 Step .04
b#=(x^2)-64
a#=((8-x)^2)-64
For e=a To -a
c#=Rnd(e+f+(b*(b*0.01)))*8
SetColor 64-c,c,c
Plot o+e*s,p+b
Plot o+e*s,p-b
Next
Next
Flip
Next
Until KeyDown(1)
someone sent me this code (it used to be on one line as part of the 250 byte source challenge (dare you!) )
anyhow in windows escape quits
on my Ubuntu box it doesnt i tried KEY_ESCAPE too
Repeat
o=320
p=240
For i#=0 To 360
f#=Sin(i)*128
s=Sgn(Cos(i))
For x#=0 To 8 Step .04
b#=(x^2)-64
a#=((8-x)^2)-64
For e=a To -a
c#=Rnd(e+f+(b*(b*0.01)))*8
SetColor 64-c,c,c
Plot o+e*s,p+b
Plot o+e*s,p-b
Next
Next
Flip
Next
Until KeyDown(1)
someone sent me this code (it used to be on one line as part of the 250 byte source challenge (dare you!) )
anyhow in windows escape quits
on my Ubuntu box it doesnt i tried KEY_ESCAPE too