f1aa2b62 |
1 | puts "========" |
2 | puts "OCC745" |
3 | puts "========" |
4 | puts "" |
5 | ############################################# |
6 | # Negative offset parameter leads to positive offset and vise |
7 | # versa. Result of the offset represent an edge instead of wire. |
8 | ############################################# |
9 | |
10 | restore [locate_data_file OCC745_nb1.brep] w |
11 | mkoffset result w 1 -1 |
12 | |
13 | set list [whatis result_1] |
14 | |
15 | if { [regexp {WIRE} $list] == 0 } { |
16 | puts "Faulty OCC745" |
17 | } else { |
18 | puts "OCC745 OK" |
19 | } |
20 | |
21 | renamevar result_1 result |
22 | |
0e0f7a7c |
23 | set length 320.442 |
24 | set 2dviewer 1 |