puts "3D visualization performance tests" puts "Interactive selection of sub-objects (SHELL) by point-and-click for AIS-object" puts "Object haves wireframe mode" vsetdispmode 0 vselmode 5 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 }