1 ' Svjatoslav Agejenko 2003.03
\r
4 DECLARE SUB miniscan (x1%, y1%, xn%, yn%)
\r
5 DECLARE SUB getxy (x%, y%)
\r
6 DECLARE SUB scan (x%, y%)
\r
10 DIM SHARED wai, wai2
\r
11 DIM SHARED mins, minl
\r
17 DIM SHARED px(1 TO 500)
\r
18 DIM SHARED py(1 TO 500)
\r
31 REM CIRCLE (x, y), 30, 14
\r
32 IF (px(mitup) <> x) OR py(mitup) <> y THEN mitup = mitup + 1
\r
36 FOR a = 1 TO mitup - 1
\r
37 LINE (px(a), py(a))-(px(a + 1), py(a + 1)), 15
\r
43 miniscan x + (mins / 4), y + (mins / 4), xn, yn
\r
44 IF xn <> -1 THEN x = xn
\r
45 IF yn <> -1 THEN y = yn
\r
53 SUB miniscan (x1, y1, xn, yn)
\r
59 LINE (x1 - mins, y1 - mins)-(x1 + mins, y1 + mins), 0, BF
\r
61 FOR x = x1 - mins TO x1 + mins
\r
62 LINE (x, y1 - mins)-(x, y1 + mins), 15
\r
63 LINE (x - minl, y1 - mins)-(x - minl, y1 + mins), 0
\r
67 IF c <> cd THEN xn = x: GOTO 4
\r
70 LINE (x1 - mins, y1 - mins)-(x1 + mins, y1 + mins), 0, BF
\r
72 FOR y = y1 - mins TO y1 + mins
\r
73 LINE (x1 - mins, y)-(x1 + mins, y), 15
\r
74 LINE (x1 - mins, y - minl)-(x1 + mins, y - minl), 0
\r
78 IF c <> cd THEN yn = y: GOTO 5
\r
81 LINE (x1 - mins, y1 - mins)-(x1 + mins, y1 + mins), 0, BF
\r
82 IF xn < -1 THEN xn = -1
\r
83 IF yn < -1 THEN yn = -1
\r