#!/usr/bin/perl -w
# generate_gradient1.pl - Don Yang (uguu.org)
#
# 01/05/12

use strict;

print "P3\n256 256\n255\n";
for(my $r = 0; $r < 256; $r++)
{
   for(my $g = 0; $g < 256; $g++)
   {
      print "$r $g 0 ";
   }
   print "\n";
}