tests/bugs/vis/bug21747_7

   1 puts "============"
   2 puts "OCC21747"
   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 3
  34
  35 puts "${BugNumber}"
  36 puts "Type=DIAGONAL1, Color from BLUE to RED, Direction from LEFT TOP CORNER to RIGHT 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