' Wood surface
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 
DECLARE SUB wood (x1%, y1%)
DECLARE SUB paper (x1%, y1%)
DEFINT A-Z
SCREEN 12
RANDOMIZE TIMER
FOR a = 0 TO 15
OUT &H3C8, a
OUT &H3C9, a * 4
OUT &H3C9, a * 3
OUT &H3C9, a * 0
NEXT a

1
x1 = RND * 400 + 200
y1 = RND * 100 + 200
wood x1, y1
GOTO 1

a$ = INPUT$(1)

SYSTEM

SUB wood (x1, y1)
yl = y1 + 1
LINE (0, 0)-(x1, y1), 0, BF
LINE (5, 5)-(x1 - 5, y1 - 5), 8, BF
LINE (10, 10)-(x1 - 10, y1 - 10), 15, BF
pe = RND * 300
FOR y = y1 - 1 TO 0 STEP -1
FOR x = x1 - 1 TO 0 STEP -1
p = p + 1
IF p > x1 THEN z = RND * 13: p = SIN((y + pe) / 100) * x1
c1 = POINT(x, y + 1)
c2 = POINT(x, y)
c = (c1 * 2 + c2 + c * 3 + z) / 7 + RND * 1
IF c < 0 THEN c = 0
IF c > 15 THEN c = 15
PSET (x + 1, y), c
NEXT x
NEXT y

END SUB