' Fractal ' made by Svjatoslav Agejenko ' in 2003.12 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslav@svjatoslav.eu DECLARE SUB mo (x!, y!, an!, s!, w!) DIM SHARED depth DIM SHARED pi DIM SHARED sh1, sh2, sv1, sv2, hp, vp pi = 3.14128 SCREEN 12 sv1 = 5 sv2 = 2 vp = .2 sh1 = 2 sh2 = 1.4 hp = .2 mo 320, 240, pi - .9, 50, 0 a$ = INPUT$(1) SYSTEM SUB mo (x, y, an, s, w) depth = depth + 1 IF s < .2 THEN GOTO 1 IF depth / 2 = depth \ 2 THEN c = 15 ELSE c = 10 CIRCLE (x, y), s, c PAINT (x, y), c IF w <> 1 THEN x1 = SIN(an) * s * 2.5 + x y1 = COS(an) * s * 2.5 + y IF w = 3 THEN ns = s / sv2 ELSE ns = s / sv1 mo x1, y1, an + vp, ns, 3 END IF IF w <> 2 THEN x1 = SIN(an - pi / 2) * s * 2.5 + x y1 = COS(an - pi / 2) * s * 2.5 + y IF w = 4 THEN ns = s / sh2 ELSE ns = s / sh1 mo x1, y1, an + hp, ns, 4 END IF IF w <> 3 THEN x1 = SIN(an - pi) * s * 2.5 + x y1 = COS(an - pi) * s * 2.5 + y IF w = 1 THEN ns = s / sv2 ELSE ns = s / sv1 mo x1, y1, an + vp, ns, 1 END IF IF w <> 4 THEN x1 = SIN(an - pi * 1.5) * s * 2.5 + x y1 = COS(an - pi * 1.5) * s * 2.5 + y IF w = 2 THEN ns = s / sh2 ELSE ns = s / sh1 mo x1, y1, an + hp, ns, 2 END IF 1 depth = depth - 1 END SUB