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