73d0a668 |
1 | puts "============" |
2 | puts "OCC25592" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Bad result of Fillet operation |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file bug25592_tshape.brep] t |
10 | explode t e |
11 | shape c c |
12 | add t_4 c |
13 | add t_6 c |
14 | fillet r t 30 c |
15 | explode r f |
16 | |
17 | set info1 [bopargcheck r_2 #f] |
18 | if { [regexp "to be valid for BOP" ${info1}] == 1 } { |
19 | puts "1. OK : Good result of Fillet operation\n" |
20 | } else { |
21 | puts "1. Error : Bad result of Fillet operation\n" |
22 | } |
23 | |
24 | set info2 [bopargcheck r_1 #f] |
25 | if { [regexp "to be valid for BOP" ${info2}] == 1 } { |
26 | puts "2. OK : Good result of Fillet operation\n" |
27 | } else { |
28 | puts "2. Error : Bad result of Fillet operation\n" |
29 | } |
30 | |
31 | set info3 [bopargcheck r_6 #f] |
32 | if { [regexp "to be valid for BOP" ${info3}] == 1 } { |
33 | puts "3. OK : Good result of Fillet operation\n" |
34 | } else { |
35 | puts "3. Error : Bad result of Fillet operation\n" |
36 | } |
37 | |
38 | set info4 [bopargcheck r_7 #f] |
39 | if { [regexp "to be valid for BOP" ${info4}] == 1 } { |
40 | puts "4. OK : Good result of Fillet operation\n" |
41 | } else { |
42 | puts "4. Error : Bad result of Fillet operation\n" |
43 | } |
44 | |
45 | set info5 [bopargcheck r_9 #f] |
46 | if { [regexp "to be valid for BOP" ${info5}] == 1 } { |
47 | puts "5. OK : Good result of Fillet operation\n" |
48 | } else { |
49 | puts "5. Error : Bad result of Fillet operation\n" |
50 | } |