0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27836
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
14 vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
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] != "GRAY75" } { puts "Error: gradient background is not displayed" }
23
24 vdump $imagedir/${casename}.png