0e94a94e |
1 | |
2 | puts "=========" |
3 | puts " OCC490 " |
4 | puts "=========" |
5 | puts "" |
6 | ######################################################## |
7 | ## Result of fuse operation is faulty shape although arguments are valid |
8 | ######################################################## |
9 | |
10 | restore [locate_data_file OCC490a.brep] a_1 |
352ffd73 |
11 | checkshape a_1 |
0e94a94e |
12 | |
13 | restore [locate_data_file OCC490b.brep] a_2 |
352ffd73 |
14 | checkshape a_2 |
0e94a94e |
15 | |
16 | if [catch {bfuse result a_1 a_2 } catch_result] { |
17 | puts "Faulty OCC490: command FUSE works wrongly" |
18 | } else { |
19 | puts "OCC490 : function FUSE works without hangs up " |
20 | } |
21 | set square 2744.08 |
22 | set 2dviewer 0 |