0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug28127
1 puts "==========="
2 puts "OCC28127"
3 puts "Visualization - transparent object breaks Z-Layer depth buffer clear"
4 puts "==========="
5 puts ""
6
7 pload MODELING VISUALIZATION
8 box r 0 0   0 1 0.1 1
9 box g 0 0.2 0 1 0.1 1
10 box b 0 0.4 0 1 0.1 1
11
12 vclear
13 vinit View1
14 vaxo
15 vdisplay -noupdate -dispMode 1 -top r g b
16 vsetcolor -noupdate r RED
17 vsetcolor -noupdate g GREEN
18 vsetcolor -noupdate b BLUE
19 vfit
20
21 vdisplay -topmost g
22 vzbufftrihedron -on -position left_upper
23
24 vsettransparency b 0.5
25
26 if { [vreadpixel 150 150 rgb name] != "GREEN2" } { puts "Error: wrong color - GREEN box should overlap RED one" }
27 if { [vreadpixel  84  64 rgb name] == "RED2"   } { puts "Error: wrong color - Trihedron should overlap RED box" }
28
29 vdump $imagedir/${casename}.png