From d07eb2ea3a85913edb826a3e9c3ffc8abda71771 Mon Sep 17 00:00:00 2001 From: Simon Tatham Date: Wed, 27 Dec 2006 10:26:13 +0000 Subject: Improve the icon images by cropping selected pieces out of most of the main screenshots. (A few, like Map, were perfect already.) In the process I've vertically reflected the puzzle shown in the Pattern save file, to bring a more interesting piece of it into the top left corner :-) [originally from svn r7019] --- icons/square.pl | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'icons/square.pl') diff --git a/icons/square.pl b/icons/square.pl index 81be9d7..815b94b 100755 --- a/icons/square.pl +++ b/icons/square.pl @@ -26,9 +26,18 @@ $al = scalar @$data; 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 -# border, so this is just the pixel colour of the top left corner. -$back = $data->[0]; +# Find the background colour, by looking around the entire border +# and finding the most popular pixel colour. +for ($i = 0; $i < $w; $i++) { + $pcount{$data->[$i]}++; # top row + $pcount{$data->[($h-1)*$w+$i]}++; # bottom row +} +for ($i = 1; $i < $h-1; $i++) { + $pcount{$data->[$i*$w]}++; # left column + $pcount{$data->[$i*$w+$w-1]}++; # right column +} +@plist = sort { $pcount{$b} <=> $pcount{$a} } keys %pcount; +$back = $plist[0]; # Crop rows and columns off the image to find the central rectangle # of non-background stuff. -- cgit v1.1