Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug160_5
1
2 puts "========================"
3 puts "BUC60775"
4 puts "OCC160"
5 puts "(CUT: 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 bcut result a b
14 puts [checkshape result]
15
16 set nf [llength [explode result f]]
17 if {$nf < 6} {
18    puts "Error : the resulting shape is unclosed!!!"
19 }
20
21 set check_square 1
22 set square 48129.6
23 set 2dviewer 0
24
25