Comment puis-je centrer les légendes dans PerlMagick?

Question

En utilisant ImageMagick sur la ligne de commande que je peux dire

convert -background '#0000' -fill white -stroke black -strokewidth 3 -gravity center -pointsize 78 -size 568x1000 caption:'Lorem ipsum etc etc' -trim +repage out.png 

Et produire la sortie que je cherche. Ce que j'aimerais faire, c'est la même chose, mais dans PerlMagick, pour ne pas avoir à lire et à écrire des fichiers pendant que j'effectue d'autres étapes. Voici ce que j'ai jusqu'à maintenant

use strict; 
use warnings; 
use Image::Magick; 

my $im = new Image::Magick; 
my $e = $im->Set(
     background => '#0000', 
     fill => 'white', 
     stroke => 'black', 
     strokewidth => 3, 
     gravity => 'center', 
     pointsize => 78, 
     size => '586x1000', 
); 
die $e if $e; 

$e = $im->Read("caption:Lorem ipsum etc etc"); 
die $e if $e; 

$e = $im->Trim(); 
die $e if $e; 

$e = $im->Set(page=>'0x0+0+0'); # +repage 
die $e if $e; 

$e = $im->Write('out.png'); 
die $e if $e; 

Et cela fonctionne exactement de la même manière, sauf que le texte résultant n'est pas centré.

La documentation sur PerlMagick est presque inexistante. J'ai basé cette syntaxe de «légende de lecture» sur certains exemples de MagicWand, où l'on prétend que cela entraînera un texte centré. Clairement, quelque chose est différent pour PerlMagick. Donc, la question: Comment puis-je faire en sorte que PerlMagick respecte la gravité dans ce cas? Comment obtenir un texte multiligne, centré et enveloppé de mots via PerlMagick? Notez que cela nécessite que j'utilise une légende et ne pas annoter ou dessiner. Je préférerais éviter le centrage manuel par ligne, mais je le considérerais. Alternativement, si quelqu'un a un échantillon de faire un emballage de mots et avec des polices proportionnelles et Annoter, alors cela fonctionnerait pour moi.

EDIT: Veuillez noter que l'option -caption de polaroid, bien qu'elle partage l'implémentation avec ce que je fais, n'est pas la même que la légende: pseudo-image. J'accepterais toujours une réponse en utilisant polaroid et -caption si la sortie correspond étroitement à ce qui est donné par l'exemple de commande convert ci-dessus.

EDIT 2: Voici un exemple plus minimal du problème.

use strict; 
use warnings; 
use Image::Magick; 

my $im = new Image::Magick; 
my $e = $im->SetAttribute(
     background => '#0000', 
     pointsize=>12, 
     size => '100x100', 
     gravity => 'center', 
); 
die $e if $e; 
$e = $im->ReadImage('caption:The quick brown fox jumps over the lazy dog.'); 
die $e if $e; 
$e = $im->Write('out.png'); 
die $e if $e; 

Résultat attendu: Le texte est centré.

Résultat actuel: Le texte est justifié à gauche.

Résultat réel doit être identique à la sortie de cette commande:

convert -background '#0000' -size 100x100 -pointsize 12 -gravity center caption:'The quick brown fox jumps over the lazy dog.' out.png 

De la recherche à la source de perlmagick je ne vois rien qui devrait être Intercepter un appel SetAttribute particulier, donc je ne vois pas pourquoi la gravité est être ignoré. Comment puis-je faire en sorte que la gravité ne soit pas ignorée pour cela? Ou, comment puis-je faire du texte enveloppé et centré avec ce type de sortie?

Answer 1

Version: ImageMagick 6.5.7-8

Closer, mais ne centre pas encore horizontalement, juste à la verticale. Kinda à court d'idées ...

#!/usr/bin/perl 

use strict; 
use warnings; 
use Image::Magick; 

my $t = Image::Magick->new(); 
my $b = Image::Magick->new(); 
$t->SetAttribute(pointsize=>12, size => '100x50', background=>'transparent'); 
$b->SetAttribute(size => '100x100'); 
$t->ReadImage('caption:The quick brown fox jumps over the lazy dog.'); 
$b->ReadImage('xc:transparent'); 
$b->Composite(image => $t, gravity=>'center', compose=>'over'); 
$b->Write('out.png'); 

Answer 2

Cela fonctionne sur Ubuntu 10.04 pour moi. Je ne vois que la documentation pour "légende" travaillant avec l'effet "polaroid".

#!/usr/bin/perl 

use strict; 
use warnings; 
use Image::Magick; 

my $im = new Image::Magick; 
$im->Set(size => '586x1000'); 

my $e = $im->ReadImage('xc:black'); 

$im->Polaroid(
     fill => 'white', 
     stroke => 'black', 
     strokewidth => 3, 
     gravity => 'center', 
     pointsize => 78, 
     caption => "Lorem ipsum etc etc" 
); 

$e = $im->Trim(); 
die $e if $e; 

$e = $im->Set(page=>'0x0+0+0'); # +repage 
die $e if $e; 

$e = $im->Write('out.png'); 
die $e if $e; 

Answer 3

Comment l'utilisation Annoter()?

use strict; 
use warnings; 
use Image::Magick; 

my $im = Image::Magick->new(); 
$im->Set(size => "1000x568"); 
$im->ReadImage('xc:black'); 
$im->Annotate(text => "Lorem ipsum etc etc", 
       gravity => "Center", 
       fill => 'white', 
       stroke => 'black', 
       strokewidth => 3, 
       pointsize => 78); 
$im->Write('myout.png');