Being silly with penguins

[Colin Holgate]

This has the advantage of smooth dragging, but the disadvantage of less smooth animation:

local p

on mouseDown

put 1 into p

grab me

do animashun

end mouseDown

on mouseMove

do animashun

end mouseMove

on animashun

set the backGroundPattern of graphic "G1" to the id of image ("p"&p&".png")

wait 1 with messages

put p + 1 into p

if p > 15 then put 1 into p

end animashun


About Director, it can of course do this sort of animation monthly, but also it can be used as an XTalk language.