From 90e6864579d740a6df3bdbbcf3cbc42cc5181d82 Mon Sep 17 00:00:00 2001 From: Simon Tatham Date: Tue, 26 Dec 2006 22:00:11 +0000 Subject: Code to construct Windows icon files for the puzzles, by munging the screenshots into appropriate sizes and colour depths. This is all done with a nasty Perl script, because ImageMagick does not output correct .ICO format. Not sure why; it isn't _that_ hard. I intend at some point to link the resulting icons into the actual Windows puzzle binaries, but before then I have to make them prettier: most of them would benefit from being derived from a smaller crop of the puzzle screenshot instead of trying to fit the whole thing in. [originally from svn r7017] --- icons/square.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'icons/square.pl') diff --git a/icons/square.pl b/icons/square.pl index 295b2f1..81be9d7 100755 --- a/icons/square.pl +++ b/icons/square.pl @@ -17,13 +17,13 @@ $ident =~ /(\d+) (\d+)/ or die "unable to get size for $infile\n"; # Read the input image data. $data = []; -open IDATA, "convert $infile rgb:- |"; +open IDATA, "convert -depth 8 $infile rgb:- |"; push @$data, $rgb while (read IDATA,$rgb,3,0) == 3; close IDATA; # Check we have the right amount of data. $xl = $w * $h; $al = scalar @$data; -die "wrong amount of image data ($al, expected $xl) from $img\n" +die "wrong amount of image data ($al, expected $xl) from $infile\n" unless $al == $xl; # Find the background colour. We assume the image already has a -- cgit v1.1