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 vfont add [locate_data_file DejaVuSans.ttf] SansFont
  10
  11 vinit
  12 vtrihedron tri
  13 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 -font SansFont
  14 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 -font SansFont
  15
  16 set scale    3.1783114563761763
  17 set proj_X   0.57735025882720947
  18 set proj_Y   -0.57735025882720947
  19 set proj_Z   0.57735025882720947
  20 set up_X     -0.40824827551841736
  21 set up_Y     0.40824827551841736
  22 set up_Z     0.81649655103683472
  23 set at_X     0
  24 set at_Y     0
  25 set at_Z     0
  26
  27 vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
  28
  29 set x_coord 210
  30 set y_coord 204
  31
  32 checkcolor $x_coord $y_coord 0.6 0.6 0.6
  33
  34 set only_screen 1