Legacy ImageMagick Discussions Archive

Code: Select all

#!/usr/bin/env perl
use strict;
use warnings;
use Image::Magick;


my $image = Image::Magick->new(size => "1200x1200");
my $error = $image->Read('canvas:black');
if ("$error") {
	errorMessage($error);
}
$error = $image->Resize(geometry => "800×480!");
if ("$error") {
	errorMessage($error);
}
$image->Write(filename => "AppleTV-Home-Background\@2x.png", compression => "None");
#*****************************************************************************************
# print an error message and exit
#*****************************************************************************************
sub errorMessage {
    print "@_\n";
    exit(2);
}