make stemlength 135
to demo
manual
hideturtle
home
lt 90
make length 9
make stemlength 60
setbc 0 206 176
repeat 15 [
cs
setpencolor 0 140 43
back :stemlength
make stemlength :stemlength+5
fd :stemlength
setpencolor 243 0 213
repeat 18 [ repeat 6 [ fd :length left 60] left 20]
make length :length+2
paint
pause 100
]
setbc 255 255 255
auto
showturtle
end
demo