Hallo,
ich habe ein Bild mit dem GD-Modul von Perl verkleinert.
Hier das Ergebnis im Vergleich mit dem Grafikprogramm Gimp:
http://j-haefner.de/test/gd_gimp.html
Ich frage mich warum bei GD beim verkleinern das Ergebnis so schlecht ist in der Qualität?
Hier der Code:
Kennt sich hier bezüglich GD jemand aus? Oder kennt wer bessere Alternativen?
Danke im voraus.
Gruß Gustl
ich habe ein Bild mit dem GD-Modul von Perl verkleinert.
Hier das Ergebnis im Vergleich mit dem Grafikprogramm Gimp:
http://j-haefner.de/test/gd_gimp.html
Ich frage mich warum bei GD beim verkleinern das Ergebnis so schlecht ist in der Qualität?
Hier der Code:
Code:
use GD;
my $bildle = newFromJpeg GD::Image("hochzeitsfrisur0.jpg");
my ($Breite_Quelle,$Hoehe_Quelle) = $bildle->getBounds();
my $Hoehe_Ziel= $Hoehe_Quelle / $Breite_Quelle * 800;
my $bild=new GD::Image(800,$Hoehe_Ziel);
$bild->copyResized($bildle,0,0,0,0,800,$Hoehe_Ziel,$Breite_Quelle,$Hoehe_Quelle);
#Ausgabe im Browser
#binmode STDOUT;
#print $bild->jpeg(100);
#verkleinertes Bild speichern
open(newpic,">gd.jpg");
binmode newpic;
print newpic $bild->jpeg(100);
close(newpic);Kennt sich hier bezüglich GD jemand aus? Oder kennt wer bessere Alternativen?
Danke im voraus.
Gruß Gustl
