1 if { [string compare $command "shading"] != 0 } {
2 puts "TODO OCC30056 All: Meshing statuses: SelfIntersectingWire Failure"
5 set TheFileName shading_wrongshape_009.brep
6 set bug_area "OCC22687"
7 set bug_withouttri "OCC22687"
8 set bug_freelinks "OCC22687"
9 set bug_freenodes "OCC22687"
11 if { [string compare $command "shading"] == 0 } {
17 set nbwithouttri([checkplatform]) $nbt
18 set nbfree([checkplatform]) $nbl
19 set nbfreenodes([checkplatform]) $nbn
22 set bug_withouttri "OCC23105"
27 set nbwithouttri([checkplatform]) $nbt
28 set nbfree([checkplatform]) $nbl
29 set nbfreenodes([checkplatform]) $nbn
31 set max_rel_tol_diff 0.001