1 DECLARE SUB ga (x!, y!, s!)
\r
2 DIM SHARED colr ' this variable holds fractal color
\r
3 ' and because it is 'SHARED' it is accessible
\r
4 ' from within sub module.
\r
7 colr = 10 ' display single fractel
\r
15 FOR a = 1 TO 128 STEP 5 ' display fractal serie
\r
24 CHAIN "khkdemo5.bas"
\r
28 LINE (x - s, y - s)-(x + s, y + s), colr, B
\r
29 ga x - s, y - s, s / 2.3 ' each fractel sub element is 2.3 times smaller
\r
30 ga x + s, y - s, s / 2.3 ' than previous.
\r
31 ga x + s, y + s, s / 2.3
\r
32 ga x - s, y + s, s / 2.3
\r