#!/usr/bin/perl

my $TILE_FILE = "tile-marble.png";  # 48x48
my @TEXT_COLOR = (0x20, 0x30, 0x60);

use GD;

my $tile = GD::Image->newFromPng($TILE_FILE);
die "Can't read $TILE_FILE file\n" unless $tile;

foreach my $number (1 .. 15) {
	my $image = $tile->clone;
	my $color = $image->colorAllocate(@TEXT_COLOR);
	my $x = $number > 9? 15: 20;
	$image->string(gdGiantFont, $x, 16, $number, $color);
	my $filename = "$number.jpg";
	open(IMAGE_FILE, ">$filename") || die("Can't write $filename: $!\n");
	print IMAGE_FILE $image->jpeg(95);
	close(IMAGE_FILE);
}