-------------------------------------------------------------------------------
Image sequences

PerlMagick creates an "image" as reference to an array.

As such for swapping images...

In a normal perl array, say @x, you can do   @x[3,4] = @x[4,3]
( to take one element you use  $x[], for a slice you need @x[] )

The reference makes it a little trickier
  @$image[3,4] = @$image[4,3]

For single element references,  $$x[3] is equivalent to $x->[3]
But that does not work for slices: in this case you have to stick
to the traditional syntax without arrow.

You can also use
  shift @$image;          # remove from front
  push @$image, @$other;  # add to end of an image sequence

-------------------------------------------------------------------------------
Multiple Settings...

This perl code will take all the *gif files in the current directly and create
an animated gif called loop.gif.

#!/usr/bin/perl
#
use Image::Magick;

$image = new Image::Magick;
$image->Read('*.gif');

$image->Set(
    loop=>'0',
    delay=>'25',
    adjoin=>'True',
    dispose=>'2',
  );

$image->Write( "loop.gif" );

-------------------------------------------------------------------------------
CMYK Jpegs to RGB

Those Jpeg's that are already RGB resize fine, and I finally got the
compositing done that I wanted. But every once in awhile, the final image
looks like a polaroid left out in the sun for 5 weeks.

Make sure IM is compiled with the -llcms configuration option
   identify -list configure

You can thne get a SWOP (standard CMYK profile is USWebCoatedSWOP.icc)
and sRGB profiles from   http://color.org/


=======8<--------
if ($image->Get('colorspace') eq "CMYK") {
  $image->Profile(profile=>'/data/art/composite/swop.icm');
  $image->Profile(profile=>'/data/art/composite/sRGB.icc');
  $image->Set(colorspace=>'RGB');
}
=======8<--------

-------------------------------------------------------------------------------