1 DECLARE SUB getfreq ()
\r
3 DECLARE FUNCTION gety! (t!)
\r
4 DIM SHARED freq(1 TO 100)
\r
5 DIM SHARED phase(1 TO 100)
\r
17 y1 = gety(frm + x / 4) * 20 + 150
\r
18 y2 = gety(frm + x / 4 + (x / 50)) * 20 + 150
\r
21 ' LINE (x + 1, 0)-(x + 1, 479), 12
\r
22 LINE (x, 0)-(x, 479), 0
\r
24 LINE (x - 1, oy1)-(x, y1), 1
\r
25 LINE (x - 1, oy2)-(x, y2), 2
\r
26 LINE (x - 1, oy3)-(x, y3), 15
\r
37 freq(a) = RND / 2 + 1
\r
41 phase(a) = RND * 100
\r
51 y = y + SIN(t * freq(a) + phase(a))
\r