a87752f3 |
1 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
2 | |
3 | puts "=========" |
4 | puts " OCC497 " |
5 | puts "(case 1)" |
6 | puts "=========" |
7 | puts "" |
8 | ######################################################## |
9 | ## Result of cut and fuse operation are faulty shapes although arguments are valid. |
10 | ######################################################## |
11 | |
12 | restore [locate_data_file OCC497a.brep] a_1 |
352ffd73 |
13 | checkshape a_1 |
a87752f3 |
14 | |
15 | restore [locate_data_file OCC497b.brep] a_2 |
352ffd73 |
16 | checkshape a_2 |
a87752f3 |
17 | |
18 | if [catch {bcut result a_1 a_2 } catch_result] { |
19 | puts "Faulty OCC497:function CUT works wrongly " |
20 | } else { |
21 | puts "OCC497 : function CUT works without hangs up " |
22 | } |
23 | set square 0 |
24 | set 2dviewer 0 |