puts "3D visualization performance tests"
puts "Activation of EDGE selection mode for AIS-object"
puts "Object haves wireframe mode"


vsetdispmode 0

dchrono tmr start

for {set i 1} {$i < 100} {incr i} {
    vselmode 2 1 
    vselmode 2 0
}
