f1aa2b62 |
1 | puts "========" |
2 | puts "OCC745" |
3 | puts "========" |
4 | puts "" |
5 | ############################################# |
7b5e532f |
6 | # Negative offset parameter leads to positive offset and vice- |
f1aa2b62 |
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 | |
58cf74e0 |
23 | checkprops result -l 307.876 |
24 | checkshape result |
25 | checksection result |
5747059b |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |