puts "========"
puts "OCC22337"
puts "Test vprintview with new camera and shaders"
puts "========"

pload ALL
vinit
box b 10 10 10
vdisplay b
vrotate 1 0 0
vfit
vsetdispmode 1

# test vprintview work
# make sure that the images with forced tiles and without are the same
vcamera -ortho
vfit
set aTitle "ortho"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb
set aTitle "ortho-tiles"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb 1 256 256

vcamera -persp
vfit
set aTitle "persp"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb
set aTitle "persp-tiles"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb 1 256 256

vshaderprog phong

vcamera -ortho
vfit
set aTitle "ortho-shader"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb
set aTitle "ortho-shader-tiles"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb 1 256 256

vcamera -persp
vfit
set aTitle "persp-shader"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb
set aTitle "persp-shader-tiles"
vprintview 512 512 $imagedir/${casename}_${aTitle}.png rgb 1 256 256