puts "============"
puts "CR24714"
puts "============"
puts ""

##################################
#  Test V3d_View::SetSize method
##################################

set aV "Driver1/Viewer1/View1"
vinit name=$aV l=32 t=32 w=400 h=200
vactivate $aV
vclear

box b 10 10 10
vdisplay b
vfront
vfit

vviewparams -size 22

vaspects -setwidth 5
vmoveto 200 100
if { "[vreadpixel 200 9 rgb name]" != "CYAN" } {
  puts "Error : the view projection size is incorrect!"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
