04-06-2005, 03:50 AM
Quote:My small entry:
[syntax="QBASIC"]
1 amp! = 50.0
2 while inkey$ = ""
3 if t! = 0.0 then screen 13 else wait &H3DA, 8
4 line (319, 99)-(0, 99), 8
5 for x! = 0.0 to 319.0 step 1.0
6 if x! < t! and x! > t! - 15.0 then line (int(x!) - 1, 99 + int(amp! * sin(2 * 3.141592654 * ((x! - 1) / (334.0 / 3.0)))))-(int(x!), 99 + int(amp! * sin(2 * 3.141592654 * (x! / (334.0 / 3.0))))), 31 - int(t! - x!)
7 next x!
8 if t! < 334.0 then t! = t! + 1.0 else t! = 1.0
9 wend
[/syntax]
I can't test this in QB, but it should theoretically work. [EDIT: written/tested in FreeBASIC].
-shiftLynx
^ crashes when i run it in fb xO