[occt.git] / tests / bugs / vis / bug24714

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
Commit	Line	Data
3dfe95cd	1	puts "============"
	2	puts "CR24714"
	3	puts "============"
	4	puts ""
	5
	6	##################################
	7	# Test V3d_View::SetSize method
	8	##################################
	9
	10	set aV "Driver1/Viewer1/View1"
	11	vinit name=$aV l=32 t=32 w=400 h=200
	12	vactivate $aV
	13	vclear
	14
	15	box b 10 10 10
	16	vdisplay b
27af3052	17	vfront
3dfe95cd	18	vfit
	19
	20	vviewparams -size 22
	21
ccadc126	22	vaspects -setwidth 5
3dfe95cd	23	vmoveto 200 100
aaf8d6a9	24	if { "[vreadpixel 200 9 rgb name]" != "CYAN" } {
3dfe95cd	25	puts "Error : the view projection size is incorrect!"
	26	}
	27
5747059b	28	checkview -screenshot -3d -path ${imagedir}/${test_image}.png