Discussion :

[crochepatte]

Bonjour,

Je suis actuellement en train de tester toutes les fonctions de l'interface Perl de ImageMagick...
Hela, bien que la création d'image et l'instertion de forme fonctionnent correctement, je n'arrive pas a utiliser la fonction Annotate "fonction permettan t d'ecrire dans l'image..." Aucun message d'erreur ne s'affiche, et le script s'execute bien...

Voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use Image::Magick;
use strict;
use warnings;
use Carp;
 
my $image = Image::Magick->new;
 
$image->Set(size=>'300x300');
$image->ReadImage('xc:white');
$image->Border(bordercolor=>'black',width=>'1', height=>'1'); 
 
$image->Draw(primitive=>'line',points=>"10,150 290, 150", stroke=>'NavyBlue');
 
$image->Annotate(font=>'arial',text=>"Image Magick");
 
$image->Write(filename=>'image.png', compression=>'None');

L'image resultant correspond bien au script, mise a part l'absence du texte...J'ai cherché mais n'ai pas trouvé l'erreur!!!

Si quelqu'un a une idée???

Merci beaucoup

[djibril]

et en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
$image->Annotate(x => 50, y => 50,
                 font      => 'comic.ttf', 
                 pointsize => 40, 
                 fill      => 'red', 
                 text      => 'Image Magick');

??

[crochepatte]

non toujours pareil...
Je suis desepéré!!!

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$image->ReadImage('xc:white');

c'est quoi xc:white?

[crochepatte]

je pense que cela permet d'initialiser le fond de l'image en blanc...le xc, ne semble pas avoir d'impacte particulier, je l'ai supprimé sans aucunes consequences...

Le fait est que j'ai repris les exemples pour la fonction Annotate a partir du web... Faut il en conclure que l'installation a échoué en partie???

[djibril]

essaye ça qd même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl -w
use strict;
use Carp;
use Image::Magick;
 
my $image = new Image::Magick;
my $titre ="ton image"; #ex toto.png
 
$image->Read($titre);
$image->Annotate(x => 50, y => 50,
                 font      => 'comic.ttf', 
                 pointsize => 40, 
                 fill      => 'red', 
                 text      => 'Hello World!');
$image->Write("toto3.png");

ça donne quoi?