Copper Star
Posted: Sat Aug 02, 2014 8:40 pm
Hi,
have a nice day.
have a nice day.
Code: Select all
SCREEN 640,480
d=40
c=10000
ys#=0.15
a#=0.0
While KeyDown(27)=0
Color 0,0,0
Cls
For x=-90 To 90
For y=-90 To 90
Color 255,200,200
Dot 300+Sin(a)*(x+y), 250+ys*(y-x)*c/(x*x+y*y+d)
Next y
Next x
a =a+10.0
If a >=360 Then a= -a
Text 265,16,"COPPER STAR"
DrawScreen
wend