puts "3D visualization performance tests" puts "Move V3d View with 27 AIS-object (+ AIS trihedron)" puts "Objects have shading mode" set D_x 10000 for {set i 1} {$i < 100} {incr i} { vmoveview ${D_x} 0 0 1 }