74f764ba |
1 | puts "================" |
2 | puts "OCC23849" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # BOP regression |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC23849 |
10 | |
11 | restore [locate_data_file bug23849_segment_1.brep] b1 |
12 | explode b1 f |
13 | |
14 | point p2D 4.1882396063720497 50.643343428894831 |
15 | |
16 | set info [b2dclassify b1_1 p2D] |
17 | set check [regexp "ON" $info] |
18 | |
19 | if { ${check} == 1 } { |
20 | puts "OK ${BugNumber}" |
21 | } else { |
22 | puts "Faulty ${BugNumber}" |
23 | } |