tests/bugs/demo/bug24873_1

   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 pload QAcommands
  10
  11 vinit View1
  12 vclear
  13 vaxo
  14 vsetdispmode 1
  15
  16 psphere s 2
  17 vdisplay s
  18 vfit
  19
  20 vbounding s
  21
  22 set x 378
  23 set y 102
  24 checkcolor $x $y 1 1 1
  25
  26 vdump ${imagedir}/${test_image}.png