tests/bugs/vis/bug24133_3

   1 puts "============"
   2 puts "CR24133"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Development of improvement of dimensions implementation
   7 #  Radius dimension
   8 #######################################################################
   9 pload VISUALIZATION
  10
  11 vinit
  12 vpoint radP1 0 0 0
  13 vpoint radP2 50 50 0
  14 vpoint radP3 100 0 0
  15 vcircle circle radP1 radP2 radP3 0
  16 verase radP1 radP2 radP3
  17 vdimension radius name=dim1 circle
  18 vdisplay dim1
  19 vfit
  20 vmoveto 123 158
  21
  22 set x_coord 112
  23 set y_coord 151
  24
  25 checkcolor $x_coord $y_coord 0 1 1
  26
  27 if { $stat != 1 } {
  28    puts "Error : Highlighting of radius dimension with 2d text is wrong."
  29 }
  30
  31 vinit Viewer2/View2
  32 vdisplay circle
  33 vdimension radius name=dim2 text=3d circle
  34 vdisplay dim2
  35 vfit
  36 vmoveto 191 196
  37
  38 set x_coord 129
  39 set y_coord 172
  40
  41 checkcolor $x_coord $y_coord 0 1 1
  42
  43 if { $stat != 1 } {
  44    puts "Error : Highlighting of radius dimension with 3d text is wrong."
  45 }
  46
  47 set only_screen 1