puts "================"
puts "OCC288: Currently meshing (for shading) of some shapes looks incorrect"
puts "================"
puts ""

pload MODELING VISUALIZATION
restore [locate_data_file shading_107.brep] result

checkprops result -s 329710 
checkshape result

checknbshapes result -vertex 18 -edge 36 -wire 18 -face 18 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 91
vinit View1
tclean result
vsetdispmode 1
vdisplay result
vfit

vdump $imagedir/${casename}.png