4 LINE (0, 0)-(319, 199), RND, BF
\r
7 st = (SIN(frm / 10) + 2) / 3
\r
8 x = SIN(frm / 30) * 50
\r
9 y = COS(frm / 42) * 30
\r
12 FOR a = .1 TO 10 STEP st
\r
13 CIRCLE (160 + x, 100 + y), 80, 10, , , a
\r
22 x2 = SIN(f2 + 6) * 80
\r
23 y2 = COS(f2 + 6) * 120
\r
24 LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c
\r
28 f = (a * 15 + frm) / 12
\r
29 f2 = (a * 15 + frm) / 7
\r
32 x2 = SIN(f2 + 6) * 80
\r
33 y2 = COS(f2 + 6) * 120
\r
34 CIRCLE (x1 + 80, y1 + 50), a / 2, 14
\r
35 PAINT (x1 + 80, y1 + 50), 14
\r
44 x2 = SIN(f2 + 6) * 80
\r
45 y2 = COS(f2 + 6) * 120
\r
46 LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c
\r
52 PSET (x, y), RND * 15
\r
58 IF frm > 100 THEN GOTO 2
\r
61 CHAIN "KHKDEMO4.BAS"
\r