[magick-users] A place to share imagemagick scripts

[Ron Savage]

On Mon, 2007-12-24 at 07:10 -0800, Mark wrote:

Hi Mark

> Can you also point out how to make Sparkling stars and hearts from
> imagemagick

There are samples here:
http://www.imagemagick.org/Usage/anim_basics/

or you can use a Perl script like:

=====><8=====
#!/usr/bin/perl

use strict;
use warnings;

use Image::Magick;

# ----------------

my $image  = Image::Magick -> new(size => '500x500');
my $result = $image -> Read('xc:white');

die $result if $result;

$result = $image -> Draw
(
  fill        => 'red',
  method      => 'Floodfill',
  points      => '100,100 168,100 200,50 232,100 300,100 266,150 300,200
232,200 200,250 168,200 100,200 134,150',
  primitive   => 'polygon',
  stroke      => 'red',
  strokewidth => 1,
);

die $result if $result;

my $output_file_name = './red.gif';
$result              = $image -> Write($output_file_name);

die $result if $result;

$result = $image -> Read('xc:white');

die $result if $result;

$result = $image -> Draw
(
  fill        => 'gold',
  method      => 'Floodfill',
  points      => '100,100 168,100 200,50 232,100 300,100 266,150 300,200
232,200 200,250 168,200 100,200 134,150',
  primitive   => 'polygon',
  stroke      => 'gold',
  strokewidth => 1,
);

die $result if $result;

my $output_file_name = './gold.gif';
$result              = $image -> Write($output_file_name);

die $result if $result;
=====><8=====

to create 2 images, and then combine then with:
shell> convert -delay 1 red.gif gold.gif -loop 0 star.gif

Warning: Debian's /default/ image viewer 'Eye of GNOME' will not loop,
but using ImageMagick's display looping occurs:
shell> display star.gif
although there seems to be a bug in display in that the image is
refreshed far to slowly to match the '-delay 1' option (1/100 sec).
-- 
Ron Savage
ron at savage.net.au
http://savage.net.au/index.html