if { [string compare $command "shading"] != 0 } {
  puts "TODO OCC30056 All: Meshing statuses: SelfIntersectingWire Failure"
}

set TheFileName shading_wrongshape_009.brep
set bug_area "OCC22687"
set bug_withouttri "OCC22687"
set bug_freelinks "OCC22687"
set bug_freenodes "OCC22687"

if { [string compare $command "shading"] == 0 } {
  set rel_tol 7.5981
##set nbt 14
  set nbt 0
  set nbl 8
  set nbn 83
  set nbwithouttri([checkplatform]) $nbt
  set nbfree([checkplatform]) $nbl
  set nbfreenodes([checkplatform]) $nbn
} else {
  set rel_tol 5.131
  set bug_withouttri "OCC23105"
##set nbt 14
  set nbt 3
  set nbn 60
  set nbl 11
  set nbwithouttri([checkplatform]) $nbt
  set nbfree([checkplatform]) $nbl
  set nbfreenodes([checkplatform]) $nbn
}
set max_rel_tol_diff 0.001