tests/bugs/vis/bug23652

   1 puts "========"
   2 puts "OCC23652"
   3 puts "========"
   4
   5 ###############################################################################
   6 # Non zoomable text with alignment slides away when zooming view
   7 ###############################################################################
   8
   9 vinit
  10 vtrihedron tri
  11 vdrawtext text0 Default -pos 0.0 0.0 0.0 -color 1.0 1.0 1.0 -halign left -valign bottom -angle 0 -zoom 1 -height 20 -aspect regular
  12 vdrawtext text1 Right_Align -pos 0.0 0.0 0.0 -color 1.0 1.0 1.0 -halign right -valign bottom -angle 0 -zoom 1 -height 20 -aspect regular
  13
  14 set scale    3.1783114563761763
  15 set proj_X   0.57735025882720947
  16 set proj_Y   -0.57735025882720947
  17 set proj_Z   0.57735025882720947
  18 set up_X     -0.40824827551841736
  19 set up_Y     0.40824827551841736
  20 set up_Z     0.81649655103683472
  21 set at_X     0
  22 set at_Y     0
  23 set at_Z     0
  24
  25 vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
  26
  27 set x_coord 210
  28 set y_coord 204
  29
  30 checkcolor $x_coord $y_coord 0.6 0.6 0.6
  31
  32 set only_screen 1