0030756: Visualization, TKOpenGl - capping plane does not work for ZLayer with non...
[occt.git] / tests / bugs / vis / bug30756
1 puts "============="
2 puts "0030756: Visualization, TKOpenGl - capping plane does not work for ZLayer with non-zero origin"
3 puts "============="
4
5 pload MODELING VISUALIZATION
6 box b 1 2 3
7 vclear
8 vclose ALL
9 vinit View1
10 vzbufftrihedron
11 vaxo
12 vdisplay -dispMode 1 b
13 vfit
14 vclipplane p 1 -equation  0 1 0 -1 -set -capping 1
15 if { [vreadpixel 200 200 rgb name] != "GRAY13" } { puts "Error: capping does not work with zero origin" }
16 vzlayer DEFAULT -origin 0 10 0
17 if { [vreadpixel 200 200 rgb name] != "GRAY13" } { puts "Error: capping does not work with non-zero origin" }
18
19 vdump ${imagedir}/${casename}.png