tests/bugs/vis/bug60

   1 puts "========"
   2 puts "OCC60"
   3 puts "SAM723"
   4 puts "BUC60916"
   5 puts "========"
   6
   7 vinit
   8 box b 10 10 10
   9 vdisplay b
  10 vfit
  11
  12 set x_coord 83
  13 set y_coord 337
  14
  15 checkcolor $x_coord $y_coord 1 1 0
  16
  17 set xmin 1
  18 set ymin 1
  19 set xmax 409
  20 set ymax 300
  21
  22 # Select part of box
  23 OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
  24 OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
  25
  26 set Selection_R 0.8
  27 set Selection_G 0.8
  28 set Selection_B 0.8
  29
  30 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  31
  32 set only_screen 1