e8605596 |
1 | set shouldFailed 0 |
2 | |
3 | if { $group eq "dist_angle" && $command eq "chamf" } { |
4 | if { ($test_image eq "A3" && $chamf_shape eq "test-fillet.brep") || |
5 | ($test_image eq "E5" && $chamf_shape eq "CCH_testchet.rle") || |
6 | ($test_image eq "A1" && $chamf_shape eq "CCH_001_ahdb.rle") || |
7 | ($test_image eq "A4" && $chamf_shape eq "test-fillet.brep") || |
8 | ($test_image eq "A5" && $chamf_shape eq "test-fillet.brep") } { |
9 | set shouldFailed 1 |
10 | } |
11 | } elseif { $group eq "dist_angle" && $command eq "chamf_sequence" } { |
12 | if { ($test_image eq "A1" && $chamf_shape eq "CCH_001_ahdb.rle") || |
13 | ($test_image eq "A4" && $chamf_shape eq "test-fillet.brep") } { |
14 | set shouldFailed 1 |
15 | } |
16 | } |
17 | |
18 | if {$shouldFailed} { |
19 | puts "TODO OCC33548 Windows: compute of chamfer failed" |
20 | } |
21 | |
8418c617 |
22 | restore [locate_data_file $chamf_shape] sh |
40093367 |
23 | if { [dval SCALE] != 0 } { |
24 | tscale sh 0 0 0 SCALE |
25 | } |
26 | explode sh F |
27 | renamevar sh Ed |
28 | explode Ed E |
29 | |
30 | if { [string compare $group "dist_angle"] == 0 } { |
31 | set chamf_type A |
32 | set chamf_parameters $chamf_dist_angle |
33 | } |
34 | if { [string compare $group "dist_dist"] == 0 } { |
35 | set chamf_type "" |
36 | set chamf_parameters $chamf_dist_dist |
37 | } |
38 | if { [string compare $group "equal_dist"] == 0 } { |
1d54b807 |
39 | set chamf_type "" |
40093367 |
40 | set chamf_parameters $chamf_equal_dist |
41 | } |
42 | |
43 | compute_chamf result Ed sh |
44 | |
45 | catch { puts [checkshape result] } |
5747059b |
46 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
40093367 |
47 | puts "TEST COMPLETED" |