+++ /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
-}