1 if { [array get env os_type] != "" } {
4 if { [string compare $os "windows"] != 0 } {
5 puts "TODO ?OCC12345 ALL: An exception was caught"
6 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
7 puts "TODO ?OCC12345 ALL: OCC165 Faulty"
12 puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
15 restore [locate_data_file offset_wire_019.brep] a
22 if [catch {mkoffset res1 f 1 4.8 } result] {
25 puts "OCC165 OK (case 1): function MKOFFSET works properly"
31 if [catch {mkoffset res2 f 1 -2.9 } result] {
34 puts "OCC165 OK (case 2): function MKOFFSET works properly"
41 compound a res1_1 res2_1 res
43 regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
47 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
49 puts "good_len = ${good_len}"
50 puts "length = ${len}"
51 puts "percent = ${percent}"
53 if {${percent} > ${percent_max}} {
57 regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
61 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
63 puts "good_len = ${good_len}"
64 puts "length = ${len}"
65 puts "percent = ${percent}"
67 if {${percent} > ${percent_max}} {