Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug410_4
1
2 puts "========================"
3 puts " OCC410 "
4 puts "(case 4)"
5 puts "========================"
6 puts ""
7
8 restore [locate_data_file f7] b1 
9 puts [checkshape b1]
10
11 restore [locate_data_file f3] b2
12 puts [checkshape b2]
13
14
15 if [catch {bcut result b2 b1 } result] {
16     puts "Faulty OCC410: function CUT works wrongly"
17 } else {
18     puts " OCC410 OK: function CUT works properly"
19 }
20
21 set square 93.6289
22 set 2dviewer 0