Baleia no Slogo

Quem pensa que a Tat não sabe desenhar baleia está muitro enganado.

 Veja o resultado abaixo.

1) Construindo baleia  digitar o comando  baleia  50

  aprenda baleia  :l

un mudexy  -180  0  ul

se :l > 100  [pare]

pd  1   arco  180  200*cos(:l)

baleia :l+1

fim

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

BALEIA MING    digitar o comando baleia1  50

 aprenda baleia1  :l

un mudexy  -180  20  ul

se :l > 100  [pare]

pe  1   arco  180  200*cos(:l)

baleia1 :l+1

un mudexy  150  90  ul

pe 10

rotule [esta é a baleia MING]

                                                                                   fim

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

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