1 DECLARE SUB makeSurface ()
\r
2 DECLARE SUB animate ()
\r
3 DECLARE SUB makeDot (x!, y!)
\r
4 DECLARE SUB paintImage ()
\r
7 DIM SHARED imgh(0 TO 50, 0 TO 50)
\r
20 lx = SIN(frm / 100) * 20 + 25
\r
21 ly = SIN(frm / 71.32) * 20 + 25
\r
22 lx = lx + SIN(frm / 34) * 10
\r
23 ly = ly + SIN(frm / 45) * 10
\r
28 d = SQR((x - lx) ^ 2 + (y - ly) ^ 2)
\r
31 v = imgh(x - 1, y) - imgh(x, y)
\r
34 v = imgh(x, y - 1) - imgh(x, y)
\r
37 b = b + (bpx + bpy) / (d / 2)
\r
40 IF b > 15 THEN b = 15
\r
41 PSET (x + 150, y), 16 + b
\r
45 CIRCLE (lx + 150, ly), 2, 12
\r
57 dist = SQR(x1 * x1 + y1 * y1)
\r
62 IF imgx < 0 THEN imgx = 0
\r
63 IF imgy < 0 THEN imgy = 0
\r
64 IF imgx > 50 THEN imgx = 50
\r
65 IF imgy > 50 THEN imgy = 50
\r
66 imgh(imgx, imgy) = imgh(imgx, imgy) + p
\r
76 makeDot RND * 50, RND * 50
\r
79 FOR x = 0 TO 45 STEP 2
\r
80 makeDot x, x / 2 + 5
\r
83 FOR x = 5 TO 30 STEP 2
\r
84 makeDot x, -x / 1.2 + 30
\r