puts "3D visualization performance tests"
puts "Interactive selection of sub-objects (NODES) by rectangular selection for MeshVS_Mesh object in V3d View with 27 MeshVS_Mesh objects (+ AIS trihedron)"
puts "Object haves wireframe mode"


set dispmode 1
vsetdispmode m  ${dispmode}
vsetdispmode m2 ${dispmode}
vsetdispmode m3 ${dispmode}
vsetdispmode m4 ${dispmode}
vsetdispmode m5 ${dispmode}
vsetdispmode m6 ${dispmode}
vsetdispmode m7 ${dispmode}
vsetdispmode m8 ${dispmode}
vsetdispmode m9 ${dispmode}

vsetdispmode m11 ${dispmode}
vsetdispmode m12 ${dispmode}
vsetdispmode m13 ${dispmode}
vsetdispmode m14 ${dispmode}
vsetdispmode m15 ${dispmode}
vsetdispmode m16 ${dispmode}
vsetdispmode m17 ${dispmode}
vsetdispmode m18 ${dispmode}
vsetdispmode m19 ${dispmode}

vsetdispmode m21 ${dispmode}
vsetdispmode m22 ${dispmode}
vsetdispmode m23 ${dispmode}
vsetdispmode m24 ${dispmode}
vsetdispmode m25 ${dispmode}
vsetdispmode m26 ${dispmode}
vsetdispmode m27 ${dispmode}
vsetdispmode m28 ${dispmode}
vsetdispmode m29 ${dispmode}

vselmode m 1 1

dchrono tmr start

set x1 240; set y1 210; set x2 290; set y2 270
set x11 5; set y11 5

for {set i 1} {$i < 100} {incr i} {
    vselect $x1 $y1 $x2 $y2 1
    vselect $x11 $y11
}