1 ' Svjatoslav Agejenko
\r
4 DECLARE SUB setpal ()
\r
6 DECLARE SUB box (x1, y1, x2, y2, x3, y3, x4, y4, c) 'draw filled
\r
7 'box using 4 cordinates
\r
8 '(sometimes don't work
\r
9 'correctly, but fast.
\r
10 '(PAINT command used))
\r
11 DIM SHARED x1(1 TO 40, 1 TO 40) ' X & Y cordinates
\r
12 DIM SHARED y1(1 TO 40, 1 TO 40) '
\r
25 y = y - COS(SQR((a - 20) ^ 2 + (b - 20) ^ 2) / zfa) * 20
\r
27 x = (x - 320) * (b + 50) / 50 + 320
\r
28 y = (y - 240) * (b + 50) / 50 + 240
\r
40 IF (a + b) \ 2 = (a + b + 1) \ 2 THEN c = 0 ELSE c = 5
\r
43 box x1(a, b), y1(a, b), x1(a + 1, b), y1(a + 1, b), x1(a, b + 1), y1(a, b + 1), x1(a + 1, b + 1), y1(a + 1, b + 1), c
\r
50 IF zfa > 10 THEN SYSTEM
\r
53 SUB box (x1, y1, x2, y2, x3, y3, x4, y4, c1)
\r
55 c1 = c1 + (y2 - y1) / 3.5 + (kz / 8) + 4
\r
57 IF c1 < 0 THEN c1 = 0
\r
58 IF c1 > 15 THEN c1 = 15
\r
60 a = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
\r
61 b = SQR((x3 - x4) ^ 2 + (y3 - y4) ^ 2)
\r
64 x5 = (x2 - x1) * a / b + x1
\r
65 y5 = (y2 - y1) * a / b + y1
\r
66 x6 = (x4 - x3) * a / b + x3
\r
67 y6 = (y4 - y3) * a / b + y3
\r
68 LINE (x5, y5)-(x6, y6), c1
\r
69 LINE (x5 + 1, y5)-(x6 + 1, y6), c1
\r