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
