puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"

puts "================"
puts "OCC17"
puts "================"
puts ""

#####################################################
puts " Solid_14 will be the face which is unvisible during displaying entire solid."
#####################################################

restore [locate_data_file OCC17.brep] sh 

checkshape sh

explode sh f
renamevar sh_14 result
tclean result
vinit
vdisplay result
vsetdispmode result 1
vfit

set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod

if { $tri != 100 && $nod != 94 }  {
  puts "Faulty OCC17: here can be shading problem"
}

set 2dviewer 0