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

pload MODELING VISUALIZATION
restore [locate_data_file shading_058.brep] result

checkprops result -s 14125.5 
checkshape result

checknbshapes result -vertex 23 -edge 40 -wire 19 -face 19 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 104
vinit View1
tclean result
vsetdispmode 1
vdisplay result
vfit

vdump $imagedir/${casename}.png