Árvore-completa em “Logo”
Não fiquei satisfeito com o programa da árvorezinha em "Logo". Não era fiel à linguagem (uma vez que esta se baseia no desenho). Aqui está a versão da árvorezinha desenhada em Logo.
# ali-o-kimiku (c) 2009
learn estrela $L {
# estrela
# 90+36=126
turnleft 126
repeat 5
{
forward $L
# 180-36=144
turnright 144
}
penup
turnright 126
}
learn avancah $H {
penup
turnleft 90
#espaço horizontal
forward $H
turnright 90
pendown
}
learn avancav $V {
penup
forward $V
pendown
}
# Programa Principal
reset
#spritehide
$n=ask "Quantos raminhos ?"
$i=1
$lado=30
$delta=4
#sin(72)=0.951056516
#cos(72)=0.309016994
#c72=0.309016994
#s72=0.951056516
$avh=$lado
$avv=$lado
$navv=0-$lado
$navh=0-$lado
go $lado,$lado/2
repeat $n {
repeat $i {
estrela $lado
avancah $avh+$delta
}
$i=$i+1
avancav $navv
avancah $i*($navh-$delta)
}
penup
spriteshow
Arvorezinha completamente desenhada no kturtle
