af203d54 |
1 | puts "============" |
2 | puts "CR24412" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # TKV3d, Dimensions - Possibility to customize text position was lost |
7 | # Test position setting for linear dimension |
8 | ####################################################################### |
9 | pload ALL |
10 | |
6fb1a930 |
11 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
12 | |
af203d54 |
13 | set anImage1 $imagedir/${casename}_1.png |
14 | set anImage2 $imagedir/${casename}_2.png |
15 | |
16 | vinit Viewer1/View1 |
17 | vpoint circ_p1 0 10 30 |
18 | vpoint circ_p2 30 10 0 |
19 | vpoint circ_p3 60 10 30 |
20 | vcircle circ circ_p1 circ_p2 circ_p3 0 |
21 | vdisplay circ |
6fb1a930 |
22 | vdimension diam -diameter -shapes circ -font SansFont |
af203d54 |
23 | # Change text position |
24 | vmovedim diam 15 15 15 |
25 | vfit |
26 | |
27 | # Check that text position was changed and the text is not aligned |
28 | set x_coord 166 |
29 | set y_coord 226 |
30 | checkcolor $x_coord $y_coord 0.46 0.9 0 |
31 | if { $stat != 1 } { |
32 | puts "Error : Text position of dimension is incorrect." |
33 | } |
34 | |
35 | vdump $anImage1 |
36 | |
37 | # Update dimension parameters and set automatic text positioning |
0499eb06 |
38 | vdimparam diam -flyout -5 |
af203d54 |
39 | vfit |
40 | |
41 | # Check that text position was changed according to flyout |
42 | set x_coord 213 |
43 | set y_coord 179 |
44 | checkcolor $x_coord $y_coord 0.46 0.9 0 |
45 | if { $stat != 1 } { |
46 | puts "Error : Text position of dimension after layout changing is incorrect." |
47 | } |
48 | |
49 | vdump $anImage2 |