0024717: TKOpenGl - globally defined clipping planes blink when operating with view
[occt.git] / tests / bugs / vis / bug24717
1 puts "============"
2 puts "OCC24717"
3 puts "============"
4 puts ""
5 ####################################################################################
6 # TKOpenGl - globally defined clipping planes blink when operating with view
7 # Test checks that state of clippings always corresponds to a state of viewed
8 # scene.
9 ####################################################################################
10
11 set check_x 204
12 set check_y 204
13
14 vinit View1
15 vsetdispmode 1
16 box b 1 1 1
17 vdisplay b
18 vmoveto $check_x $check_y
19 vclipplane create pln1
20 vclipplane set pln1 view Driver1/Viewer1/View1
21 vclipplane change pln1 equation 0 1 0 0
22 vfit
23
24 checkcolor $check_x $check_y 0 1 1
25
26 if {$stat != 1} {
27     puts "Error : Viewer clipping is broken."
28 }
29
30 vdump ${imagedir}/${casename}.png