Image::Magick fonction Annotate

**crochepatte** · 18/01/2007, 14h46

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** · 18/01/2007, 18h44

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** · 18/01/2007, 18h53

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

**djibril** · 19/01/2007, 00h41

Code :

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

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

c'est quoi xc:white?

**crochepatte** · 19/01/2007, 10h39

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** · 19/01/2007, 14h20

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?

**crochepatte** · 19/01/2007, 14h26

Ben rien du tout, meme plus d'image

Ca marche chez toi???

**djibril** · 19/01/2007, 14h30

bah j'ai fait ça et ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use Image::Magick;
 
my $image = new Image::Magick;
my $titre ="depot.jpg";
 
$image->Read($titre);
$image->Annotate(x => 50, y => 50,
                 font      => 'comic.ttf', 
                 pointsize => 40, 
                 fill      => 'red', 
                 text      => 'Hello World!');
$image->Write("toto3.png");

t'as fait quoi toi? tu teste le même code? c quoi tes messages d'erreurs?

**crochepatte** · 19/01/2007, 14h38

ben j'ai fait la meme chose,
Il me recopie bien l'image d'entrée, mais toujours pas de texte...

**djibril** · 19/01/2007, 15h06

essaye peuut etre de varier les font pour voir
sinon t'es sous quel OS déjà?

**crochepatte** · 19/01/2007, 15h38

Je travaille sous MAC OS X 10.3.9
J'ai deja testé plusieurs font, meme en metant direcement le chemin en dur...

**djibril** · 19/01/2007, 15h40

bah là je sais pas. J'ai déjà eu le même souci sur un mac os serveur et j'ai jamais trouvé la solution (par contre sous linux, windows ou même mac normal), j'avais pas ce souci
C'est un mystere dont je peux pas te donner de reponse. Par contre si tu truove je suis preneur

http://www.imagemagick.org/script/search.php

http://studio.imagemagick.org/piperm...ly/010201.html

ça peut peut etre t'aider, mais bon