352ffd73 |
1 | |
2 | puts "========================" |
3 | puts "OCC528" |
4 | puts "========================" |
5 | puts "" |
6 | ############################################## |
7 | ## Result of bcut command is faulty although arguments are valid |
8 | ############################################## |
9 | |
10 | restore [locate_data_file OCC528_1.brep] c1 |
11 | checkshape c1 |
12 | |
13 | restore [locate_data_file OCC528_2.brep] c2 |
14 | checkshape c2 |
15 | |
16 | if { [catch { bcut result c1 c2 } catch_result] } { |
17 | puts "OCC528 Faulty: function BCUT works wrongly" |
18 | } else { |
19 | puts "OCC528 OK:function BCUT works properly" |
20 | } |
21 | |
22 | set square 124.092 |
23 | set 2dviewer 0 |