1set chamf_shape 8_J1.draw 2set chamf_edge_face [list " 3 2" " 9 2"] 3set chamf_dist_angle [list "0.1 60" "0.06 60"] 4set chamf_dist_dist [list "0.1 0.08" "0.12 0.08"] 5set chamf_equal_dist [list "0.1 " "0.2 "] 6if { [string compare $command chamf] == 0 } { 7 if {[string compare $group dist_angle] == 0 || [string compare $group equal_dist] == 0} { 8 puts "TODO OCC22909 All: compute of chamfer failed" 9 } 10} else { 11 if {[string compare $group dist_angle] == 0} { 12 puts "TODO OCC22909 MacOS: compute of chamfer failed" 13 } 14 if {[string compare $group dist_dist] == 0} { 15 puts "TODO OCC22909 MacOS: compute of chamfer failed" 16 } 17 if {[string compare $group equal_dist] == 0} { 18 puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_" 19 puts "TODO OCC22909 MacOS: compute of chamfer failed" 20 } 21} 22