0024387: Tests - use system-independent fonts in test cases
[occt.git] / tests / bugs / vis / bug24288_3
... / ...
CommitLineData
1puts "============"
2puts "CR24288"
3puts "============"
4puts ""
5#######################################################################
6# Provide a text flipping
7# Test for text flipping after Z rotation
8#######################################################################
9pload VISUALIZATION
10
11vfont add [locate_data_file DejaVuSans.ttf] SansFont
12
13set m_pi 3,14
14set m_pi2 1,57
15vinit
16vpoint radP1 0 0 0
17vpoint radP2 50 50 0
18vpoint radP3 100 0 0
19vcircle circle radP1 radP2 radP3 0
20vrotate 0 -$m_pi2 0
21verase radP1 radP2 radP3
22vdimension dim -radius -text 3d -shapes circle -font SansFont
23vfit
24vmoveto 110 111
25
26set x_coord 196
27set y_coord 196
28checkcolor $x_coord $y_coord 0 1 1
29
30if { $stat != 1 } {
31 puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong."
32}
33
34# Z axis rotation
35vrotate 0 0 $m_pi
36vfit
37vmoveto 221 217
38
39set x_coord 209
40set y_coord 208
41checkcolor $x_coord $y_coord 0 1 1
42
43if { $stat != 1 } {
44 puts "Error : Highlighting of radius dimension with 3d text with flipping after z rotation is wrong."
45}
46
47set only_screen 1