13 lines
241 B
Text
13 lines
241 B
Text
proc triang lev x y size . .
|
|
if lev = 0
|
|
move x y
|
|
circle 0.15
|
|
else
|
|
lev -= 1
|
|
size /= 2
|
|
triang lev x + size y size
|
|
triang lev x + size / 2 y + size size
|
|
triang lev x y size
|
|
.
|
|
.
|
|
triang 8 5 5 90
|