gistfile1.aw

	function tile_image($source, $wide, $tall) {
		$im_src = imagecreatefromjpeg($source);
		$im_size = getimagesize($source);
		
		$slice_width = $im_size[0] / $wide;
		$slice_height = $im_size[1] / $tall;
		
		$im_dest = imagecreatetruecolor($slice_width, $slice_height);
		
		for ($x = 0; $x < $wide; $x++) {
			for ($y = 0; $y < $tall; $y++) {
				imagecopy($im_dest, $im_src, 0, 0, $x * $slice_width, $y * $slice_height, $slice_width, $slice_height);
				
				$filename = str_replace('_cropped.jpg', '_tile_', $source) . sprintf('%1$04d', $y) . 'x' . sprintf('%1$04d', $x) . '.jpg';

				imagejpeg($im_dest, $filename, 100);
			}
		}
		
		imagedestroy($im_src);
		imagedestroy($im_dest);
	}