1 puts "3D visualization performance tests"
2 puts "Interactive selection of whole MeshVS_Mesh object by rectangular selection for MeshVS_Mesh"
3 puts "Object haves wireframe mode"
11 set x1 180; set y1 180; set x2 225; set y2 230
14 for {set i 1} {$i < 100} {incr i} {
15 vselect $x1 $y1 $x2 $y2 1