8418c617 |
1 | restore [locate_data_file $chamf_shape] sh |
40093367 |
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 | |
88f8fc81 |
37 | xwd $imagedir/${test_image}.png |
40093367 |
38 | puts "TEST COMPLETED" |