alias animate {
  window -pfd @a 1 1 200 200
  anim
}
alias anim {
  drawrect -f @a 1 1 0 0 200 200
  drawdot @a 4 10 $iif($1,$1,1) $iif($2,$2,1)

  .timeranim -m 1 10 anim $calc($1 + 1) $calc($2 + 1)
}
on *:CLOSE:@a: {
  .timeranim off
}