#!/usr/bin/perl

foreach $f (@ARGV)
{
	($f =~ s/.gif$//i) or next;
	mkdir $f;
	print "mkdir $f\n";

	for ($H=0 ; $H<94 ; $H++)
	{
		print "$H"; 
		for ($L=0 ; $L<94; $L++)
		{
			system sprintf 
				"convert -crop 17x17+%d+%d $f.gif $f/%04X.png",
				$L*17, $H*17, $H*256+$L+0x2121;
			print ".";
		}

		print "\n";
	}
}