tests/bugs/vis/bug24412_1

   1 puts "============"
   2 puts "CR24412"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  TKV3d, Dimensions - Possibility to customize text position was lost
   7 #  Test position setting for linear dimension
   8 #######################################################################
   9 pload ALL
  10
  11 vfont add [locate_data_file DejaVuSans.ttf] SansFont
  12
  13 set anImage1 $imagedir/${casename}_1.png
  14 set anImage2 $imagedir/${casename}_2.png
  15
  16 vinit Viewer1/View1
  17 vpoint  circ_p1 0  10 30
  18 vpoint  circ_p2 30 10  0
  19 vpoint  circ_p3 60 10 30
  20 vcircle circ circ_p1 circ_p2 circ_p3 0
  21 vdisplay circ
  22 vdimension diam -diameter -shapes circ -font SansFont
  23 # Change text position
  24 vmovedim diam 15 15 15
  25 vfit
  26
  27 # Check that text position was changed and the text is not aligned
  28 set x_coord 166
  29 set y_coord 226
  30 checkcolor $x_coord $y_coord 0.46 0.9 0
  31 if { $stat != 1 } {
  32   puts "Error : Text position of dimension is incorrect."
  33 }
  34
  35 vdump $anImage1
  36
  37 # Update dimension parameters and set automatic text positioning
  38 vdimparam diam -flyout -5
  39 vfit
  40
  41 # Check that text position was changed according to flyout
  42 set x_coord 213
  43 set y_coord 179
  44 checkcolor $x_coord $y_coord 0.46 0.9 0
  45 if { $stat != 1 } {
  46   puts "Error : Text position of dimension after layout changing is incorrect."
  47 }
  48
  49 vdump $anImage2