No FMSLogo:
aprenda espiral :w :a :x :c :ww
se :c = 0 [pare]
mudeespl arredonde :ww
mudecl (lista 255 - :w * 2 0 :w*2)
paraesquerda :x pf :w usenada pt :w
paradireita :x pf :w uselápis paradireita :a
espiral :w + 1 :a :x + 0.7 :c - 1 :ww + 0.1
fim
aprenda vai
espiral 1 30 10 90 1
fim
No xLogo:
aprenda espiral :w :a :x :c :ww
se :c = 0 [pare]
mudeespessuradolápis arredonde :ww
mudecl (lista 255 - :w * 2 0 :w*2)
paraesquerda :x pf :w usenada pt :w
paradireita :x pf :w uselápis paradireita :a
espiral :w + 1 :a :x + 0.7 :c - 1 :ww + 0.1
fim
Na janela de comandos, escreva:
espiral 1 30 10 90 1
Visite a página de desafios do Projeto Logo para saber mais.
Nenhum comentário:
Postar um comentário