use strict;
use Prima 1.27;
use IPA qw(Misc);
die "need image\n" unless @ARGV;

my $source = Prima::Image-> load($ARGV[0]);
die "Can't load $ARGV[0]:$@\n" unless $source;
$source-> type(im::bpp24);
    
my $mask = Prima::Image-> new(
    width  => $source-> width  * 2,
    height => $source-> height * 2,
    type   => im::BW,
);
my @size = $mask-> size;
my $max = $size[$size[0] < $size[1]] / 2;

my $step = 2;
my @centers  = (
    [ 243, 159 ],
    [ 208, 150 ],
    [ 233, 111 ],
);

my @img;
for ( my $offset = 0; $offset < $step * 2; $offset++) {
    $mask-> begin_paint;
    $mask-> clear;
    $mask-> lineWidth( $step);
    my @center = map { int($_ + .5) } ($size[0] / 2, $size[1] / 2);
    for ( my $i = 0; $i < $max; $i += $step * 2) {
        my $d = $offset * 2 + $i * 2;
        $mask-> ellipse( @center, $d, $d);
    }
    $mask-> end_paint;
    
    my @channels = @{ IPA::Misc::split_channels( $source, 'rgb') };
    for ( my $i = 0; $i < @channels; $i++) {
        $channels[$i]-> put_image(
            $centers[$i]->[0] - $center[0],
            $centers[$i]->[1] - $center[1],
            $mask, rop::AndPut
        );
    }
    my $output = combine_channels( \@channels, 'rgb');
    $output-> type(im::bpp8);
    push @img, $output; 

}

my $saved = Prima::Image-> save(
    "output.gif",
    images    => \@img,
    loopCount => 0,
    delayTime => 5,
);
die "Cannot save output.gif:$@\n" unless $saved == @img;
[download]