1 restore [locate_data_file $chamf_shape] sh
2 if { [dval SCALE] != 0 } {
9 if { [string compare $group "dist_angle"] == 0 } {
11 set chamf_parameters $chamf_dist_angle
13 if { [string compare $group "dist_dist"] == 0 } {
15 set chamf_parameters $chamf_dist_dist
17 if { [string compare $group "equal_dist"] == 0 } {
19 set chamf_parameters $chamf_equal_dist
22 compute_chamf result Ed sh
24 catch { puts [checkshape result] }
25 checkview -display result -2d -path ${imagedir}/${test_image}.png