tests/perf/single_mesh_shrink/A2

   1 puts "3D visualization performance tests"
   2 puts "Move V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
   3 puts "Object haves shrink mode"
   4
   5
   6 set D_x 10000
   7 for {set i 1} {$i < 100} {incr i} {
   8     vmoveview ${D_x} 0 0 1
   9 }