gsplus/assets/make_ico.pl

89 lines
1.7 KiB
Perl
Raw Normal View History

2016-12-15 22:13:07 +00:00
#!/usr/bin/perl -w
use strict;
use constant SIZEOF_HEADER => 6;
use constant SIZEOF_ENTRY => 16;
use Getopt::Long;
sub load_png {
my ($file, $width, $height) = @_;
print "Opening $file\n";
open(my $io, "<", $file) or return "";
binmode $io;
local $/;
my $data = <$io>;
my @header = unpack("C[8] NN NNC[5] N", $data);
close($io);
# png header
return "" unless $header[0] == 0x89;
return "" unless $header[1] == 0x50;
return "" unless $header[2] == 0x4e;
return "" unless $header[3] == 0x47;
return "" unless $header[4] == 0x0d;
return "" unless $header[5] == 0x0a;
return "" unless $header[6] == 0x1a;
return "" unless $header[7] == 0x0a;
# ihdr
return "" unless $header[8] == 0x0d;
return "" unless $header[9] == 0x49484452;
$$width = $header[10];
$$height = $header[11];
# bit depth, color type, compression method, filter method, interface method
# crc
return $data;
}
GetOptions();
my $count = scalar @ARGV;
die "Usage: make_ico file.png ..." unless $count;
open(my $ico, ">", "icon.ico") or die "unable to open icon.ico";
binmode $ico;
my $height = 0;
my $width = 0;
my $size = 0;
my $offset = SIZEOF_HEADER + SIZEOF_ENTRY * $count;
my $header = pack("vvv", 0, 1, $count);
my $entry = "";
seek $ico, $offset, 0;
foreach my $file (@ARGV) {
my $data = load_png($file, \$height, \$width);
my $size = length($data);
die "Icon too large ($file)" if ($height > 256 || $width > 256);
$height = 0 if ($height == 256);
$width = 0 if ($width == 256);
$entry = $entry . pack("CCCCvvVV", $width, $height, 0, 0, 0, 0, $size, $offset);
$offset += $size;
print $ico $data;
}
seek $ico, 0, 0;
print $ico $header;
print $ico $entry;
close($ico);
exit 0;