#!/usr/bin/perl -w

die "Usage: gen5551.pl <input Photoshop RGBA32 raw format> <output> <width> <height>\n" unless $#ARGV==3;

$in = shift;
$out = shift;
$width = shift;
$height = shift;

open(INFILE, "<$in") or die "Can't open $in: $!";
open(OUTFILE, ">$out") or die "Can't open $out: $!";

printf( OUTFILE "P3 ");
printf( OUTFILE $width );
printf( OUTFILE " " );
printf( OUTFILE $height );
printf( OUTFILE " 255\n");

$idx = 0;

while( read(INFILE, $byte, 1) != 0 ) {
    $r = vec($byte, 0, 8);
#    $g = vec($byte, 0, 8);
#    $b = vec($byte, 0, 8);

    if ( $idx < 63 )
    {
    if ( $r != 0 )
    {
	printf "%2.d", $r;
    }
    else
    {
	 print("  " );
    }
}
#    printf ("%2d", $r);

    $idx++;
#    if ( $idx > 10 ) { printf OUTFILE "\n"; $idx = 0; }
#    print( OUTFILE $r, " ", $g, " ", $b, " " );
    if ( $idx > $width-1 ) { print "\n"; $idx = 0;}
}
close INFILE;
close OUTFILE;