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


set dispmode 2
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}

dchrono tmr start

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