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

puts "========"
puts "Gradient background is lost at some camera positions"
puts "========"

# Test case setup the camera in such a position,
# so that background plane will be clipped by Z-range if not handled by Z-fit.

pload MODELING VISUALIZATION
box b 0 0 -100 100 90 10

vclear
vinit View1
vaxo
vbackground -gradient 0.705882 0.784314 1  0.705882 0.705882 0.705882 -gradientMode VERTICAL
vzbufftrihedron
vdisplay -dispMode 1 b
vsetlocation b 0 0 1000
vfit

vviewparams -scale 6.66 -eye 48 43 -210 -at 50 45 -95

if { [vreadpixel 100 300 rgb name] != "GRAY74" } { puts "Error: gradient background is not displayed" }

vdump $imagedir/${casename}.png
Commit	Line	Data
71d8ccc7	1	puts "========"
	2	puts "Gradient background is lost at some camera positions"
	3	puts "========"
	4
	5	# Test case setup the camera in such a position,
	6	# so that background plane will be clipped by Z-range if not handled by Z-fit.
	7
	8	pload MODELING VISUALIZATION
	9	box b 0 0 -100 100 90 10
	10
	11	vclear
	12	vinit View1
	13	vaxo
293211ae	14	vbackground -gradient 0.705882 0.784314 1 0.705882 0.705882 0.705882 -gradientMode VERTICAL
71d8ccc7	15	vzbufftrihedron
	16	vdisplay -dispMode 1 b
	17	vsetlocation b 0 0 1000
	18	vfit
	19
	20	vviewparams -scale 6.66 -eye 48 43 -210 -at 50 45 -95
	21
	22	if { [vreadpixel 100 300 rgb name] != "GRAY74" } { puts "Error: gradient background is not displayed" }
	23
	24	vdump $imagedir/${casename}.png