puts "3D visualization performance tests"
puts "Display/erase 1 MeshVS_Mesh"
puts "Object haves shading mode"


meshdispmode m 2

dchrono tmr start

for {set i 1} {$i < 100} {incr i} {
    meshhide m; meshshow m
}