puts "============" puts "CR24288" puts "============" puts "" ####################################################################### # Provide a text flipping # Test for text flipping after Z rotation ####################################################################### pload VISUALIZATION vfont add [locate_data_file DejaVuSans.ttf] SansFont set m_pi 3,14 set m_pi2 1,57 vinit 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 set x_coord 196 set y_coord 196 checkcolor $x_coord $y_coord 0 1 1 if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong." } # Z axis rotation vrotate 0 0 $m_pi vfit vmoveto 221 217 set x_coord 209 set y_coord 208 checkcolor $x_coord $y_coord 0 1 1 if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text with flipping after z rotation is wrong." } checkview -screenshot -3d -path ${imagedir}/${test_image}.png