Discussion :

[tagada_tagada]

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 :

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

Merci

[Jedai]

Un truc du genre :

Code :

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

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

Non ?

--
Jedaï

[tagada_tagada]

Un truc du genre :

Code :

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

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

[Jedai]

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

[tagada_tagada]

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

Ca ne fonctionne pas. L'image est floue

Code :

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

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);

[djibril]

et ça

Code :

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

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);

?