#!/usr/bin/perl 
use strict;
use warnings;
use v5.12;
use File::Temp qw/ tempdir /;
use Graphics::Magick;
use Math::Round qw(:all);
my $p = new Graphics::Magick;
$p->Read("Leucospermum_cultivar.jpg");
my ($width, $height) = $p->Get('width', 'height');
my $center = $width/2;
my $result = new Graphics::Magick;
$result->Set(size=>"${width}x${height}");
$result->Read();
$result->Set('quality', 100);
my $dir = tempdir(CLEANUP => 1);
my $chop = 16; # 1 MCU normally
for my $col (0..$width) {
	next if $col%$chop; 
	my $current = $p->Clone();
	$current->Crop(width => $chop, height => $height, x => $col, y => 0);
	$current->Set('quality' => round_even(100*abs(($col-$center)/$center)));
	my $filename = sprintf "%s/%05d.jpg", $dir, $col;
	$current->Write($filename);
	my $n = new Graphics::Magick;
	$n->Read($filename);
	$result->Composite( image => $n, x => $col, y => 0);
}
$result->Write('Leucospermum_cultivar_gradual_decrease_of_quality.jpg');