puts "========" puts "OCC204" puts "========" vinit OCC204 1 vfit set x_coord 150 set y_coord 200 checkcolor $x_coord $y_coord 0 0 0 if { ${stat} != 1 } { puts "Error : There are 3 boxes in the viewer! (should be nothing)" } set only_screen 1