puts "AIS_Manipulator - translate an object"
puts "====================================="
+pload MODELING VISUALIZATION
+
set anImage1 $imagedir/${casename}_1.png
set anImage2 $imagedir/${casename}_2.png
set anImage3 $imagedir/${casename}_3.png
vselect 0 0
vmoveto {*}$mouse_drag
vdump $anImage5
-
-set to_dump_screen 0
\ No newline at end of file