puts "3D visualization performance tests"
puts "Zoom V3d View with 27 AIS-object (+ AIS trihedron)"
puts "Objects have shading mode"


set Zoom 1.05
for {set i 1} {$i < 20} {incr i} {
    vzoom ${Zoom}
}