+++ /dev/null
-puts "========"
-puts "Object drifts at zoom within Graphic3d_TMF_TriedronPers applied"
-puts "========"
-
-pload MODELING VISUALIZATION
-
-box b 100 200 300
-vclear
-vinit View1
-vtrihedron t1
-vtrihedron t2
-vdisplay -dispMode 1 b
-vaxo
-vdisplay -trsfPers trihedron -trsfPersPos -1 -1 100 t1
-vdisplay -trsfPers trihedron -trsfPersPos 1 1 100 t2
-vsetlocation t2 0 0 -50
-vcamera -persp
-vstereo anaglyph
-vfit
-vzoom 0.05
-vdump $imagedir/${casename}.png -stereo blend