61c421bf |
1 | puts "TODO OCC11111 ALL: Faulty OCC132" |
2 | |
3 | puts "================" |
4 | puts "OCC538" |
5 | puts "================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file OCC538.brep] Face |
9 | checkshape Face |
10 | |
11 | point p 0.2453959532714904 -1.246869357124329 |
12 | |
13 | set res1 [b2dclassify Face p] |
14 | set info_result [split ${res1}] |
15 | |
16 | set ll [llength ${info_result}] |
17 | if {${ll} < 4} { |
18 | puts "Faulty OCC132" |
19 | } else { |
20 | if {[regexp {IN} $info_result]} { |
21 | puts "OCC132 : OK" |
22 | } else { |
23 | puts "Faulty OCC132" |
24 | } |
25 | } |