version 1.208, 2004/04/06 18:05:29
|
version 1.209, 2004/04/15 17:37:04
|
Line 2343 sub start_img {
|
Line 2343 sub start_img {
|
&image_replication($src); |
&image_replication($src); |
if (-e $src) { |
if (-e $src) { |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
my ($width, $height, $size, $format) = $image->Ping($src); |
$image->Read($src); |
|
my ($width, $height) = ($image->Get('width'), |
|
$image->Get('height')); |
if ($width && $height) { |
if ($width && $height) { |
$token->[2]{'width'} =$width; |
$token->[2]{'width'} =$width; |
$token->[2]{'height'}=$height; |
$token->[2]{'height'}=$height; |