2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB mo (x!, y!, an!, s!, w!)
\r
11 DIM SHARED sh1, sh2, sv1, sv2, hp, vp
\r
28 mo 320, 240, pi - .9, 50, 0
\r
33 SUB mo (x, y, an, s, w)
\r
35 IF s < .2 THEN GOTO 1
\r
37 IF depth / 2 = depth \ 2 THEN c = 15 ELSE c = 10
\r
43 x1 = SIN(an) * s * 2.5 + x
\r
44 y1 = COS(an) * s * 2.5 + y
\r
45 IF w = 3 THEN ns = s / sv2 ELSE ns = s / sv1
\r
46 mo x1, y1, an + vp, ns, 3
\r
50 x1 = SIN(an - pi / 2) * s * 2.5 + x
\r
51 y1 = COS(an - pi / 2) * s * 2.5 + y
\r
52 IF w = 4 THEN ns = s / sh2 ELSE ns = s / sh1
\r
53 mo x1, y1, an + hp, ns, 4
\r
57 x1 = SIN(an - pi) * s * 2.5 + x
\r
58 y1 = COS(an - pi) * s * 2.5 + y
\r
59 IF w = 1 THEN ns = s / sv2 ELSE ns = s / sv1
\r
60 mo x1, y1, an + vp, ns, 1
\r
64 x1 = SIN(an - pi * 1.5) * s * 2.5 + x
\r
65 y1 = COS(an - pi * 1.5) * s * 2.5 + y
\r
66 IF w = 2 THEN ns = s / sh2 ELSE ns = s / sh1
\r
67 mo x1, y1, an + hp, ns, 2
\r