ImageMagick : équivalent de la commande "convert -geometry 1280x1024 -density 200x200

Version imprimable

13/11/2008, 18h10
tagada_tagada

ImageMagick : équivalent de la commande "convert -geometry 1280x1024 -density 200x200

Bonsoir,

j'ai essayé quelques programmes pour parvenir au même résultat en utilisant le module Image::Magick de Perl mais sans succes...
Auriez-vous une idée pour obtenir l'équivalent de la commande :

Citation:

convert -geometry 1280x1024 -density 200x200 -quality 100 monfichier.pdf monimage.jpeg

Merci

Un truc du genre :

Code:

1
2
$im->Read('monfichier.pdf');
$im->Write(filename => 'monfichier.jpg', density => '200x200', quality => 100);

Non ?

--
Jedaï

13/11/2008, 21h46
tagada_tagada
Citation:
Envoyé par Jedai

Un truc du genre :

Code:

1 2 $im->Read('monfichier.pdf'); $im->Write(filename => 'monfichier.jpg', density => '200x200', quality => 100);

Non ?

--
Jedaï
Mais la taille en sortie n'est pas la taille réelle de l'image contenue dans le pdf c'est pour ça que j'avais ajouté
-geometry 1280x1024
mais c'est pas l'équivalent d'un resize et je sais pas trop comment faire en faite.
Avec la commande que j'ai donné, j'obtiens une grande image de bonne qualité alors qu'en perl, elle est petite... une taille par défaut définie je ne sais comment quand on ne lui indique pas de dimension et qui n'a rien a voir avec la taille de l'image contenue dans le pdf.
Je ne sais pas si je suis très clair
14/11/2008, 02h23
Jedai

Et tu as essayé de faire un resize entre le read() et le write() ?

Citation:

Envoyé par Jedai

Et tu as essayé de faire un resize entre le read() et le write() ?

Ca ne fonctionne pas. L'image est floue
Code:

1 2 3 4 5 6 7 8 9 #!/usr/bin/perl -w use strict ; use Image::Magick; # Création de l'image my $im = Image::Magick->new(); $im->Read('monfichier.pdf'); $im->Resize(geometry=>'1280x1024',width=> '1280', height=>'1024',) ; $im->Write(filename => 'monfichier.jpg', density => '300x300', quality => 100);

et ça

Code:

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
use strict ;
use Image::Magick;
 
# Création de l'image
my $im = Image::Magick->new();
$im->Read('monfichier.pdf');
$im->Resize(width=> '1280', height=>'1024') ;
$im->Write(filename => 'monfichier.jpg', density => '300x300', quality => 100);

Citation:

Envoyé par djibril

et ça

Code:

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
use strict ;
use Image::Magick;
 
# Création de l'image
my $im = Image::Magick->new();
$im->Read('monfichier.pdf');
$im->Resize(width=> '1280', height=>'1024') ;
$im->Write(filename => 'monfichier.jpg', density => '300x300', quality => 100);

Pas de changement, l'ensemble reste flou

14/11/2008, 12h43
djibril

enleve density.
Sinon l'image faisait quelle taille à la base?
14/11/2008, 14h07
tagada_tagada
Citation:

Envoyé par djibril

enleve density.
Sinon l'image faisait quelle taille à la base?

en virant le density, pas un meilleur résultat que précédemment.
L'image dans le pdf a une taille de 1280x1024 et après extraction en faisant juste :
Code:

1 2 3 4 5 6 7 8 #!/usr/bin/perl -w use strict ; use Image::Magick; # Création de l'image my $im = Image::Magick->new(); $im->Read('monfichier.pdf'); $im->Write(filename => 'monfichier.jpg');
La taille de l'image générée fait 395x280
14/11/2008, 22h52
Jedai

Le problème semble être le suivant : quand Image::Magick lit un PDF il le rasterize, car Magick ne fonctionne pas avec les formats vectoriels. Apparemment dans "convert" il est possible d'indiquer quelle taille on souhaite pour la rasterization, ce qui signifie qu'on peut faire la même chose avec Image::Magick, mais je n'ai vu nulle part comment... C'est fort irritant !

En attendant, tagada, je te signale que ce que tu fais ici n'est pas "extraire une image du PDF", tu transformes l'ensemble du PDF (texte et tout) en une image, c'est fort différent. Vu nos difficultés présentes il pourrait être bien plus fructueux d'essayer d'extraire directement l'image (avec l'une des librairie de traitement de PDF sur le CPAN).

--
Jedaï