let clear_animation model
      ?(delay=0.0)
      id
      =
    clear_animation' model id ~delay:delay