6 #######################################################################
7 # Implementation of gradient background style
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]
22 #######################################################################
24 set BugNumber OCC21747
37 puts "Type=CORNER1, Color from BLUE to RED, Direction from LEFT TOP CORNER"
38 puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"
40 vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}