Rosto estilizado no SLOGO

A Tat  hoje quer montar um rosto estilizado, afinal ela também é uma desenhista nata.
Então ela digitou os comandos abaixo.  . Confioram.

ROSTO ESTILIZADO

aprenda montar_rosto  :l

at

rosto  :l

olhos :l

nariz :l

pe 180

boca :l

dt

fim

 COMANDOS UTILIZADOS

1)   ROSTO

aprenda rosto  :l

; veja um rosto estilizado

se :l > 100  [pare]

pd  1   arco  180  200*cos(:l/3)

rosto   :l+1

fim

2)   OLHOS

aprenda  olhos :l

un mudexy  -60  20 ul

circunferencia 10

pinte

un mudexy  60  20 ul

circunferencia 10

pinte

fim

  

3)   NARIZ

 aprenda nariz  :l

un mudexy  0 -30 ul

pd 30 pf 40  pt 40

pe 60 pf 40 pt 40

fim

4)   BOCA

 aprenda  boca  :l

un mudexy  0 -80 ul

pd 30

arcoelipse  180  80  40  90

arcoelipse  180  80  30  90

fim