puts "================"
puts "OCC288: Currently meshing (for shading) of some shapes looks incorrect"
puts "================"
puts ""
puts "TODO #23828 MacOS: Tcl Exception: result is not a topological shape!!!"
puts "TODO #23828 MacOS: TEST INCOMPLETE"

pload MODELING VISUALIZATION
restore [locate_data_file OCC288-shading_176.brep] result
checkprops result -s 1.21055e+07 

checknbshapes result -vertex 667 -edge 941 -wire 368 -face 289 -shell 6 -solid 6 -compsolid 0 -compound 1 -shape 2278
vinit View1
tclean result
vsetdispmode 1
vdisplay result
vfit
checkshape result

vdump $imagedir/${casename}.png