a87752f3 |
1 | |
2 | puts "===========" |
3 | puts "BUC60708" |
4 | puts "===========" |
5 | |
6 | restore [locate_data_file buc60708a.brep] a |
352ffd73 |
7 | checkshape a |
a87752f3 |
8 | restore [locate_data_file buc60708b.brep] b |
352ffd73 |
9 | checkshape b |
a87752f3 |
10 | |
11 | bcommon result a b |
12 | |
13 | set faces [explode result f] |
14 | set n [llength $faces] |
15 | |
16 | set end [lindex $faces [expr $n-1]] |
17 | |
18 | if { $end != "result_4" } { |
19 | puts " Faulty :Common operation was made wrongly" |
20 | } else { |
21 | puts " Common operation was made successfully" |
22 | } |
23 | set square 13.4871 |
24 | set 2dviewer 0 |