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

puts "========"
puts "OCC27536"
puts "========"
puts ""
##################################################################
puts "Visualization - incorrect behavior of zoom persisted objects"
##################################################################

set anImage1 $imagedir/${casename}_1.png
set anImage2 $imagedir/${casename}_2.png

vinit
vclear
vaxo

box b -50 -50 -50 100 100 100
vdisplay b -trsfPers zoom -trsfPersPos 0 0 0 -dispmode 1

vdump $anImage1

vinit View2 w=200 h=400
vaxo
vfit

# Check that box was't resized in small view
if {[vreadpixel 165 200 name] != "DARKGOLDENROD3 1"} {
  puts "ERROR: zoom persistent box is resized on view sizes changed!"
}

vdump $anImage2
Commit	Line	Data
91d96372	1	puts "========"
	2	puts "OCC27536"
	3	puts "========"
	4	puts ""
	5	##################################################################
	6	puts "Visualization - incorrect behavior of zoom persisted objects"
	7	##################################################################
	8
	9	set anImage1 $imagedir/${casename}_1.png
	10	set anImage2 $imagedir/${casename}_2.png
	11
	12	vinit
	13	vclear
	14	vaxo
	15
	16	box b -50 -50 -50 100 100 100
	17	vdisplay b -trsfPers zoom -trsfPersPos 0 0 0 -dispmode 1
	18
	19	vdump $anImage1
	20
	21	vinit View2 w=200 h=400
	22	vaxo
	23	vfit
	24
	25	# Check that box was't resized in small view
	26	if {[vreadpixel 165 200 name] != "DARKGOLDENROD3 1"} {
	27	puts "ERROR: zoom persistent box is resized on view sizes changed!"
	28	}
	29
	30	vdump $anImage2