puts "3D visualization performance tests"
puts "Interactive selection of sub-objects (SHELL) by rectangular selection for AIS-object"
puts "Object haves wireframe mode"


vsetdispmode 0
vselmode 5 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
}