2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB box (x1%, y1%, s%)
\r
8 DECLARE SUB setpal ()
\r
28 IF s > 2 THEN GOTO 1
\r
34 c2 = POINT(x1 + s, y1)
\r
35 c3 = POINT(x1, y1 + s)
\r
36 c4 = POINT(x1 + s, y1 + s)
\r
42 cc2 = ((c1 + c2) / 2) + (RND * k) - kp
\r
43 IF cc2 > lm THEN cc2 = lm
\r
44 IF cc2 < 0 THEN cc2 = 0
\r
46 cc3 = ((c1 + c3) / 2) + (RND * k) - kp
\r
47 IF cc3 > lm THEN cc3 = lm
\r
48 IF cc3 < 0 THEN cc3 = 0
\r
50 cc4 = ((c2 + c4) / 2) + (RND * k) - kp
\r
51 IF cc4 > lm THEN cc4 = lm
\r
52 IF cc4 < 0 THEN cc4 = 0
\r
54 cc5 = ((c3 + c4) / 2) + (RND * k) - kp
\r
55 IF cc5 > lm THEN cc5 = lm
\r
56 IF cc5 < 0 THEN cc5 = 0
\r
58 cc1 = ((cc2 + cc3 + cc4 + cc5) / 4) + (RND * k) - kp
\r
59 IF cc1 > lm THEN cc1 = lm
\r
60 IF cc1 < 0 THEN cc1 = 0
\r
64 PSET (x1 + sp, y1 + sp), cc1
\r
65 PSET (x1 + sp, y1), cc2
\r
66 PSET (x1, y1 + sp), cc3
\r
67 PSET (x1 + s, y1 + sp), cc4
\r
68 PSET (x1 + sp, y1 + s), cc5
\r