Evaluated proc doanim {} {cplot anim $::anim_c 5; incr ::anim_c; c anim}