fb1c01a5c51a513bbf9a37050f50df40db77b98c
[occt.git] / 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}.gif
38 puts "TEST COMPLETED"