tests/bugs/vis/bug24412_2

   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 angular 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  ang_p1 0  0 30
  18 vpoint  ang_p2 30 0  0
  19 vpoint  ang_p3 60 0 30
  20 vdimension ang -angle -shapes ang_p1 ang_p2 ang_p3 -font SansFont
  21 vmovedim ang 5 0 5
  22 vfit
  23
  24 # Check that text position was changed and the text is not aligned
  25 set x_coord 60
  26 set y_coord 189
  27 checkcolor $x_coord $y_coord 0.46 0.9 0
  28 if { $stat != 1 } {
  29   puts "Error : Text position of dimension is incorrect."
  30 }
  31
  32 vdump $anImage1
  33
  34
  35 # Update dimension parameters and set automatic text positioning
  36 vdimparam ang -flyout -5
  37 vfit
  38
  39 # Check that text position was changed according to flyout
  40 set x_coord 206
  41 set y_coord 312
  42 checkcolor $x_coord $y_coord 0.46 0.9 0
  43 if { $stat != 1 } {
  44   puts "Error : Text position of dimension after layout changing is incorrect."
  45 }
  46
  47 vdump $anImage2