puts "============" puts "OCC23484" puts "============" puts "" ############################################################################################ puts "Visualization, TKOpenGl - primitive arrays to become the only way to render geometry" puts "Tests wireframe trihedron rendering with primitive arrays" ############################################################################################ set anImage1 $imagedir/${casename}_1.png set anImage2 $imagedir/${casename}_2.png vinit View1 vfit vaxo vzbufftrihedron -scale 0.1 -type wireframe -position left_lower vdump $anImage1 vzbufftrihedron -scale 0.1 -type wireframe -position center vdump $anImage2 vclear