3bea4c16 |
1 | puts "============" |
2 | puts "OCC21747" |
3bea4c16 |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Implementation of gradient background style |
7 | # |
8 | # vsetgradientbg: vsetgradientbg R1 G1 B1 R2 G2 B2 Type |
9 | # R1\G1\B1 - First color [0..255] |
10 | # R2\G2\B2 - Second color [0..255] |
11 | # Type 0 to 8 |
12 | # 0 = NONE, |
13 | # 1 = HORIZONTAL, |
14 | # 2 = VERTICAL, |
15 | # 3 = DIAGONAL1, |
16 | # 4 = DIAGONAL2, |
17 | # 5 = CORNER1, |
18 | # 6 = CORNER2, |
19 | # 7 = CORNER3, |
20 | # 8 = CORNER4 |
21 | ####################################################################### |
22 | |
23 | set BugNumber OCC21747 |
24 | |
25 | vinit |
26 | |
27 | set R1 0 |
28 | set G1 0 |
29 | set B1 255 |
30 | set R2 255 |
31 | set G2 0 |
32 | set B2 0 |
33 | set Type 8 |
34 | |
35 | puts "${BugNumber}" |
36 | puts "Type=CORNER4, Color from BLUE to RED, Direction from LEFT BOTTOM CORNER" |
37 | puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}" |
38 | |
39 | vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type} |
40 | |
41 | set only_screen 1 |