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