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
vright
vfit

vviewparams -size 22

vmoveto 200 100

checkcolor 200 9 0 1 1

if { $stat != 1 } {
  puts "Error : the view projection size is incorrect!"
}

set only_screen 1