04-05-2005, 01:58 AM
So... you want a nicely drawn sinus curve?
Edit: Like this?
[syntax="qbasic"]1 if t=0 then screen 13 else if t<64 then palette t,t*256
2 for x=0 to 160
3 for y=0 to sin(x*360/320/57.29)*75
4 pset (x,y+100),abs(y/75*63)
5 pset (x+160,-y+100),abs(y/75*63)
6 next
7 next
8 t=t+1
9 if t<64 then goto 1 else sleep[/syntax]
Edit: Like this?
[syntax="qbasic"]1 if t=0 then screen 13 else if t<64 then palette t,t*256
2 for x=0 to 160
3 for y=0 to sin(x*360/320/57.29)*75
4 pset (x,y+100),abs(y/75*63)
5 pset (x+160,-y+100),abs(y/75*63)
6 next
7 next
8 t=t+1
9 if t<64 then goto 1 else sleep[/syntax]
/post]