in reply to Re^2: About GD Image Data Output Methods
in thread About GD Image Data Output Methods [SOLVED]
Try this version:
my $gd = $image->gd; my( undef, $width, $height, undef, undef ) = unpack 'nnnCV', substr( $ +gd, 0, 11, '' ); my $len = length( $gd ) / 4 * 3; my $bmp = pack 'a2 V V V l< l< l< v v V V l< l< V V', 'BM', $len + 54, 0, 54, 40, $width, -$height, 1, 24, 0, $len, 0, 0 +, 0; $bmp .= join'', unpack '(xaaa)*', $gd;
Looks like I had two fields transposed; even though my image viewer didn't notice (or just didn't look).
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: About GD Image Data Output Methods
by karlgoethebier (Abbot) on Jun 07, 2015 at 20:06 UTC | |
by BrowserUk (Patriarch) on Jun 07, 2015 at 20:13 UTC | |
by karlgoethebier (Abbot) on Jun 07, 2015 at 21:01 UTC | |
by BrowserUk (Patriarch) on Jun 07, 2015 at 21:27 UTC | |
by karlgoethebier (Abbot) on Jun 08, 2015 at 09:36 UTC |