'  made with SDLBASIC by Rick3137
option qBasic

setdisplay(800,600,32,1)
autoback( -2)

  x = 400 : y = 300 : f = 0 : z = 0 :  x2 = 400
       for  z = 0 to 200000
          f = f - 3.14
         x  = x + cos( f * f )
   x2 = x2 - cos( f * f )
         y  =  y + sin( f * f )
         ink(rgb( x,255,f ))
         setpixel(x, y+ 200)
   setpixel(x2, y+ 200)
      next
screenswap
waitkey(32)













 

 
Make a Free Website with Yola.