tests/bugs/vis/bug404

   1 puts "========"
   2 puts "OCC404"
   3 puts "========"
   4
   5 v2dinit
   6
   7 #
   8 ### RED
   9 #
  10 set R1 1
  11 set G1 0
  12 set B1 0
  13
  14 OCC404 ${R1} ${G1} ${B1}
  15
  16 set x_coord 10
  17 set y_coord 10
  18 set color2d 1
  19 checkcolor $x_coord $y_coord 1 0 0
  20
  21 if { $stat != 1 } {
  22   puts "OCC404: Get background color ERROR (case 1)"
  23 }
  24
  25
  26 #
  27 ### GREEN
  28 #
  29
  30 set R1 0
  31 set G1 1
  32 set B1 0
  33
  34 OCC404 ${R1} ${G1} ${B1}
  35
  36 set x_coord 10
  37 set y_coord 10
  38 set color2d 1
  39 checkcolor $x_coord $y_coord 0 1 0
  40
  41 if { $stat != 1 } {
  42   puts "OCC404: Get background color ERROR (case 2)"
  43 }
  44
  45
  46 #
  47 ### BLUE
  48 #
  49
  50 set R1 0
  51 set G1 0
  52 set B1 1
  53
  54 OCC404 ${R1} ${G1} ${B1}
  55
  56 set x_coord 10
  57 set y_coord 10
  58 set color2d 1
  59 checkcolor $x_coord $y_coord 0 0 1
  60
  61 if { $stat != 1 } {
  62   puts "OCC404: Get background color ERROR (case 2)"
  63 }
  64
  65 set only_screen2d 1