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