PerlMagick: 3:2 Thumbnail (Allgemeines zu Perl)

[thread]17439[/thread]

PerlMagick: 3:2 Thumbnail

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+9 replies
Froschpopo

2012-05-23 05:09
User since
2003-08-15
2653 articles
BenutzerIn
Guten Morgen!

Mein Kopf stößt mal wieder an seine Grenzen, nachdem ich die ganze Nacht durch gegrübelt und recherchiert habe.

Hat jemand von Euch eine Idee, wie man mittels PerlMagick (ImageMagick) einen hochkanten Bereich mit einem Seitenverhältnis von 3:2 schneiden könnte? Also im Prinzip kleine Portraitbilder.

Hier mein erster Gehversuch:
Code: (dl )

1 2 3 4 5 6

# Höhe erzwingen (110px) $image->Scale('x110'); # Das Bild hat jetzt eine unbekannte Breite # und wir schneiden einen mittigen Bereich heraus. $image = $image->Transform(crop=>'90x110+0+0', gravity=>'Center');
Das funktioniert allerdings nur, wenn das Seitenverhältnis relativ klein ist, also das Foto nicht viel schmaler als hoch ist.

Mir wäre auch lieber, ich könnte auf -gravity verzichten, da dies in Crop() nicht immer funktioniert.

Irgendeine Idee?

Beste Grüße, Luc
Last edited: 2012-05-23 05:11:30 +0200 (CEST)
- +8 replies
- Lebewesen
  
  2012-05-23 06:39
  
  User since
  2011-09-09
  62 articles
  BenutzerIn
  
  Mit perlmagic habe ich noch nicht gearbeitet, aber dafür mit imagemagic...
  
  Mein Vorgehen währe:
  1. Bilddetails holen - hier ist Höhe und Breite ja ausreichend.
  2. Bildgröße reduzieren auf die gewünschte Größe.
  3. Den Crop Ausschnitt "selbst" berechnen. (in Perl)
  4. Crop Befhel ausführen
  
  Vielleicht sollte man 1 und 2 tauschen, oder 1 nach 2 nochmal ausführen.
  
  Allerdings sollte man bessere Ergebnisse erhalten wenn man zuerst Crop ausführt und dann Skaliert. Dies sollte auch schneller sein - sagt mir zumindest mein Gefühl.
  - +7 replies
  - Lebewesen
    
    2012-05-23 06:50
    
    User since
    2011-09-09
    62 articles
    BenutzerIn
    
    Über die Get Methode solltest du die Größe bestimmen können:
    http://www.imagemagick.org/script/perl-magick.php#...
    
    Der Rest sollte dann einfach sein...
    
    Viel Spaß ;)
    - +6 replies
    - Froschpopo
      
      2012-05-23 14:55
      
      User since
      2003-08-15
      2653 articles
      BenutzerIn
      
      Wie ich Maße bestimmen kann, weiss ich bereits ;)
      Es geht darum, ein 3:2 Thumbnail herauszuschneiden welches möglichst viel und mittig platziert wird.
      Ich kann das Bild auch vorher nicht verkleinern, da auch extreme differenzen von Höhe und Breite auftreten können.
      
      Du hast vergessen folgende Maße einzukalkuliere: 200x900, 400x410 - wie aus solchen Maßen exakte 3:2 Bilder herausschneiden ??
      Last edited: 2012-05-23 15:03:27 +0200 (CEST)
      - +3 replies
      - Lebewesen
        
        2012-05-23 15:29
        
        User since
        2011-09-09
        62 articles
        BenutzerIn
        
        Code: (dl )
        
        1 2
        
        200 Höhe * 0,66 = 133 Breite => von beiden Seiten 383 weg 400 Höhe * 0,66 = 267 Breite => von beiden Seiten 71 weg
        
        Man kann doch sicher den Cropauschnitt festlegen, oder?
        
        Wenn das Seitenverhältnis anders ist, musst du halt von oben unt unten abschneiden.
        
        +2 replies
        
        Froschpopo
        
        2012-05-23 15:42
        
        User since
        2003-08-15
        2653 articles
        BenutzerIn
        
        Das Problem ist, dass evtl. keine 383 Pixel überschüssig sind. Dann würde das Bild sein Verhältnis verlieren. Ich brauche aber grundsätzlich immer dieselben Maße.
        
        Lebewesen
        
        2012-05-23 16:00
        
        User since
        2011-09-09
        62 articles
        BenutzerIn
        
        Erweitere die Bilder mit einem Rahmen (Canvas). Dann hast du vielleicht noch was überstehen - oder ich verstehe gerade dein Problem nicht.
      - +2 replies
      - topeg
        
        2012-05-23 16:23
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Ohne es getestet zu haben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my ($w,$h)=$img->Get('width','height'); my $want_aspect=3/2; my $is_aspect=$w/$h; if($want_aspect-$is_aspect > 0) { $w=int((1/$want_aspect)*$h); } else { $h=int($want_aspect*$w); } $img->Crop(width=>$w, height=>$h, gravity=>'Center');
        
        Froschpopo
        
        2012-05-23 17:14
        
        User since
        2003-08-15
        2653 articles
        BenutzerIn
        
        Hm, das funktioniert nur manchmal und es ist nicht ausschließlich hochkant.
        
        Hier mal meine Versuchsmaße:
        
        621px × 1.024px
        430px × 768px
        
        Keines von denen ergibt 3:2
        
        Wenn ich aber:
        my $is_aspect=$w/$h;
        
        durch:
        my $is_aspect = $h/$w;
        ersetze, dann klappts.
        Last edited: 2012-05-23 17:28:40 +0200 (CEST)

View all threads created 2012-05-23 05:09.