tests/bugs/vis/bug21747_8

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