0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[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 vinit View1
8 vclear
9 vaxo
10 vsetdispmode 1
11 box b 1 1 1
12 vdisplay b
13 vfit
14
15 vclipplane create pln
16 vclipplane set pln view Driver1/Viewer1/View1
17 vclipplane change pln equation 0 1 0 -0.5
18 vclipplane change pln capping on
19
20 vdump $imagedir/${casename}_normal.png
21 set aColorNorm [vreadpixel 200 250 rgb name]
22 if { "$aColorNorm" != "GRAY13" } {
23   puts "Error: Expected color of capping plane is GRAY13 (normal presentation). Actial is $aColorNorm"
24 }
25
26 vclear
27
28 vconnectto bb 0 0 0 b
29 vdump $imagedir/${casename}_connected.png
30 set aColorConn [vreadpixel 200 250 rgb name]
31
32 if { "$aColorConn" != "GRAY13" } {
33   puts "Error: Expected color of capping plane is GRAY13 (connected presentation). Actial is $aColorConn"
34 }