Programando em NCL 3.0.pdf - Telemidia - PUC-Rio

Os parâmetros são as posições x,y da origem e a largura e altura a partirdesse ponto (Listagem 18.22).function redraw ()canvas:attrColor('black')canvas:drawRect('fill', 0,0, canvas:attrSize())canvas:compose( cavalo.x, cavalo.y, cavalo.canvas,cavalo.quadro*cavalo.larg,0,cavalo.larg,cavalo.alt) )canvas:flush()endListagem 18.22 Função de redesenhoPara animar o cavalo, usaremos uma corrotina, como no exemplo anterior(Listagem 18.23).function animaCavalo ()local partida = 10 -- posição da linha de partidalocal chegada = 500 -- posição da linha de chegadalocal mudaQuadro = 20 -- muda de quadro a cada 20pxcavalo.x = partidawhile cavalo.x < chegada docoroutine.yield()local deslocamento = 3 + math.random(1,3)cavalo.x = cavalo.x + deslocamentomudaQuadro = mudaQuadro – deslocamentoif mudaQuadro < 0 thenquadro = (quadro + 1) % 6mudaQuadro = 20endredraw()endendcoAnimaCavalo = coroutine.create(animaCavalo)Listagem 18.23 Corrotina para animação dos cavalosO deslocamento do cavalo, a cada 30 milissegundos, varia de 3 a 6 pixels,de acordo com a chamada à função math.random, para que a aplicação tenhaalguma imprevisibilidade. O código para a função update e o tratador deeventos são iguais aos do exemplo anterior, bastando trocar o nome dacorrotina de animação.Novamente, o uso de uma corrotina permite que o código do cavalo sejaescrito sequencialmente, facilitando o desenvolvimento e o entendimento domesmo.396