8e8655d8d5952ff45fd1abb284070c1f200e6f95
[occt.git] / tests / bugs / vis / bug24288_1
1 puts "============"
2 puts "CR24288"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Provide a text flipping
7 #  Test for text flipping after X 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 # X axis rotation
34 vrotate $m_pi 0 0
35 vfit
36 vmoveto 208 200
37
38 set x_coord 295
39 set y_coord 113
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 x rotation is wrong."
44 }
45
46 set only_screen 1