0e94a94e |
1 | puts "========" |
2 | puts "OCC221" |
3 | puts "========" |
4 | puts "" |
5 | ###################################################################### |
6 | ##After loading attached file (one simple face) checkshape give a problem (Bad Orientation of SubShape) |
7 | ## but I believe that this face is correct. Also I believe that face is vitiated during performing checkshape |
8 | ## (perhaps - in BRepCheck_Face::ClassifyWire()) |
9 | ###################################################################### |
10 | |
11 | restore [locate_data_file OCC221.brep] result |
12 | set che [checkshape result r] |
13 | if { [regexp {OK} $che] != 1 } { |
14 | puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly" |
15 | } else { |
16 | puts "OCC221 OK (checkshape) : Checkshape command works properly" |
17 | } |
18 | puts "" |
19 | set che [checkshape result] |
20 | if { [regexp {Faulty} $che] == 1} { |
21 | puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly" |
22 | } else { |
23 | puts "OCC221 OK (checkshape) : Checkshape command works properly" |
24 | } |
25 | |
26 | set square 425.537 |
27 | set 2dviewer 0 |
28 | |
29 | |