Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug410_4
CommitLineData
a87752f3 1
2puts "========================"
3puts " OCC410 "
4puts "(case 4)"
5puts "========================"
6puts ""
7
8restore [locate_data_file f7] b1
9puts [checkshape b1]
10
11restore [locate_data_file f3] b2
12puts [checkshape b2]
13
14
15if [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
21set square 93.6289
22set 2dviewer 0