' 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)
