0e94a94e |
1 | |
2 | puts "========================" |
3 | puts "BUC60775" |
4 | puts "OCC160" |
5 | puts "(COMMON: 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 | bcommon 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 | |
58cf74e0 |
21 | checkprops result -s 94067.7 |
5747059b |
22 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
0e94a94e |
23 | |