Code: Select all
#!/usr/bin/perl
use Image::Magick;
use strict;
my $image = new Image::Magick;
$image->ReadImage( 'xc:none' );
$image->Set( size => '500x500' );
$image->Annotate( text=>'This is a cool line of text', font=>'arial.ttf', fill=>'blue', pointsize=>'12', geometry=>'+0+14' );
$image->Write( '__TextOut.png' )
Any thoughts?