2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB paper (x1%, y1%, x2%, y2%)
\r
23 IF x1 > x2 THEN SWAP x1, x2
\r
24 IF y1 > y2 THEN SWAP y1, y2
\r
25 paper x1, y1, x2, y2
\r
32 SUB paper (x1, y1, x2, y2)
\r
35 LINE (x1, y1)-(x2, y1), 0
\r
36 LINE (x2, y1)-(x2, y2), 0
\r
37 FOR y = y1 + 1 TO y2
\r
41 IF p > 23 THEN z = RND * 1: p = 0
\r
42 c1 = POINT(x, y - 1)
\r
43 c = (c1 + c) / 2 + (RND * (2 + (5 / y)) - (3 / (yl - y))) - z
\r
45 IF c > 15 THEN c = 15
\r