0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug29768
1 puts "============"
2 puts "0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping"
3 puts "============"
4 puts ""
5
6 vclear
7 vinit View1
8 vaxo
9 vpoint p0 0 0 0
10 vzbufftrihedron
11 box b0 0 0 0 1 1 1
12 box b1 3 0 0 1 1 1
13 vdisplay -dispMode 1 b0 b1
14 vsetcolor b0 RED
15 vsetcolor b1 GREEN
16 vfit
17
18 vclipplane pv  equation -1 0 0  0.5 -set
19 vclipplane pb0 equation  0 1 0 -0.5 -set b0
20 vclipplane pb1 equation  0 1 0 -0.5 -setOverrideGlobal b1
21
22 if { [vreadpixel 300 200 rgb name] != "GREEN2" } { puts "Error: box b1 is fully clipped" }
23 vdump $imagedir/${casename}.png