set chamf_shape propag
set chamf_edge_face  [list "  1   2"]
set chamf_dist_angle [list ".08  30"]
set chamf_dist_dist  [list ".08 .06"]
set chamf_equal_dist [list ".08    "]
if { [string compare $group dist_angle] == 0 } {
  puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
}