2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB wood (x1%, y1%)
\r
8 DECLARE SUB paper (x1%, y1%)
\r
20 x1 = RND * 400 + 200
\r
21 y1 = RND * 100 + 200
\r
31 LINE (0, 0)-(x1, y1), 0, BF
\r
32 LINE (5, 5)-(x1 - 5, y1 - 5), 8, BF
\r
33 LINE (10, 10)-(x1 - 10, y1 - 10), 15, BF
\r
35 FOR y = y1 - 1 TO 0 STEP -1
\r
36 FOR x = x1 - 1 TO 0 STEP -1
\r
38 IF p > x1 THEN z = RND * 13: p = SIN((y + pe) / 100) * x1
\r
39 c1 = POINT(x, y + 1)
\r
41 c = (c1 * 2 + c2 + c * 3 + z) / 7 + RND * 1
\r
43 IF c > 15 THEN c = 15
\r