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