puts "============"
puts "CR24288: Provide a text flipping"
puts "Test for text flipping after Y rotation"
puts "============"
puts ""

pload VISUALIZATION
vfont add [locate_data_file DejaVuSans.ttf] SansFont

set m_pi 3,14
set m_pi2 1,57
vinit View1
vpoint radP1 0 0 0
vpoint radP2 50 50 0
vpoint radP3 100 0 0
vcircle circle radP1 radP2 radP3 0
vrotate 0 -$m_pi2 0
verase radP1 radP2 radP3
vdimension dim -radius -text 3d -shapes circle -font SansFont
vfit
vmoveto 110 111
checkcolor 196 196 0 1 1
if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong." }

# Y axis rotation
vrotate 0 $m_pi 0
vfit
vmoveto 159 246
checkcolor 113 294 0 1 1
if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text with flipping after y rotation is wrong." }

vdump $imagedir/${casename}.png
