tests/bugs/demo/bug24873_2

   1 puts "============"
   2 puts "CR24873"
   3 puts "============"
   4 puts ""
   5 ##########################################################################################################
   6 # Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
   7 ##########################################################################################################
   8
   9 vinit View1
  10 vclear
  11 vaxo
  12 vsetdispmode 1
  13
  14 psphere s 2
  15 vdisplay s
  16 vfit
  17
  18 set info [vbounding -print s]
  19
  20 regexp {s+\n([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} full x1 y1 z1 x2 y2 z2
  21
  22 set tol_abs 0.1
  23 set tol_rel 0.1
  24
  25 set expected_x1 -2
  26 set expected_y1 -2
  27 set expected_z1 -2
  28
  29 set expected_x2 2
  30 set expected_y2 2
  31 set expected_z2 2
  32
  33 checkreal "x1" ${x1} ${expected_x1} ${tol_abs} ${tol_rel}
  34 checkreal "y1" ${y1} ${expected_y1} ${tol_abs} ${tol_rel}
  35 checkreal "z1" ${z1} ${expected_z1} ${tol_abs} ${tol_rel}
  36 checkreal "x2" ${x2} ${expected_x2} ${tol_abs} ${tol_rel}
  37 checkreal "y2" ${y2} ${expected_y2} ${tol_abs} ${tol_rel}
  38 checkreal "z2" ${z2} ${expected_z2} ${tol_abs} ${tol_rel}
  39
  40 vdump ${imagedir}/${test_image}.png