Image::Base::Magick -- draw images using Image Magick
use Image::Base::Magick; my $image = Image::Base::Magick->new (-width => 100, -height => 100); $image->rectangle (0,0, 99,99, 'white'); $image->xy (20,20, 'black'); $image->line (50,50, 70,70, '#FF00FF'); $image->line (50,50, 70,70, '#0000AAAA9999'); $image->save ('/some/filename.png');
Image::Base::Magick is a subclass of
Image::Base to create or update image files using
The native ImageMagick drawing has hugely more features, but this module is a way to point
Image::Base style code at an ImageMagick canvas and use the numerous file formats ImageMagick can read and write.
Colour names are anything recognised by ImageMagick,
http://imagemagick.org/www/color.html file:///usr/share/doc/imagemagick/www/color.html #RGB 1, 2, 4-digit hex #RRGGBB #RRRRGGGGBBBB names roughly per X11 colors.xml file
colors.xml is in /etc/ImageMagick/, or in the past in /usr/share/ImageMagick-6.6.0/config/ with whatever version number.
By default ImageMagick uses "anti-aliasing" to blur the edges of lines and circles drawn. This is unlike the other
Image::Base modules but currently it's not changed or overridden in the methods here. Perhaps that will change, or perhaps only for canvases created by
new() (as opposed to supplied in a
-imagemagick parameter). You can turn it off explicitly with
my $m = $image->get('-imagemagick'); $m->Set (antialias => 0);
Graphics::Magick module using the graphicsmagick copy of imagemagick should work, to the extent it's compatible with imagemagick. There's nothing to choose
Graphics::Magick as such currently, but a
Graphics::Magick object can be created and passed in as the
my $m = Graphics::Magick->new (size => '200x100') $m->ReadImage('xc:black'); my $image = Image::Base::Magick-new (-imagemagick => $m);
As of graphicsmagick 1.3.12 there's something bad in its Perl XS interface causing segvs attempting to write to a file handle, which is what
$image->save() does. An
$m->Write() to a file works.
See "FUNCTIONS" in Image::Base for the behaviour common to all Image-Base classes.
$image = Image::Base::Magick->new (key=>value,...)
Create and return a new image object. A new image can be started with
my $image = Image::Base::Magick->new (-width => 200, -height => 100);
Or an existing file can be read,
my $image = Image::Base::Magick->new (-file => '/some/filename.png');
Image::Magick object can be given,
$image = Image::Base::Magick->new (-imagemagick => $mobj);
Setting these changes the size of the image.
In the current code a
Resize() is done which means the existing image is stretched, but don't depend on that. It might make more sense to crop when shrinking and pad with black when extending.
The filename for
save, or passed to
new to load a file.
The filename is used literally, it doesn't have ImageMagick's "%d" scheme for sets of numbered files. The code here is only geared towards a single image in a canvas, and using the filename literally is the same as other
The file format as a string like "PNG" or "JPEG", or
undef if unknown or never set.
-file_format to the format read. Setting
-file_format can change the format for a subsequent
save(), or set the format for a newly created image.
This sets the
magick attribute of the ImageMagick object. The available formats are per
Some of the choices are pseudo-formats, for example saving as "X" displays a preview window in X windows, or "PRINT" writes to the printer.
-quality_percent(0 to 100 or
The image quality when saving to JPEG and similar lossy formats which compress by reducing colours and resolution in ways not too noticeable to the human eye. 100 means full quality, no such reductions.
undef means the imagemagick
DefaultImageQuality, which is 75.
This attribute becomes the
quality parameter to
-zlib_compression(integer 0-9 or -1, default
The amount of data compression to apply when saving. The value is Zlib style 0 for no compression up to 9 for maximum effort. -1 means Zlib's default, usually 6.
undef or never set means ImageMagick's default, which is 7.
This attribute becomes the
quality parameter to
$imagemagick->Write() when saving PNG.
For reference, ImageMagick (as of version 6.7.7) doesn't read or write the cursor "hotspot" of XPM format, so there's no
Image-Base-Magick is Copyright 2010, 2011, 2012, 2017 Kevin Ryde
Image-Base-Magick is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version.
Image-Base-Magick is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with Image-Base-Magick. If not, see <http://www.gnu.org/licenses/>.