#!/usr/bin/perl
$r = $ARGV[4];
$g = $ARGV[5];
$b = $ARGV[6];

for($x=$ARGV[0];$x<$ARGV[2];$x++) {
    for($y=$ARGV[1];$y<$ARGV[3];$y++) {
		if ( ($x%20 >= 10) && ($y%20 >=10) )
		{print "0,$x,$y,$r,$g,$b\n";}
	}
}
