Uma animação: o boneco que cresce

Em primeiro lugar, vamos definir um procedimento boneco que desenhe o homenzinho com um tamanho fornecido por nós. aprenda boneco :c pe 154 pf 2.2*:c pt :c*2.2 pe 52 pf 2.2*:c pt :c*2.2 pe 154 pf :c*2 pe 154 pf 2.2*:c pt :c*2.2 pe 52 pf 2.2*:c pt :c*2.2 pe 154 pf :c/2 pe 90 repita 180[pf :c/40 pd 2] pd 90 fim Vamos agora criar uma animação que dá a ilusão de que o homenzinho cresce pouco a pouco. Para isso, vamos desenhar boneco 1 depois boneco 2 boneco 3 ... até boneco 75. Entre cada desenho, a tela será limpa. Precisamos dos dois procedimentos seguintes:

aprenda boneco :c se :c=75[pare] pe 154 pf 2.2*:c pt :c*2.2 pe 52 pf 2.2*:c pt :c*2.2 pe 154 pf :c*2 pe 154 pf 2.2*:c pt :c*2.2 pe 52 pf 2.2*:c pt :c*2.2 pe 154 pf :c/2 pe 90 repita 180[pf :c/40 pd 2] pd 90 ld dt boneco :c+1 fim

aprenda iniciar ld dt boneco 0 fim

Enfim, para harmonizar o conjunto, nos serviremos do modo animado e da primitiva veranimado.

aprenda boneco :c se :c=75[pare] ld dt pe 154 pf 2.2*:c pt :c*2.2 pe 52 pf 2.2*:c pt :c*2.2 pe 154 pf :c*2 pe 154 pf 2.2*:c pt :c*2.2 pe 52 pf 2.2*:c pt :c*2.2 pe 154 pf :c/2 pe 90 repita 180[pf :c/40 pd 2] pd 90 veranimado boneco :c+1 fim

aprenda iniciar dt animado verd boneco 0 animado falso fim Ou, para quem usa o xLogo 0.9.90 ou posterior: aprenda iniciar dt animado boneco 0 pareanimado fim