animate goto 0
retrieve_vp 1
move_vp 1 2 150 
for {set i 0} {$i < 32} {incr i} {
animate goto $i
display update
after 50
}
move_vp 2 1 150
mol on 1
move_vp 1 3 150
move_vp 3 2 150
mol off 1
for {set i 31} {$i < 64} {incr i} {
animate goto $i
display update
after 50
}
move_vp 2 1