void pan()
{
  wait(-3)// wait 3 sec
  while (pan.alpha > 0)
  {
    pan.alpha -= 10*time_step;
    wait(1);
  }
  ptr_remove (pan);
}