set chamf_shape 8_B1.draw
set chamf_edge_face  [list "   1    1" "   2    1" "  7    2"]
set chamf_dist_angle [list "0.08   30" "0.06   30" "0.1   30"]
set chamf_dist_dist  [list "0.05 0.05" "0.05 0.09" "0.1 0.08"]
set chamf_equal_dist [list "0.05     " "0.05     " "0.2     "]
if { [string compare $command chamf_sequence] == 0 && [string compare $group equal_dist] == 0 } {
  set os "ALL"
  if {[array get env os_type] != ""} {
    set os $env(os_type)
  }
  puts "TODO ?OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_3"
  puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
}