tests/bugs/vis/bug24133_4

   1 puts "============"
   2 puts "CR24133"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Development of improvement of dimensions implementation
   7 #  Diameter dimension
   8 #######################################################################
   9 pload VISUALIZATION
  10
  11 vfont add [locate_data_file DejaVuSans.ttf] SansFont
  12
  13 vinit
  14 vpoint diamP1 0 0 0
  15 vpoint diamP2 50 50 0
  16 vpoint diamP3 100 0 0
  17 vcircle circle diamP1 diamP2 diamP3 0
  18 verase diamP1 diamP2 diamP3
  19 vdimension dim1 -diameter -shapes circle -font SansFont
  20 vfit
  21 vmoveto 208 205
  22
  23 set x_coord 296
  24 set y_coord 257
  25
  26 checkcolor $x_coord $y_coord 0 1 1
  27
  28 if { $stat != 1 } {
  29    puts "Error : Highlighting of diameter dimension with 2d text is wrong."
  30 }
  31
  32 vinit Viewer2/View2
  33 vdisplay circle
  34 vdimension dim2 -diameter -text 3d -shapes circle -font SansFont
  35 vfit
  36 vmoveto 208 205
  37
  38 set x_coord 296
  39 set y_coord 257
  40
  41 checkcolor $x_coord $y_coord 0 1 1
  42
  43 if { $stat != 1 } {
  44    puts "Error : Highlighting of diameter dimension with 3d text is wrong."
  45 }
  46
  47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png