| 1 | set chamf_shape ccv |
| 2 | set chamf_edge_face [list " 3 2" " 9 2"] |
| 3 | set chamf_dist_angle [list "0.08 60" "0.06 60"] |
| 4 | set chamf_dist_dist [list " 0.1 0.2" " 0.1 0.2"] |
| 5 | set chamf_equal_dist [list " 0.1 " "0.1 "] |
| 6 | if { [string compare $command chamf] == 0 } { |
| 7 | if {[string compare $group dist_angle] == 0 || [string compare $group dist_dist] == 0} { |
| 8 | puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed" |
| 9 | } |
| 10 | } else { |
| 11 | set os "ALL" |
| 12 | if {[array get env os_type] != ""} { |
| 13 | set os $env(os_type) |
| 14 | } |
| 15 | if {[string compare $group dist_angle] == 0} { |
| 16 | puts "TODO OCC22909 All:Faulty shapes in variables faulty_1 to faulty_12" |
| 17 | } |
| 18 | } |