4c2f5b8afa64b12277374d5afa5e2e1e95db6185
[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 set m_pi 3,14
12 set m_pi2 1,57
13 vinit
14 vpoint radP1 0 0 0
15 vpoint radP2 50 50 0
16 vpoint radP3 100 0 0
17 vcircle circle radP1 radP2 radP3 0
18 vrotate 0 -$m_pi2 0
19 verase radP1 radP2 radP3
20 vdimension radius name=dim text=3d circle
21 vdisplay dim
22 vfit
23 vmoveto 110 111
24
25 set x_coord 196
26 set y_coord 196
27 checkcolor $x_coord $y_coord 0 1 1
28
29 if { $stat != 1 } {
30   puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong."
31 }
32
33 # Z axis rotation
34 vrotate 0 0 $m_pi
35 vfit
36 vmoveto 221 217
37
38 set x_coord 209
39 set y_coord 208
40 checkcolor $x_coord $y_coord 0 1 1
41
42 if { $stat != 1 } {
43   puts "Error : Highlighting of radius dimension with 3d text with flipping after z rotation is wrong."
44 }
45
46 set only_screen 1