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] } |
5747059b |
25 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
40093367 |
26 | puts "TEST COMPLETED" |