tests/v3d/dimensions/bug24288_1

   1 puts "============"
   2 puts "CR24288: Provide a text flipping"
   3 puts "Test for text flipping after X 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 # X axis rotation
  26 vrotate $m_pi 0 0
  27 vfit
  28 vmoveto 208 200
  29 checkcolor 295 113 0 1 1
  30 if { $stat != 1 } { puts "Error : Highlighting of radius dimension with 3d text with flipping after x rotation is wrong." }
  31
  32 vdump $imagedir/${casename}.png