d26de813d9b06c4319c589df15c0ddfdba009681
[occt.git] / tests / bugs / vis / bug24412_1
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
11 set anImage1 $imagedir/${casename}_1.png
12 set anImage2 $imagedir/${casename}_2.png
13
14 vinit Viewer1/View1
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
19 vdisplay circ
20 vdimension diameter name=diam circ
21 vdisplay diam
22 # Change text position
23 vmovedim diam 15 15 15
24 vfit
25
26 # Check that text position was changed and the text is not aligned
27 set x_coord 166
28 set y_coord 226
29 checkcolor $x_coord $y_coord 0.46 0.9 0
30 if { $stat != 1 } {
31   puts "Error : Text position of dimension is incorrect."
32 }
33
34 vdump $anImage1
35
36 # Update dimension parameters and set automatic text positioning
37 vdimparam diam flyout=-5
38 vfit
39
40 # Check that text position was changed according to flyout
41 set x_coord 213
42 set y_coord 179
43 checkcolor $x_coord $y_coord 0.46 0.9 0
44 if { $stat != 1 } {
45   puts "Error : Text position of dimension after layout changing is incorrect."
46 }
47
48 vdump $anImage2