5 #############################################
6 # Negative offset parameter leads to positive offset and vise
7 # versa. Result of the offset represent an edge instead of wire.
8 #############################################
10 restore [locate_data_file OCC745_nb1.brep] w
11 mkoffset result w 1 -1
13 set list [whatis result_1]
15 if { [regexp {WIRE} $list] == 0 } {
21 renamevar result_1 result