Figuras com losango

Quem pensa que com losangos não se pode construir figuras interessantes, esta muito enganado, pois hoje,  a Tat vai desenhar um barco com losango e cubos em perspectiva com losangos

1) BARCO COM LOSANGO

COMANDOS

aprenda barco_com_losango :l


pe 90 

repita 3 [repita 2 [pf :l pd 60 pf :l  pd 120] pd 60]

; MOLDURA 
un mudexy -(7*:l/4)  -(*:l/4) 
ul

repita 2 [pf 15*:l/4  pe 90 pf 5*:l/2  pe 90]

;titulo
un mudexy  -:l    2*:l
 rotule  [BARCO COM LOSANGO ]
dt


fim

No Slogo basta digitar  barco_com_losango   100 por exemplo, ou seja  

barco_com_losango    número digitado

Experimente digitar com 200.

2) CUBOS EMPILHADOS FEITOS DE  LOSANGO

COMANDOS

aprenda figura :l

repita 3 [repita 2 [pf :l pd 60 pf :l  pd 120] pd 120]

pd 60

repita 3 [repita 2 [pf :l pd 60 pf :l pd 120] pd 120]

un pt 2*:l pe 60 ul

repita 6 [pf 2*:l pd 60]

un pc 

; pintar

mudexy  20  20  mudecp 4  pinte

mudexy  -20 -20  pinte

mudexy 70 -60  pinte

mudexy  -80  20  pinte

mudexy  -20 20  pinte

mudexy 80 20  pinte

mudexy  -80  -50

pinte

mudexy  30  -50

pinte

;Título

MUDEXY  -140 200  

PD 90 ROTULE [CUBOS EM PERSPECTIVA]

; moldura

mudexy -220 -160

ul repita 4 [ pf 7* 60  pe 90]

fim

Basta digitar o comando figura  60 para obter o quadro acima.

Para outro valor haverá pinturas em faces diferentes do cubo