1 puts "3D visualization performance tests"
2 puts "Interactive selection of whole interactive object by rectangular selection for AIS-object in V3d View with 27 AIS-objects (+ AIS trihedron)"
3 puts "Object haves HidelLineRemoval mode"
10 set x1 225; set y1 235; set x2 270; set y2 190
13 for {set i 1} {$i < 100} {incr i} {
14 vselect $x1 $y1 $x2 $y2 1