2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB linem (x1!, y1!, x2!, y2!, col!)
\r
8 DIM SHARED linevx(1 TO 100)
\r
9 DIM SHARED linevy(1 TO 100)
\r
15 FOR a = 1 TO 30 STEP .1
\r
17 x = SIN(a) * su + 200
\r
18 y = COS(a) * su + 200
\r
20 linem x + (x / 2) + (a * 3), (y - (x / 3)) + (a * 3), x + 25, y + 25 - (a * 3), z
\r
27 SUB linem (x1, y1, x2, y2, col)
\r
32 IF linevx(a) > 0 THEN LINE (linevx(a), linevy(a))-(x1, y1), col
\r
37 LINE (linevx(a), linevy(a))-(x1, y1), col
\r