alias Animation { 
  window -pd @Animation -1 -1 500 500 
  window -hpd @Animation.buffer -1 -1 500 500 
  set %Animation.X 300 
  set %Animation.Y 2
  Animation.frame 
} 
alias -l Animation.frame { 
  if ($window(@Animation)) { 
    inc %Animation.y 4  
    clear @Animation.Buffer  
    drawfill @Animation.Buffer 4 4 12 12  
    drawdot @Animation.Buffer 12 20 %Animation.x %Animation.y
    drawcopy @Animation.Buffer 0 0 500 500 @Animation 0 0 500 500 
    .timer 1 0 Animation.frame 
  } 
} 
on *:Close:@Animation: { 
  window -c @Animation.buffer 
  unset %Animation.*
}
 

Commenting Options