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