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 vfont add [locate_data_file DejaVuSans.ttf] SansFont
  12
  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 verase radP1 radP2 radP3
  19 vdimension dim1 -radius -shapes circle -font SansFont
  20 vfit
  21 vmoveto 123 158
  22
  23 set x_coord 112
  24 set y_coord 151
  25
  26 checkcolor $x_coord $y_coord 0 1 1
  27
  28 if { $stat != 1 } {
  29    puts "Error : Highlighting of radius dimension with 2d text is wrong."
  30 }
  31
  32 vinit Viewer2/View2
  33 vdisplay circle
  34 vdimension dim2 -radius -text 3d -shapes circle -font SansFont
  35 vfit
  36 vmoveto 191 196
  37
  38 set x_coord 112
  39 set y_coord 151
  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 checkview -screenshot -3d -path ${imagedir}/${test_image}.png