645ff3b1 |
1 | puts "================" |
2 | puts "OCC26206" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # BRepClass_FaceClassifier returns TopAbs_OUT for internal point |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug26206_group_1.brep] a |
10 | |
11 | point p 0.012676794773312086 0.04799218752935417 |
12 | |
13 | set info [b2dclassify a p 1e-05] |
14 | |
15 | if { [regexp "The point is IN shape" $info] == 1 } { |
16 | puts "OK: point is IN shape" |
17 | } else { |
18 | puts "Error : point should be IN shape" |
19 | } |
20 | |
21 | pcurve a |
22 | |
23 | #v2d2 |
24 | view 1 -2D- 728 20 400 400 |
25 | 2dfit |
26 | xwd ${imagedir}/${test_image}.png |