0d828ac8 |
1 | puts "============" |
2 | puts "CR24288: Provide a text flipping" |
3 | puts "Test for text flipping after Y rotation" |
4 | puts "============" |
5 | puts "" |
6 | |
7 | pload VISUALIZATION |
8 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
9 | |
10 | set m_pi 3,14 |
11 | set m_pi2 1,57 |
12 | vinit View1 |
13 | vpoint radP1 0 0 0 |
14 | vpoint radP2 50 50 0 |
15 | vpoint radP3 100 0 0 |
16 | vcircle circle radP1 radP2 radP3 0 |
17 | vrotate 0 -$m_pi2 0 |
18 | verase radP1 radP2 radP3 |
19 | vdimension dim -radius -text 3d -shapes circle -font SansFont |
20 | vfit |
21 | vmoveto 110 111 |
22 | checkcolor 196 196 0 1 1 |
23 | if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong." } |
24 | |
25 | # Y axis rotation |
26 | vrotate 0 $m_pi 0 |
27 | vfit |
28 | vmoveto 159 246 |
29 | checkcolor 113 294 0 1 1 |
30 | if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text with flipping after y rotation is wrong." } |
31 | |
32 | vdump $imagedir/${casename}.png |