a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2" |
2 | puts "TODO OCC12345 ALL: Faulty OCC446" |
58cf74e0 |
3 | ###puts "TODO OCC12345 ALL: Error : The area of result shape is" |
a87752f3 |
4 | |
5 | puts "========" |
6 | puts "OCC446" |
7 | puts "OCC447" |
8 | puts "(case 1)" |
9 | puts "========" |
10 | puts "" |
11 | ###################################### |
12 | ## As result I have fail on shape that it is not closed. |
13 | ###################################### |
14 | |
15 | restore [locate_data_file OCC446a.brep] result |
16 | |
17 | set che [checkshape result] |
18 | if { [regexp {Faulty} $che ] == 1 } { |
19 | puts "Faulty OCC446 (case 1): Source shape is NotClosed" |
20 | } else { |
21 | puts "OCC446 OK (case 1): Source shape is Closed" |
22 | } |
58cf74e0 |
23 | checkprops result -s 108.845 |
a87752f3 |
24 | set 2dviewer 0 |
25 | |