0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug26940
1 puts "============"
2 puts "0026940: Visualization, TKOpenGl - capping plane should be applied to connected structures"
3 puts "Tests capping plane rendering with connected structures"
4 puts "============"
5 puts ""
6
7 vclear
8 vinit View1
9 vaxo
10 vsetdispmode 1
11 box b 1 1 1
12 vdisplay b
13 vfit
14
15 vclipplane pln -set Driver1/Viewer1/View1 -equation 0 1 0 -0.5 -capping on
16
17 vdump $imagedir/${casename}_normal.png
18 set aColorNorm [vreadpixel 200 250 rgb name]
19 if { "$aColorNorm" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (normal presentation). Actial is $aColorNorm" }
20
21 vclear
22
23 vconnectto bb 0 0 0 b
24 vdump $imagedir/${casename}_connected.png
25 set aColorConn [vreadpixel 200 250 rgb name]
26
27 if { "$aColorConn" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (connected presentation). Actial is $aColorConn" }