tests/v3d/dimensions/bug24412_1

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