1 set chamf_shape 8_J1.draw
2 set chamf_edge_face [list " 3 2" " 9 2"]
3 set chamf_dist_angle [list "0.1 60" "0.06 60"]
4 set chamf_dist_dist [list "0.1 0.08" "0.12 0.08"]
5 set chamf_equal_dist [list "0.1 " "0.2 "]
6 if { [string compare $command chamf] == 0 } {
7 if {[string compare $group dist_angle] == 0 || [string compare $group equal_dist] == 0} {
8 puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
12 if {[array get env os_type] != ""} {
15 if {[string compare $group dist_angle] == 0} {
16 puts "TODO ?OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
18 if {[string compare $group equal_dist] == 0} {
19 puts "TODO ?OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"