3bea4c16 |
1 | puts "TODO ?OCC11111 ALL: An exception was caught" |
5d1833ef |
2 | puts "TODO ?OCC11111 ALL: \\*\\* Exception" |
3bea4c16 |
3 | puts "TODO ?OCC11111 ALL: TEST INCOMPLETE" |
4 | |
5 | puts "================" |
6 | puts "OCC22906" |
7 | puts "================" |
8 | puts "" |
9 | ####################################################################################### |
10 | # Gradient background is clipped by planes |
11 | ###################################################################################### |
12 | |
13 | set BugNumber OCC22906 |
14 | set x1 73 |
15 | set y1 338 |
16 | |
17 | set x2 144 |
18 | set y2 23 |
19 | |
20 | set x3 377 |
21 | set y3 123 |
22 | |
23 | set x4 87 |
24 | set y4 232 |
25 | |
26 | vinit |
27 | vsetgradientbg 255 0 0 0 0 255 4 |
28 | set Color1 [QAGetPixelColor ${x1} ${y1}] |
29 | set Color2 [QAGetPixelColor ${x2} ${y2}] |
30 | set Color3 [QAGetPixelColor ${x3} ${y3}] |
31 | set Color4 [QAGetPixelColor ${x4} ${y4}] |
4269bd1b |
32 | vclipplane create pln1 |
33 | vclipplane change pln1 equation 1 0 0 -0.1 |
34 | vclipplane set pln1 view Driver1/Viewer1/View1 |
3bea4c16 |
35 | box b 100 100 100 |
36 | vdisplay b |
37 | vsetdispmode 1 |
38 | set ColorRes1 [QAGetPixelColor ${x1} ${y1}] |
39 | set ColorRes2 [QAGetPixelColor ${x2} ${y2}] |
40 | set ColorRes3 [QAGetPixelColor ${x3} ${y3}] |
41 | set ColorRes4 [QAGetPixelColor ${x4} ${y4}] |
42 | |
43 | set status 0 |
44 | if { ${Color1} == ${ColorRes1} && ${Color2} == ${ColorRes2} && ${Color3} == ${ColorRes3} && ${Color4} == ${ColorRes4}} { |
45 | set status 0 |
46 | } else { |
47 | set status 1 |
48 | } |
49 | |
50 | # Resume |
51 | puts "" |
52 | if { ${status} != 0} { |
53 | puts "Faulty ${BugNumber}" |
54 | } else { |
55 | puts "OK ${BugNumber}" |
56 | } |
57 | set only_screen 1 |