tests/bugs/vis/bug21747_3

   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