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