I'm trying to add a text annotation to a PDF shipping label like this:

my $image = Image::Magick->new;
open(LABEL,">/location/label.pdf");
print LABEL $label;
$image->Read(file=>\*LABEL);
close(LABEL);
$image->Annotate(text=>'test', font=>'sans', pointsize=>'20',
antialias=>'true', gravity=>'SouthWest');
$image->Write(filename=>'/location/new_label.pdf');

label.pdf is fine, but the annotated new_label.pdf file is not being
written.  My perl skills are rudimentary at best.  Can anyone spot my
mistake(s)?

- Grant
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users

Reply via email to