tests/bugs/vis/bug24288_2

   1 puts "============"
   2 puts "CR24288"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Provide a text flipping
   7 #  Test for text flipping after Y rotation
   8 #######################################################################
   9 pload VISUALIZATION
  10
  11 set m_pi 3,14
  12 set m_pi2 1,57
  13 vinit
  14 vpoint radP1 0 0 0
  15 vpoint radP2 50 50 0
  16 vpoint radP3 100 0 0
  17 vcircle circle radP1 radP2 radP3 0
  18 vrotate 0 -$m_pi2 0
  19 verase radP1 radP2 radP3
  20 vdim -radius -name=dim -text=3d circle
  21 vdisplay dim
  22 vfit
  23 vmoveto 102 144
  24
  25 set x_coord 153
  26 set y_coord 153
  27 checkcolor $x_coord $y_coord 0 1 1
  28
  29 if { $stat != 1 } {
  30   puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong."
  31 }
  32
  33 # Y axis rotation
  34 vrotate 0 $m_pi 0
  35 vfit
  36 vmoveto 205 205
  37
  38 set x_coord 96
  39 set y_coord 296
  40 checkcolor $x_coord $y_coord 0 1 1
  41
  42 if { $stat != 1 } {
  43   puts "Error : Highlighting of radius dimension with 3d text with flipping after y rotation is wrong."
  44 }
  45
  46 set only_screen 1