zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-22 16:32:13 -07:00
Code Issues Packages Projects Releases Wiki Activity

Improve the icon images by cropping selected pieces out of most of

Browse Source 
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]
This commit is contained in:
Simon Tatham
2006-12-27 10:26:13 +00:00
parent 90e6864579
commit d07eb2ea3a
4 changed files with 131 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
icons/square.pl
View File

@ -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.