8f9a9b9d |
1 | puts "================" |
2 | puts "OCC23777" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # 2D-Classifier algorithm produces wrong results for a point and face. |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC23777 |
10 | |
11 | restore [locate_data_file bug23777_b1.brep] b1 |
12 | |
13 | point p2D 0.062260538576946696 249583.00418413401 |
14 | |
15 | set info [b2dclassify b1 p2D] |
16 | set check [regexp "IN" $info] |
17 | |
18 | if { ${check} == 1 } { |
19 | puts "OK ${BugNumber}" |
20 | } else { |
21 | puts "Faulty ${BugNumber}" |
22 | } |