6 v2dgrid Rect 0 0 10 10 0 Lines
10 puts "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
11 puts "Visual control: background is RED"
12 puts "Visual control: major grid lines are GREEN"
13 puts "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
19 checkcolor $x_coord $y_coord 1 0 0
22 puts "Faulty OCC403: background has NOT RED color"
24 puts "OCC403 OK: background is RED"
29 checkcolor $x_coord $y_coord 0 1 0
32 puts "Faulty OCC403: major grid lines have NOT GREEN color"