puts "3D visualization performance tests"
puts "Interactive selection of whole interactive object by point-and-click for AIS-object"
puts "Object haves HidelLineRemoval mode"


vsetdispmode 2

dchrono tmr start

set x 247
set y 214
set x2 247
set y2 10
for {set i 1} {$i < 100} {incr i} {
    vselect $x $y
    vselect $x2 $y2
}
