win = openwindow ("Start",-1,-1,1200,700)
setactivewindow (win)


backcolor (0,0,0,255)

cls()

x=0;y=0;f=0;x1=0;y1=0;Ang=0;r=500

   color (255,225,255,255)

for a=0,400000 do

    Ang = Ang + .0001

    if(Ang>7) then

        Ang = 0

    end

    f=f-math.pi * math.pi

    x=x + cos(f*f)

    y = y + sin( f*f )

    x1 = x + r + cos(Ang)*r/8 ; y1 = y + r + sin(Ang)*r/8

    x3 = r - cos(Ang)*r/8 - x

     color (a,x,y,a)

     dot( x1,y1 - 500 )

     dot( x3,y1 - 500 )

 end

color (255,255,0,255)
--textsize (2)

drawtext ("Press any key to exit ..",0,0)

sync()
key=inkey()

closewindow(win)
closeapplication()







 

 

Make a free website with Yola