Desafio 7

   As folhas da samambaia podem ser descritas como fractais (veja o desafio 6). Coloquei em separado dos outros fractais para que possamos explorar mais alguns recursos em linguagem logo.

   Um modelo simples para a folha é:

MegaLogo para samb3 :tam  se :tam < 5 [pare]  pf :tam / 20  ge 80 samb3 :tam * .3  gd 82 pf :tam / 20  gd 80 samb3 :tam * .3  ge 78 samb3 :tam * .9  ge 2 pt :tam / 20  ge 2 pt :tam / 20 fim
SuperLogo, MicroMundos e xLogo aprenda samb3 :tam  se :tam < 5 [pare]  pf :tam / 20  pe 80 samb3 :tam * 0.3  pd 82 pf :tam / 20  pd 80 samb3 :tam * 0.3  pe 78 samb3 :tam * 0.9  pe 2 pt :tam / 20  pe 2 pt :tam / 20 fim	Imagine aprender samb3 :tam  se :tam < 5 [parar]  pf :tam / 20  ge 80 samb3 :tam * .3  gd 82 pf :tam / 20  gd 80 samb3 :tam * .3  ge 78 samb3 :tam * .9  ge 2 pt :tam / 20  ge 2 pt :tam / 20 fim

   Para o procedimento acima tente, por exemplo, samb3 50 na janela de comandos.

   Para sofisticar um pouco mais, acrescentamos a variável :ang.var. para inclinar um pouco a folha.

MegaLogo para samb :tam :ang.var  se :tam < 5 [pare] pf :tam / 20  ge 80 samb :tam * .3 :ang.var  gd 82 + :ang.var pf :tam / 20  gd 80 samb :tam * .3 :ang.var  ge 78 - :ang.var  samb :tam * .9 :ang.var  ge 2 + :ang.var pt :tam / 20  ge 2 + :ang.var pt :tam / 20 fim
SuperLogo, MicroMundos e xLogo aprenda samb :tam :ang.var  se :tam < 5 [pare] pf :tam / 20  pe 80 samb :tam * 0.3 :ang.var  pd 82 + :ang.var pf :tam / 20  pd 80 samb :tam * 0.3 :ang.var  pe 78 - :ang.var  samb :tam * 0.9 :ang.var  pe 2 + :ang.var pt :tam / 20  pe 2 + :ang.var pt :tam / 20 fim	Imagine aprender samb :tam :ang.var  se :tam < 5 [parar] pf :tam / 20  ge 80 samb :tam * 0.3 :ang.var  gd 82 + :ang.var pf :tam / 20  gd 80 samb :tam * 0.3 :ang.var  ge 78 - :ang.var  samb :tam * 0.9 :ang.var  ge 2 + :ang.var pt :tam / 20  ge 2 + :ang.var pt :tam / 20 fim

   Para o procedimento acima tente, por exemplo, samb 50 2 na janela de comandos (2 é o valor que será somado ou subtraído ao fazer a tat girar, desenhando uma folha mais inclinada).