6 restore [locate_data_file OCC165-2.brep] f
10 if [catch {mkoffset res1 f 3 10 } result] {
11 puts "Faulty OCC165 (case 1) : function MKOFFSET works wrongly"
14 #puts "OCC165 OK (case 1): function MKOFFSET works properly"
23 if [catch {mkoffset res2 f 3 -10 } result] {
24 puts "Faulty OCC165 (case 2) : function MKOFFSET works wrongly"
27 #puts "OCC165 OK (case 2): function MKOFFSET works properly"
37 compound f res1_1 res1_2 res1_3 res2_1 res2_2 res2_3 res
39 regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
43 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
45 puts "good_len = ${good_len}"
46 puts "length = ${len}"
47 puts "percent = ${percent}"
49 if {${percent} > ${percent_max}} {
50 puts "Faulty OCC165 (case 3) : function MKOFFSET works wrongly"
54 regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_2] full len
58 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
60 puts "good_len = ${good_len}"
61 puts "length = ${len}"
62 puts "percent = ${percent}"
64 if {${percent} > ${percent_max}} {
65 puts "Faulty OCC165 (case 4) : function MKOFFSET works wrongly"
69 regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_3] full len
73 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
75 puts "good_len = ${good_len}"
76 puts "length = ${len}"
77 puts "percent = ${percent}"
79 if {${percent} > ${percent_max}} {
80 puts "Faulty OCC165 (case 5) : function MKOFFSET works wrongly"
84 regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
88 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
90 puts "good_len = ${good_len}"
91 puts "length = ${len}"
92 puts "percent = ${percent}"
94 if {${percent} > ${percent_max}} {
95 puts "Faulty OCC165 (case 6) : function MKOFFSET works wrongly"
99 regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_2] full len
103 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
105 puts "good_len = ${good_len}"
106 puts "length = ${len}"
107 puts "percent = ${percent}"
109 if {${percent} > ${percent_max}} {
110 puts "Faulty OCC165 (case 7) : function MKOFFSET works wrongly"
114 regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_3] full len
118 set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
120 puts "good_len = ${good_len}"
121 puts "length = ${len}"
122 puts "percent = ${percent}"
124 if {${percent} > ${percent_max}} {
125 puts "Faulty OCC165 (case 8) : function MKOFFSET works wrongly"