2 ' made by Svjatoslav Agejenko
\r
4 ' homepage: svjatoslav.eu
\r
5 ' email: svjatoslav@svjatoslav.eu
\r
15 IF strs = 0 THEN ELSE GOTO 1
\r
32 LINE (0, b * ys)-(xs * 10, b * ys), 8
\r
33 LINE (b * xs, 0)-(b * xs, ys * 10), 8
\r
34 LOCATE 10 * ys / strs + 2, b * xs / 8 + 1
\r
38 LOCATE 10 * ys / strs + 2, xs * 10 / 8 + 0
\r
40 LOCATE 1 * ys / strs + 1, xs * 10 / 8 + 3
\r
42 LOCATE 5 * ys / strs + 1, xs * 10 / 8 + 3
\r
44 LOCATE 10 * ys / strs, xs * 10 / 8 + 3
\r
47 LINE (0, ys * 5 + 1)-(xs * 10, ys * 5 + 1), 14
\r
48 LINE (5 * xs + 1, 0)-(5 * xs + 1, 10 * ys), 14
\r
50 FOR a = 0 TO 10 STEP .05
\r
52 y = SIN(a) * ys * 5 + ys * 5
\r
53 IF a > 0 THEN LINE (x1, y1)-(x, y), 15
\r
57 LOCATE y / strs + 1, xs * 10 / 8
\r
60 FOR a = 0 TO 10 STEP .05
\r
62 y = COS(a) * ys * 5 + ys * 5
\r
63 IF a > 0 THEN LINE (x1, y1)-(x, y), 12
\r
67 LOCATE y / strs + 1, xs * 10 / 8
\r