puts "========"
puts "OCC60"
puts "SAM723"
puts "BUC60916"
puts "========"

vinit
box b 10 10 10
vdisplay b
vfit
vaspects -setwidth 5

set x_coord 83
set y_coord 337

if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "YELLOW" } {
  puts "Error : color is not yellow"
}

set xmin 1
set ymin 1
set xmax 409
set ymax 300

# Select part of box
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}

set Selection_R 0.8
set Selection_G 0.8
set Selection_B 0.8

if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "GRAY80" } {
  puts "Error : color is not gray"
}

set only_screen 1
