0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[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 vaspects -setwidth 5
24
25 if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN" } {
26     puts "Error : Viewer clipping is broken."
27 }
28
29 vdump ${imagedir}/${casename}.png