1 ' Rounds up sharp edges
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' homepage: svjatoslav.eu
\r
5 ' email: svjatoslav@svjatoslav.eu
\r
12 DIM SHARED buf1(1 TO 80, 1 TO 50)
\r
13 DIM SHARED buf2(1 TO 80, 1 TO 50)
\r
17 buf1(x, y) = INT(RND * 2)
\r
24 c = buf1(x - 1, y - 1)
\r
25 c = c + buf1(x, y - 1)
\r
26 c = c + buf1(x + 1, y - 1)
\r
27 c = c + buf1(x - 1, y)
\r
28 c = c + buf1(x + 1, y)
\r
29 c = c + buf1(x - 1, y + 1)
\r
30 c = c + buf1(x, y + 1)
\r
31 c = c + buf1(x + 1, y + 1)
\r
32 IF buf1(x, y) = 1 THEN
\r
33 IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0
\r
35 IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0
\r
45 IF b = 0 THEN PRINT "."; ELSE PRINT "#"
\r