a87752f3 |
1 | puts "=========" |
2 | puts " OCC497 " |
3 | puts "(case 1)" |
4 | puts "=========" |
5 | puts "" |
6 | ######################################################## |
7 | ## Result of cut and fuse operation are faulty shapes although arguments are valid. |
8 | ######################################################## |
9 | |
10 | restore [locate_data_file OCC497a.brep] a_1 |
352ffd73 |
11 | checkshape a_1 |
a87752f3 |
12 | |
13 | restore [locate_data_file OCC497b.brep] a_2 |
352ffd73 |
14 | checkshape a_2 |
a87752f3 |
15 | |
69b558c4 |
16 | explode a_2 so |
17 | bop a_2_1 a_2_2 |
18 | bopfuse r1 |
19 | |
20 | if [catch {bcut result a_1 r1 } catch_result] { |
a87752f3 |
21 | puts "Faulty OCC497:function CUT works wrongly " |
22 | } else { |
23 | puts "OCC497 : function CUT works without hangs up " |
24 | } |
69b558c4 |
25 | set square 646.969 |
a87752f3 |
26 | set 2dviewer 0 |