Image::Magick fonction Annotate

Version imprimable

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:

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

et en faisant :

Code:

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

18/01/2007, 18h53
crochepatte

non toujours pareil...
Je suis desepéré!!!:(
19/01/2007, 00h41
djibril

Code:

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

c'est quoi xc:white?
19/01/2007, 10h39
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???

essaye ça qd même :

Code:

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?

19/01/2007, 14h26
crochepatte

Ben rien du tout, meme plus d'image:?

Ca marche chez toi???

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

Code:

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?

19/01/2007, 14h38
crochepatte

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

:cry:
19/01/2007, 15h06
djibril

essaye peuut etre de varier les font pour voir
sinon t'es sous quel OS déjà?
19/01/2007, 15h38
crochepatte

Je travaille sous MAC OS X 10.3.9
J'ai deja testé plusieurs font, meme en metant direcement le chemin en dur...
19/01/2007, 15h40
djibril

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 :mouarf:
http://www.imagemagick.org/script/search.php

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

ça peut peut etre t'aider, mais bon
19/01/2007, 15h48
crochepatte

Ok merci pour tout quand meme, je vais essayer de m'y resoudre, pas d'image avec texte, tant pis!!!
19/01/2007, 15h50
djibril

:mrgreen: :mrgreen: si tu pouvais te prendre un peu plus la tete dessus, ça me plairait bien au cas où tu trouve le solution :mouarf: :aie: