0e94a94e |
1 | |
2 | puts "=========" |
3 | puts " OCC497 " |
4 | puts "(case 4)" |
5 | puts "=========" |
6 | puts "" |
7 | ######################################################## |
8 | ## Result of cut and fuse operation are faulty shapes although arguments are valid. |
9 | ######################################################## |
10 | |
11 | restore [locate_data_file OCC497g.brep] a_1 |
352ffd73 |
12 | checkshape a_1 |
0e94a94e |
13 | |
14 | restore [locate_data_file OCC497h.brep] a_2 |
352ffd73 |
15 | checkshape a_2 |
0e94a94e |
16 | |
17 | if [catch {bfuse result a_1 a_2 } catch_result] { |
18 | puts "Faulty OCC497:function FUSE works wrongly " |
19 | } else { |
20 | puts "OCC497 : function FUSE works without hangs up " |
21 | } |
22 | set square 8710.56 |
23 | set 2dviewer 0 |