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 |
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 |