0025235: Draw Harness - improve commands vdimension and vdimparam
[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 dim -radius -text 3d -shapes circle
21 vfit
22 vmoveto 110 111
23
24 set x_coord 196
25 set y_coord 196
26 checkcolor $x_coord $y_coord 0 1 1
27
28 if { $stat != 1 } {
29   puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong."
30 }
31
32 # X axis rotation
33 vrotate $m_pi 0 0
34 vfit
35 vmoveto 208 200
36
37 set x_coord 295
38 set y_coord 113
39 checkcolor $x_coord $y_coord 0 1 1
40
41 if { $stat != 1 } {
42   puts "Error : Highlighting of radius dimension with 3d text with flipping after x rotation is wrong."
43 }
44
45 set only_screen 1