The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Image::Magick::Thumbnail::Simple - The thumbnail image is easily made without uselessness.

SYNOPSIS

It outputs it to the file.

use Image::Magick::Thumbnail::Simple;
my $t = new Image::Magick::Thumbnail::Simple;
$t -> thumbnail(
  input  => 'input.jpg',
  output => 'output.jpg',
  size   => 128,
) or die $t -> error;

It outputs it to the STDOUT.

use Image::Magick::Thumbnail::Simple;
my $t = new Image::Magick::Thumbnail::Simple;
binmode STDOUT;
print "Content-type: image/jpeg\n\n";
$t -> thumbnail(
  input  => 'input.jpg',
  output => 'jpg:-',
  size   => 128,
) or die $t -> error;

When specifying it when initializing it

It is succeeded to as long as it doesn't individually specify it at all the following.

$t = new Image::Magick::Thumbnail::Simple(
  size    => 128,
  blur    => 0.8,
  quality => 80,
);

When changing

It is effective for jpeg format. The value is between from 0 to 100.

$t -> size( 128 );
$t -> blur( 0.8 );
$t -> quality( 80 );

When individually specifying it

The input and the output can be specified only for individual.

$t -> thumbnail(
  input   => 'input,jpg',
  output  => 'output.jpg',
  size    => 128,
  blur    => 0.8,
  quality => 80,
);

Width of thumbnail image

$width = $t -> width;

Height of thumbnail image

$height = $t -> height;

DESCRIPTION

The thumbnail image can be easily made by using Image::Magick. A basic setting is the same as Image::Magick. Only the processing of the resize of the image is treated. The version opened to the public is 0.10. In 0.12, it came to return a size that corrected of the explanation and was thumbnail.

SEE ALSO

Image::Magick

AUTHOR

Satoshi Ishikawa <cpan@penlabo.net>

COPYRIGHT AND LICENSE

Copyright (C) 2008 Satoshi Ishikawa

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.