20 lines
337 B
Text
20 lines
337 B
Text
# Fractal tree
|
|
#
|
|
color 555
|
|
proc tree x y deg n . .
|
|
if n > 0
|
|
linewidth n * 0.4
|
|
move x y
|
|
x += cos deg * n * 1.3 * (randomf + 0.5)
|
|
y += sin deg * n * 1.3 * (randomf + 0.5)
|
|
line x y
|
|
tree x y deg - 20 n - 1
|
|
tree x y deg + 20 n - 1
|
|
.
|
|
.
|
|
timer 0
|
|
on timer
|
|
clear
|
|
tree 50 10 90 10
|
|
timer 2
|
|
.
|