Skip Menu |
 

This queue is for tickets about the Image-Size CPAN distribution.

Report information
The Basics
Id: 46279
Status: new
Priority: 0/
Queue: Image-Size

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 3.2
Fixed in: 3.2



Download (untitled) / with headers
text/plain 5.4k
Hi, I like to add two "MSWin32"-formats .ico and .cur: # Package lexicals - invisible to outside world, used only in imgsize # # Mapping of patterns to the sizing routines my %type_map = ( '^GIF8[7,9]a' => \&gifsize, "^\xFF\xD8" => \&jpegsize, "^\x89PNG\x0d\x0a\x1a\x0a" => \&pngsize, "^P[1-7]" => \&ppmsize, # also XVpics '\#define\s+\S+\s+\d+' => \&xbmsize, '\/\* XPM \*\/' => \&xpmsize, '^MM\x00\x2a' => \&tiffsize, '^II\x2a\x00' => \&tiffsize, '^BM' => \&bmpsize, '^8BPS' => \&psdsize, '^PCD_OPA' => \&pcdsize, '^FWS' => \&swfsize, '^CWS' => \&swfmxsize, "^\x8aMNG\x0d\x0a\x1a\x0a" => \&mngsize, '^\x00\x00\x01\x00' => \&iconsize, # 20090520 thw@cpan.org '^\x00\x00\x02\x00' => \&cursize, # 20090520 thw@cpan.org ); # and later.... # Icon (MSWin32) (.ico, .cur) # 20090520 thw@cpan.org # # 20090520 thw@cpan.org # Icon Header Stores general information about the ICO file. # 20090520 thw@cpan.org # Directory[1..n] Stores general information about every image in the file. # 20090520 thw@cpan.org # # Header (size=6) # 20090520 thw@cpan.org # Offset# Size Purpose # 20090520 thw@cpan.org # 0 2 reserved. should always be 0 # 20090520 thw@cpan.org # 2 2 type. 1 for icon (.ICO), 2 for cursor (.CUR) file # 20090520 thw@cpan.org # 4 2 count; number of images in the file # 20090520 thw@cpan.org # # 20090520 thw@cpan.org # Directory (size=16) # 20090520 thw@cpan.org # Offset# Size Purpose # 20090520 thw@cpan.org # 0 1 width, should be 0 if 256 pixels # 20090520 thw@cpan.org # 1 1 height, should be 0 if 256 pixels # 20090520 thw@cpan.org # # 20090520 thw@cpan.org # Thomas Walloschke <thw@cpan.org> 20090520 # 20090520 thw@cpan.org sub iconsize # 20090520 thw@cpan.org { # 20090520 thw@cpan.org my $stream = shift; # 20090520 thw@cpan.org my ( $x, $y, $id ) = ( undef, undef, "could not determine ICO size" ); # 20090520 thw@cpan.org my ( $offset, $length ) = ( 6, 2 ); # 20090520 thw@cpan.org # Read Directory of 1st icon # 20090520 thw@cpan.org ( $x, $y ) = unpack( 'cc', $read_io->( $stream, $length, $offset )); # 20090520 thw@cpan.org $id = 'ICO' if ( defined $x and defined $y ); # 20090520 thw@cpan.org $x = 256 if defined $x and $x == 0; # 20090520 thw@cpan.org $y = 256 if defined $y and $y == 0; # 20090520 thw@cpan.org ( $x, $y, $id ); # 20090520 thw@cpan.org } # 20090520 thw@cpan.org sub cursize # 20090520 thw@cpan.org { # 20090520 thw@cpan.org my $stream = shift; # 20090520 thw@cpan.org my ( $x, $y, $id ) = ( undef, undef, "could not determine CUR size" ); # 20090520 thw@cpan.org my ( $offset, $length ) = (6, 2); # 20090520 thw@cpan.org # Read Directory of 1st icon # 20090520 thw@cpan.org ( $x, $y ) = unpack( 'cc', $read_io->( $stream, $length, $offset )); # 20090520 thw@cpan.org $id = 'CUR' if ( defined $x and defined $y ); # 20090520 thw@cpan.org $x = 256 if defined $x and $x == 0; # 20090520 thw@cpan.org $y = 256 if defined $y and $y == 0; # 20090520 thw@cpan.org ( $x, $y, $id ); # 20090520 thw@cpan.org } # 20090520 thw@cpan.org I hope it is helpful... ------ Thomas Walloschke <thw@cpan.org>


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.