restore [locate_data_file $chamf_shape] sh if { [dval SCALE] != 0 } { tscale sh 0 0 0 SCALE } explode sh F renamevar sh Ed explode Ed E if { [string compare $group "dist_angle"] == 0 } { set chamf_type A set chamf_parameters $chamf_dist_angle } if { [string compare $group "dist_dist"] == 0 } { set chamf_type "" set chamf_parameters $chamf_dist_dist } if { [string compare $group "equal_dist"] == 0 } { set chamf_type S set chamf_parameters $chamf_equal_dist } compute_chamf result Ed sh catch { puts [checkshape result] } clear smallview donly result fit if { [info exists imagedir] == 0 } { set imagedir . } if { [info exists test_image ] == 0 } { set test_image photo } xwd $imagedir/${test_image}.png puts "TEST COMPLETED"