0e94a94e |
1 | |
2 | puts "========================" |
3 | puts "BUC60775" |
4 | puts "OCC160" |
5 | puts "(FUSE: A and B)" |
6 | puts "========================" |
7 | |
8 | restore [locate_data_file buc60775a.brep] a |
9 | puts [checkshape a] |
10 | restore [locate_data_file buc60775b.brep] b |
11 | puts [checkshape b] |
12 | |
13 | bfuse result a b |
14 | puts [checkshape result] |
15 | |
16 | set nf [llength [explode result f]] |
17 | |
18 | if {$nf < 6} { |
19 | puts "Error : the resulting shape is unclosed!!!" |
20 | } |
21 | |
22 | set check_square 1 |
23 | set square 328116 |
24 | set 2dviewer 0 |
25 | |
26 | |