tests/chamfer/end

   1 restore [locate_data_file $chamf_shape] sh
   2 if { [dval SCALE] != 0 } {
   3    tscale sh 0 0 0 SCALE
   4 }
   5 explode sh F
   6 renamevar sh Ed
   7 explode Ed E
   8
   9 if { [string compare $group "dist_angle"] == 0 } {
  10    set chamf_type A
  11    set chamf_parameters $chamf_dist_angle
  12 }
  13 if { [string compare $group "dist_dist"] == 0 } {
  14    set chamf_type ""
  15    set chamf_parameters $chamf_dist_dist
  16 }
  17 if { [string compare $group "equal_dist"] == 0 } {
  18    set chamf_type S
  19    set chamf_parameters $chamf_equal_dist
  20 }
  21
  22 compute_chamf result Ed sh
  23
  24 catch { puts [checkshape result] }
  25 clear
  26 smallview
  27 donly result
  28 fit
  29
  30 if { [info exists imagedir] == 0 } {
  31    set imagedir .
  32 }
  33 if { [info exists test_image ] == 0 } {
  34    set test_image photo
  35 }
  36
  37 xwd $imagedir/${test_image}.png
  38 puts "TEST COMPLETED"