a51f3e290099d1f85c4476d2029f7dc871e7281f
[occt.git] / tests / bugs / vis / bug24412_2
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 angular 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  ang_p1 0  0 30
16 vpoint  ang_p2 30 0  0
17 vpoint  ang_p3 60 0 30
18 vdimension angle name=ang ang_p1 ang_p2 ang_p3
19 vdisplay ang
20 vmovedim ang 5 0 5
21 vfit
22
23 # Check that text position was changed and the text is not aligned
24 set x_coord 60
25 set y_coord 189
26 checkcolor $x_coord $y_coord 0.46 0.9 0
27 if { $stat != 1 } {
28   puts "Error : Text position of dimension is incorrect."
29 }
30
31 vdump $anImage1
32
33
34 # Update dimension parameters and set automatic text positioning
35 vdimparam ang flyout=-5
36 vfit
37
38 # Check that text position was changed according to flyout
39 set x_coord 206
40 set y_coord 312
41 checkcolor $x_coord $y_coord 0.46 0.9 0
42 if { $stat != 1 } {
43   puts "Error : Text position of dimension after layout changing is incorrect."
44 }
45
46 vdump $anImage2