04-08-2005, 12:07 AM
I know these are levelbars and not wavebars, but they look pretty oldskool (especially number 1).
[edit] The delay for both of them is for a 3GHz machine, so it might not look right.
Peh, I know I can improve it (a lot) and probably fit it in 9 lines, but that flicker is part of the retro feel to it :rotfl: . Heres the second one (slightly different + no flicker):
[edit] The delay for both of them is for a 3GHz machine, so it might not look right.
Code:
10 SCREEN 13
20 DIM y(100)
30 CLS
40 FOR x = 1 TO 100
50 IF INT(RND * 2) + 1 = 1 THEN y(x) = y(x) - 1 ELSE y(x) = y(x) + 1
60 IF y(x) < 80 THEN y(x) = 80 ELSE IF y(x) > 100 THEN y(x) = 100
70 LINE (60 + x * 2, y(x))-(60 + x * 2, 100), 28
80 PSET (60 + x * 2, y(x) - 2), 24
90 NEXT x
100 FOR DEL = 1 TO 100000
110 NEXT DEL
120 GOTO 30
Peh, I know I can improve it (a lot) and probably fit it in 9 lines, but that flicker is part of the retro feel to it :rotfl: . Heres the second one (slightly different + no flicker):
Code:
10 SCREEN 13
20 DIM y(100)
30 FOR x = 1 TO 100
40 IF INT(RND * 2) + 1 = 1 THEN y(x) = y(x) - 1 ELSE y(x) = y(x) + 1
50 IF y(x) < 80 THEN y(x) = 80 ELSE IF y(x) > 100 THEN y(x) = 100
60 LINE (60 + x * 2, y(x))-(60 + x * 2, 100), 30
70 PSET (60 + x * 2, y(x) - 2), 22
80 NEXT x
90 FOR DEL = 1 TO 100000
100 NEXT DEL
110 GOTO 30