puts "============"
puts "CR24873"
puts "============"
puts ""
##########################################################################################################
# Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
##########################################################################################################

pload QAcommands

vinit View1
vclear
vaxo
vsetdispmode 1

psphere s 2
vdisplay s
vfit

vbounding s

set x 378
set y 102
checkcolor $x $y 1 1 1

vdump ${imagedir}/${test_image}.png
