puts "=========="
puts "0031136: BinXCAF persistence loses normals from triangulation-only Faces"
puts "=========="
puts ""

pload MODELING XDE OCAF VISUALIZATION
source $env(CSF_OCCTSamplesPath)/tcl/cad.tcl
trinfo res
wavefront res $imagedir/${test_image}
readobj o $imagedir/${test_image}.obj

# XBF format
set test_image_XBF ${test_image}_XBF
XNewDoc D1
XAddShape D1 o
XSave D1 $imagedir/${test_image_XBF}.xbf
Close D1
XOpen $imagedir/${test_image_XBF}.xbf D2
vclear
vclose ALL
vinit v1/v1
vbottom
XDisplay -dispMode 1 D2
Close D2
vfit
vrenderparams -shadingModel phong
checkview -screenshot -3d -path ${imagedir}/${test_image_XBF}.png