deslocando quadrados

DESLOCANDO QUADRADOS

Com o  polígono quadrado  montou-se uma sequênia de quadrados para a direita e para a esquerda.
O comando  figura1  :l é quem vai desenhar a figura, onde :l pode assumir diversos valores paer se desenhar. No exemplo foi usado o comando  figura1 150

aprenda figura1  :l

quadrado1  :l
quadrado2  :l

un pc ul

fim

; cria 2 quadrados com deslocamento para a esquerda.

aprenda quadrado1  :l

un mudey  -:l/5 ul
repita 2 [repita 4 [ pf :l  pd 90] un mudexy  -:l /5   0  ul]

fim

; cria 2 quadrados com deslocamento para a direita.
aprenda quadrado2  :l

un mudexy  :l/5  :l/5  ul

repita 2 [repita 4 [ pf :l  pd 90] un mudexy  :l*2 /5   :l*2/5  ul]

fim

Detalhe: o quadrado 2 foi desenhado sobre a bissetriz do 1º quadrante., enquanto no quadrado1 ambos são equidistantes da origem O (0,0).