puts "3D visualization performance tests"
puts "Display/erase 1 AIS-object in V3d View with 27 AIS-objects (+ AIS trihedron)"
puts "Object haves shading mode"


vsetdispmode 1

dchrono tmr start

for {set i 1} {$i < 100} {incr i} {
    verase b; vdisplay b
}