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

# binary format
set test_image_bbrep ${test_image}_bbrep
binsave o $imagedir/${test_image_bbrep}.bbrep
binrestore $imagedir/${test_image_bbrep}.bbrep b1
vclear
vclose ALL
vinit v1/v1
vbottom
vdisplay -dispMode 1 b1
vfit
vrenderparams -shadingModel phong
checkview -screenshot -3d -path ${imagedir}/${test_image_bbrep}.png
