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 vfont add [locate_data_file DejaVuSans.ttf] SansFont
  12
  13 set m_pi 3,14
  14 set m_pi2 1,57
  15 vinit
  16 vpoint radP1 0 0 0
  17 vpoint radP2 50 50 0
  18 vpoint radP3 100 0 0
  19 vcircle circle radP1 radP2 radP3 0
  20 vrotate 0 -$m_pi2 0
  21 verase radP1 radP2 radP3
  22 vdimension dim -radius -text 3d -shapes circle -font SansFont
  23 vfit
  24 vmoveto 110 111
  25
  26 set x_coord 196
  27 set y_coord 196
  28 checkcolor $x_coord $y_coord 0 1 1
  29
  30 if { $stat != 1 } {
  31   puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong."
  32 }
  33
  34 # X axis rotation
  35 vrotate $m_pi 0 0
  36 vfit
  37 vmoveto 208 200
  38
  39 set x_coord 295
  40 set y_coord 113
  41 checkcolor $x_coord $y_coord 0 1 1
  42
  43 if { $stat != 1 } {
  44   puts "Error : Highlighting of radius dimension with 3d text with flipping after x rotation is wrong."
  45 }
  46
  47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png