cddbf6a9 |
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 |
ccadc126 |
23 | vaspects -setwidth 5 |
cddbf6a9 |
24 | |
ccadc126 |
25 | if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN1" } { |
cddbf6a9 |
26 | puts "Error : Viewer clipping is broken." |
27 | } |
28 | |
29 | vdump ${imagedir}/${casename}.png |