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