view release on metacpan or  search on metacpan

bin/photog-preview  view on Meta::CPAN

photog-preview: Composes images to together to create an album preview

Usage: photog-preview img1.jpg img2.jpg img3.jpg [...] preview.jpg

Note: Album previews MUST consist of 3, 6 or 9 images
EOF
and exit if @ARGV < 4;

# The following code builds an array of command arguments to be used
# in a system() call to ImageMagick's `convert`. It would probably
# make more sense to use Image::Magick instead, but I have no idea how.

my @command;
my @images = @ARGV[0 .. @ARGV-2];
my $destination = $ARGV[-1];

if (@images == 3) {

    # The "xc:red" is a workaround for the following ImageMagick bug:
    # http://www.imagemagick.org/discourse-server/viewtopic.php?t=26796
    @command = qw[convert -bordercolor black xc:red];