--- /dev/null
+puts "3D visualization performance tests"
+puts "Interactive selection of sub-objects (SOLID) by rectangular selection for AIS-object"
+puts "Object haves wireframe mode"
+
+
+vsetdispmode 0
+vselmode 6 1
+
+dchrono tmr start
+
+set x1 225; set y1 235; set x2 270; set y2 190
+set x11 5; set y11 5
+
+for {set i 1} {$i < 100} {incr i} {
+ vselect $x1 $y1 $x2 $y2 1
+ vselect $x11 $y11
+}