OCCT

set chamf_shape test-fillet.brep
set chamf_edge_face  [list "  31   13" "   8    9" "   5    1" "  19    6" "  22   13" "  20   11" "  36   11" "  37   11" "   6    1" "  23    9" "  38   13" "  21    7" "  17    6" "   7    1" "  24    9" "  18    6" "  27   11"]
set chamf_dist_angle [list "0.03   60" "0.05   30" "0.05   30" "0.03   45" "0.05   30" "0.03   60" "0.03   30" "0.03   30" "0.05   30" "0.06   30" "0.02   60" "0.03   45" "0.04   45" "0.05   30" "0.05   30" "0.04   30" "0.03   60"]
set chamf_dist_dist  [list "0.03 0.04" "0.05 0.04" "0.05 0.02" "0.03 0.03" "0.05 0.04" "0.03 0.05" "0.03 0.02" "0.03 0.02" "0.05 0.04" "0.06 0.03" "0.02 0.04" "0.03 0.03" "0.04 0.04" "0.05 0.04" "0.05 0.02" "0.04 0.03" "0.03 0.06"]
set chamf_equal_dist [list "0.03     " "0.05     " "0.05     " "0.03     " "0.05     " "0.03     " "0.03     " "0.03     " "0.05     " "0.06     " "0.02     " "0.03     " "0.04     " "0.05     " "0.05     " "0.04     " "0.03     "]
if { [string compare $command chamf_sequence] == 0 } {
  if {[string compare $group dist_angle] == 0} {
    puts "TODO OCC22909 All: compute of chamfer failed"
    puts "TODO OCC22909 All:Faulty shapes in variables faulty_1 to faulty_6"
  }
  if {[string compare $group dist_dist] == 0} {
    puts "TODO OCC22909 All: compute of chamfer failed"
  }
  if {[string compare $group equal_dist] == 0} {
    puts "TODO OCC22909 All:Faulty shapes in variables faulty_1 to faulty_10"
  }
}