Desenhando polígonos no FMSLOGO

DESENHANDO POLÍGONOS

ATENÇÃO:  Como no W7 não abre o SLOGO 3.0 usou-se o FMSLOGO

1.  POLIGONO DE LADO L, N   LADOS

Procedimento para desenhar qualquer polígonos de lado n >= 3

PROCEDIMENTO

Sejam as variáveis

•  :l ,  é o lado do polígono
•  :n   é o número de lados  e 
• :a   variável de giro, onde :

1) :a é igual a 1 se for desenhar para a direita e 
2) :a -1 se for desenhar para a esquerda.

       aprenda poligono  :l  :n   :a

         se :l > 100   [pare]

         repita :n [pf  :l  pd  360*:a/:n]

         fim

EXEMPLOS

1)     CAIXAS EMPILHADAS

 aprenda caixas_empilhadas

repita 10 [poligonos  60  3   1  poligonos 60  3  -1  pf 10]

fim

 2)     POLÍGONOS  EMBUTIDOS

   aprenda poligonos  :l  :n   :a

   se :l > 100   [pare]

   repita :n [pf  :l  pd  360*:a/:n]

   poligonos  :l + 10   :n   :a

   fim



No exemplo de polígonos entrelaçados usou-se
:l = 20 , :n = 10 e :a = 1 (giro para a direita)

.

3)     OUTRO MODO DE DESENHAR POLIGONOS EMBUTIDOS

        aprenda desenhar  :n  :a  :d

repita  :n/2  [ pf  :a  pd  (360/:n)  +  :d  pf  :a  pd  (360/:n) - :d]

fim

neste caso é feito um de cada vez a partir da origem.

desenhar 20 10  20

desenhar 20 40 20

desenhar 20 60 20

4)     PÉ DE CAIXAS EMPILHADAS

Que tal plantarmos um pé de caixas empilhadas ?

aprenda figura_rodando  :ang

pe :ang
pf 70
pe 30
pf 50
caixas_empilhadas
paracentro



fim



aprenda pe_de_caixasempilhadas

figura_rodando  30

figura_rodando  -30

fim

5)     ÁRVORE DE POLÍGONOS

Já que aprendeu-se a desenhar polígonos pode-se agora desenhar uma ÀRVORE DE POLÍGONOS.

PROCEDIMENTO

3.a) Cria-se o procedimento  VARIOSPOLIGONOS

aprenda variospoligonos

mt

ul

pf -10

poligono  50  3  1

pf 60

poligono 50  4  -1

pf 60

poligono 50 5 1

pf 60

poligono 50 6 -1

pf 60

poligono  50 7 1

pf 60

poligono 50 8 -1

fim

3.B) Cria-se o procedimento  ARVORE DE POLIGONOS

aprenda arvoredepoligonos

mudepos [0  -10]

variospoligonos

un mudepos [-100 400]

ul  pd 90 rotule {  ÀRVORE DE POLÍGONOS }

un paracentro

ot

fim

--------------------------------------------------------------------------------------------------

6.  DESENHANDO ESPIRAL A PARTIR DE UM HEPTAGONO

      aprenda espiral_com_heptagono  :l  :n   :a

   se :l > 100   [pare]

   repita 7 [pf  :l  pd  360*:a/:n]

   HEPTAGONO   :l + 10   :n   :a

   fim

Observação :

L é o lado do polígono

N é o número de lados

A é igual a 1 se for desenhar para a direita e -1 se for desenhar para a esquerda.