#!/usr/bin/perl
use strict;
use lib qw(/Users/alex/Documents/perl/vasarely-pompidou-effect/lib);
use Pompidou;
$|++;
my $limit = 153;
my $i = 0;
for ( $i = 0 ; $i <= $limit ; $i++ ) {
my $t = ( $i * 5 );
my $pomp = Pompidou->new(
image => 'image.gif',
threshold => $t,
max_width => 960,
max_height => 540,
num_columns => 70,
);
my $img = $pomp->transform;
open my $fh, ">", $t . '.gif' or die $!;
binmode $fh;
print $fh $img->gif or die $!;
close $fh or die $!;
print $t . " Complete. \n";
}
print "\nDone!\n\n";
