--- /dev/null
+puts "3D visualization performance tests"
+puts "Interactive selection of sub-objects (EDGE) by point-and-click for AIS-object"
+puts "Object haves wireframe mode"
+
+
+vsetdispmode 0
+vselmode 2 1
+
+dchrono tmr start
+
+set x 262
+set y 205
+set x2 10
+set y2 10
+for {set i 1} {$i < 100} {incr i} {
+ vselect $x $y
+ vselect $x2 $y2
+}