Bild verkleinn: aber nur bei größeren Bildern (Allgemeines zu Perl)

[thread]6035[/thread]

Bild verkleinn: aber nur bei größeren Bildern

Froschpopo

2004-01-25 01:48

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Hi,

mit dem folgenden Code verkleinere ich Bild, bzw optimiere Sie.

Code: (dl )

my ($width,$height) = imgsize($pic);
my ($thumbnailwidth, $thumbnailheight) = ($width, $height);

my $max_height = 250;
my $max_width = 300;

my $relation = ($height / $max_height) > ($width / $max_width) 
               ? $height / $max_height  : $width / $max_width;

$thumbnailheight = sprintf ("%.0f",$height / $relation);

$thumbnailwidth = sprintf ("%.0f",$width / $relation);

my $big = GD::Image->newFromJpeg("/usr/local/httpd/htdocs/userpics/$baba");

my $lit = new GD::Image($thumbnailwidth, $thumbnailheight);

$lit->copyResized($big, 0, 0, 0, 0, $thumbnailwidth, $thumbnailheight, $width, $height);

my $jpeg_data = $lit->jpeg;

Nun habe ich zwei Anliegen:
Ich möchte, dass Bilder die Kleiner sind, nicht vergrößert werden. D.h. ich will nur Bilder in o.g. Maß verkleinern, die größer sind. Der obere Code aber vergrößert auch Bilder, die nur 10x10 Pixel groß sind auf 250x300. Kann mir da jemand behilflich sein... ? Ich komm einfach nicht drauf...

Mein zweites anliegen poste ich, nachdem wir dieses Problem hier behoben haben.

Dubu

2004-01-25 02:35

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Schau einfach, ob $relation groesser oder kleiner als 1 ist.

tomlong

2004-01-25 02:37

User since
2003-08-04
93 Artikel
BenutzerIn
[default_avatar]

du machst ne simple if Bedingung ...
wenn Werte des Startbildes kleiner als Werte des Endbildes (die hast du ja) dann soll er nix verändern

oder hab ich da was falsch verstanden ... ich meine ... einfachere Probleme gibts eigenlich kaum beim Proggen :p

Live long and prosper!
42;

Crian

2004-01-25 03:22

User since
2003-08-04
5873 Artikel
ModeratorIn

Wahrscheinlich ist es mit dem Problem so wie mit dem Wald und den Bäumen :)\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

2004-01-26 15:39

User since
2003-08-04
12208 Artikel
Admin1

[quote=Froschpopo,25.01.2004, 00:48]
Ich möchte, dass Bilder die Kleiner sind, nicht vergrößert werden. D.h. ich will nur Bilder in o.g. Maß verkleinern, die größer sind. Der obere Code aber vergrößert auch Bilder, die nur 10x10 Pixel groß sind auf 250x300.[/quote]
also lies dir deine obigen drei sätze nochmal durch und sag uns dann, ob
du das selbst verstehen würdest. einmal willst du vergrößern, dann
verkleinern, dann wieder vergrößern.
ausserdem, wie definierst du größer und kleiner?
ist ein bild 1x400 grösser als 5x100, weil eine seite länger ist? oder ist es
kleiner, weil es weniger fläche hat?

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Crian

2004-01-26 16:21

User since
2003-08-04
5873 Artikel
ModeratorIn

Da es um Thumbnails geht, vermute ich "kleiner" bedeutet, dass beide Längenausdehnungen kleiner gleich den angegebenen Größen sein sollen...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2004-01-26 20:22

User since
2003-08-04
5246 Artikel
ModeratorIn

auf meiner HP ist unter Downloads -> Tk-CreateThumbnailgallery ein tk-script, das eine Webgalerie erzeugt. vielleicht hilft dir das weiter?

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

esskar

2004-01-27 06:38

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

my ($width,$height) = imgsize($pic);
my ($thumbnailwidth, $thumbnailheight) = ($width, $height);

my $max_height = 250;
my $max_width = 300;

my $relation = ($height / $max_height) > ($width / $max_width) 
              ? $height / $max_height  : $width / $max_width;

my $big = GD::Image->newFromJpeg("/usr/local/httpd/htdocs/userpics/$baba");
my $jpeg_data = $big;

if($relation > 1)
{
   $thumbnailheight = sprintf ("%.0f",$height / $relation);
   $thumbnailwidth = sprintf ("%.0f",$width / $relation);

   my $lit = new GD::Image($thumbnailwidth, $thumbnailheight);

   $lit->copyResized($big, 0, 0, 0, 0, $thumbnailwidth, $thumbnailheight, $width, $height);

   $jpeg_data = $lit->jpeg;
}

\n\n

View all threads created 2004-01-25 01:48.