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

vinit View1
vclear
vaxo
vsetdispmode 1

psphere s 2
vdisplay s
vfit

set info [vbounding -print s]

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

set tol_abs 0.1
set tol_rel 0.1

set expected_x1 -2
set expected_y1 -2
set expected_z1 -2

set expected_x2 2
set expected_y2 2
set expected_z2 2

checkreal "x1" ${x1} ${expected_x1} ${tol_abs} ${tol_rel}
checkreal "y1" ${y1} ${expected_y1} ${tol_abs} ${tol_rel}
checkreal "z1" ${z1} ${expected_z1} ${tol_abs} ${tol_rel}
checkreal "x2" ${x2} ${expected_x2} ${tol_abs} ${tol_rel}
checkreal "y2" ${y2} ${expected_y2} ${tol_abs} ${tol_rel}
checkreal "z2" ${z2} ${expected_z2} ${tol_abs} ${tol_rel}

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