14 OCC404 ${R1} ${G1} ${B1}
19 checkcolor $x_coord $y_coord 1 0 0
22 puts "OCC404: Get background color ERROR (case 1)"
34 OCC404 ${R1} ${G1} ${B1}
39 checkcolor $x_coord $y_coord 0 1 0
42 puts "OCC404: Get background color ERROR (case 2)"
54 OCC404 ${R1} ${G1} ${B1}
59 checkcolor $x_coord $y_coord 0 0 1
62 puts "OCC404: Get background color ERROR (case 2)"