a = cylinder radius:5 height:10
animate on (at time 20 a.height=100 at time 30 a.height=20)
animate on (at time 0 a.height=20)
for x=0 to 9 do for y=0 to 9 do (copy a).pos=[20*x, 20*y, 20]
delete a
select geometry
for a in selection do movekeys a (c+=2)
animationrange=(interval 0 200)
for a in selection do movekeys a(random 0 100)
sphere radius:5
for a in selection do movekeys a ((distance a $Sphere01)/5)
