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 vaspects -setwidth 5
  12
  13 set x_coord 83
  14 set y_coord 337
  15
  16 if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "YELLOW" } {
  17   puts "Error : color is not yellow"
  18 }
  19
  20 set xmin 1
  21 set ymin 1
  22 set xmax 409
  23 set ymax 300
  24
  25 # Select part of box
  26 OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
  27 OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
  28
  29 set Selection_R 0.8
  30 set Selection_G 0.8
  31 set Selection_B 0.8
  32
  33 if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "GRAY80" } {
  34   puts "Error : color is not gray"
  35 }
  36
  37 set only_screen 1