tests/perf/multi_object_shading/A7

   1 puts "3D visualization performance tests"
   2 puts "Size V3d View with 27 AIS-object (+ AIS trihedron)"
   3 puts "Objects have shading mode"
   4
   5
   6 set Size 1000
   7 for {set i 1} {$i < 70} {incr i} {
   8     vsetviewsize [expr ${Size} - 10 * $i]
   9 }