puts "3D visualization performance tests"
puts "Non-interactive selection/deselection for AIS-object"
puts "Object haves HidelLineRemoval mode"


vsetdispmode 2

dchrono tmr start

for {set i 1} {$i < 100} {incr i} {
    vchangeselected b
}