5 #######################################################################
6 # TKV3d, Dimensions - Possibility to customize text position was lost
7 # Test position setting for linear dimension
8 #######################################################################
11 set anImage1 $imagedir/${casename}_1.png
12 set anImage2 $imagedir/${casename}_2.png
15 vpoint circ_p1 0 10 30
16 vpoint circ_p2 30 10 0
17 vpoint circ_p3 60 10 30
18 vcircle circ circ_p1 circ_p2 circ_p3 0
20 vdimension diam -diameter -shapes circ
21 # Change text position
22 vmovedim diam 15 15 15
25 # Check that text position was changed and the text is not aligned
28 checkcolor $x_coord $y_coord 0.46 0.9 0
30 puts "Error : Text position of dimension is incorrect."
35 # Update dimension parameters and set automatic text positioning
36 vdimparam diam -flyout -5
39 # Check that text position was changed according to flyout
42 checkcolor $x_coord $y_coord 0.46 0.9 0
44 puts "Error : Text position of dimension after layout changing is incorrect."