1 ' Svjatoslav Agejenko
\r
6 DECLARE SUB prch (x, y, n, s)
\r
7 DIM SHARED co(1 TO 4)
\r
22 FOR y = 1 TO 480 - siz - 2 STEP siz + (siz \ 2)
\r
24 FOR x = 1 TO 640 - siz - 2 STEP siz + (siz \ 2)
\r
25 prch x, y, RND * 16, siz
\r
27 IF tmp1 > 20 THEN tmp1 = 0: x = x + (siz)
\r
30 IF tmp > 5 THEN tmp = 0: y = y + (siz)
\r
33 SUB prch (x, y, n, s)
\r
37 LINE (x, y)-(x + s, y), c
\r
38 LINE (x, y)-(x + sp, y + sp), c
\r
39 LINE (x + s, y)-(x + sp, y + sp), c
\r
40 PAINT (x + 2, y + 1), c
\r
43 LINE (x, y)-(x, y + s), c
\r
44 LINE (x, y)-(x + sp, y + sp), c
\r
45 LINE (x, y + s)-(x + sp, y + sp), c
\r
46 PAINT (x + 1, y + 2), c
\r
49 LINE (x + s, y)-(x + s, y + s), c
\r
50 LINE (x + s, y)-(x + sp, y + sp), c
\r
51 LINE (x + s, y + s)-(x + sp, y + sp), c
\r
52 PAINT (x + s - 1, y + 2), c
\r
55 LINE (x, y + s)-(x + s, y + s), c
\r
56 LINE (x, y + s)-(x + sp, y + sp), c
\r
57 LINE (x + s, y + s)-(x + sp, y + sp), c
\r
58 PAINT (x + 2, y + s - 1), c
\r