[Image::Magick] Rahmen um Text (gelöst) (Fragen zu Perl-Modulen)

[thread]18672[/thread]

[Image::Magick] Rahmen um Text [gelöst]

Tags: perl5 Image::Magick Rahmen Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+13 replies
GUIfreund

2013-10-13 19:01
User since
2011-08-08
559 Artikel
BenutzerIn
Mit Image::Magick schreibe ich einen Text auf ein Foto (schwarze Schrift auf weißem Grund):
Code (perl): (dl )

1 2 3 4 5

$err = $img->Annotate(text => $text, x => 40, y => 120, pointsize => 80, undercolor=>'white', );
Bei einzeiligem Text ist das ok, bei mehrzeiligem (Newlines in $text) sieht es blöd aus, da die Zeilen ungleich lang sind. Wie kann ich die Größe des gedachten Rahmens um den Text herausfinden? Meinetwegen auch für jede Zeile einzeln. Bei $img->Get() habe ich nichts Passendes gefunden. Ich möchte ein weißes Rechteck passender Größe unter den Text legen.
Gruß
GUIfreund
- +10 replies
- GwenDragon
  
  2013-10-14 09:56
  
  User since
  2005-01-17
  14784 Artikel
  Admin1
  
  Stichwort: ImageMagicks Methode QueryFontMetrics
  Steht übrigens auch in der Doku zu Annotate.
  
  Schau mal in msg #169752 als Beispiel.
  Mit den Werten lässt sich die Fonthöhen und -breiten berechnen.
  Wie die Schriftmetrik in ImageMagick bezeichnet wird zeigt http://www.imagemagick.org/Usage/text/#font_info
  Last edited: 2013-10-14 10:06:41 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +9 replies
  - GUIfreund
    
    2013-10-14 14:33
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    Vielen Dank für deine Hinweise.
    
    2013-10-14T07:56:46 GwenDragon
    Stichwort: ImageMagicks Methode QueryFontMetrics
    Steht übrigens auch in der Doku zu Annotate.
    
    Hatte ich gesehen. Und es gibt auch QueryMultilineFontMetrics, klingt viel versprechend. Von Tk her kenne ich den Begriff FontMetrics für Angaben über einen Font ohne Bezug auf einen konkreten Text. Ich nahm an, dass das hier auch so ist, und habe das daher nicht weiter beachtet.
    
    2013-10-14T07:56:46 GwenDragon
    Schau mal in msg #169752 als Beispiel.
    Mit den Werten lässt sich die Fonthöhen und -breiten berechnen.
    
    Aus dem dortigen Dumper-Output:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    '0', '-6', '23', '22',
    
    Diese Bounding-Box kann ja nur für ein Zeichen sein. Ich bin skeptisch.
    
    2013-10-14T07:56:46 GwenDragon
    Wie die Schriftmetrik in ImageMagick bezeichnet wird zeigt http://www.imagemagick.org/Usage/text/#font_info
    
    In diesem Artikel steckt eine Menge Info. Da muss ich noch einige Zeit investieren. Scheint sich aber zu lohnen. Vielen Dank.
    Gruß
    GUIfreund
    - +8 replies
    - GwenDragon
      
      2013-10-14 16:07
      
      User since
      2005-01-17
      14784 Artikel
      Admin1
      
      2013-10-14T12:33:42 GUIfreund
      2013-10-14T07:56:46 GwenDragon
      Schau mal in msg #169752 als Beispiel.
      Mit den Werten lässt sich die Fonthöhen und -breiten berechnen.
      
      Aus dem dortigen Dumper-Output:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      '0', '-6', '23', '22',
      
      Diese Bounding-Box kann ja nur für ein Zeichen sein. Ich bin skeptisch.
      Die maximale Breite und Höhe einer Textzeile lässt sich doch ermitteln.
      Und weviel Zeilen es sind bekommst du doch selbst raus. Oder nicht?
      
      Und QueryMultilineFontMetrics geht doch auch. ;)
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      use Image::Magick; my $text = 'Blah Blubb Moep Malp Foo Bar Baz! Mööö Muh Max'; my $image = Image::Magick->new; $image->Set( size => '800x600' ); $image->ReadImage('xc:none'); my (@params)= $image->QueryFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text); my (@params_ml)= $image->QueryMultilineFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text); use Data::Dumper; print Dumper \@params; print Dumper \@params_ml;
      
      ergibt:
      $VAR1 = [ '30', '30', '28', '-7', '712', '35', '60', '0', '-6', '23', '22', '710', '0' ]; $VAR1 = [ '30', '30', '28', '-7', '481', '105', '60', '0', '-6', '23', '22', '481', '0' ];
      
      105 sieht zu 35 fatal nach 3x soviel, also drei Zeilen aus :)
      Meinste nicht?
      Last edited: 2013-10-14 16:08:58 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +7 replies
      - GUIfreund
        
        2013-10-14 19:51
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Hab's jetzt fast fertig. Fehlt nur noch die Zeilenhöhe. Die muss ich mit Query(Multiline)FontMetrics holen. Hier der aktuelle Zustand meines Tests:
        more (9.4kb)
        'hight' kann ich nicht mit Get() holen (liefert "undef"), und 'pointsize' liefert 0 (ist eh unbrauchbar, da kleiner als die Zeilenhöhe). Die Breite wollte (und bekomme) ich möglichst exakt, damit nicht unnötig was vom Foto wegfällt.
        
        Edit: Anmerkung: Als ich deine Antwort las, war wieder der riesige Positionsbalken dabei. Scheint gar nicht so selten zu sein.
        Last edited: 2013-10-14 19:55:04 +0200 (CEST)
        Gruß
        GUIfreund
        
        GUIfreund
        
        2013-10-16 11:18
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Zu früh gefreut. Die von QueryMultilineFontMetrics gelieferte Texthöhe ist bei einem 4-zeiligen Text 140. Das umgebende Rechteck hätte also Hochformat, was nicht stimmt.
        
        Der Windows Explorer von Win7 zeigt mir in der Vorschau an: "Abmessungen: 111x97". Diese Werte sind richtig. Die 111 bekomme ich auch mit $img->Get('width'). Ich werde zunächst in CPAN nach einem Modul suchen, das mir auch die 97 aus der Bilddatei holen kann. Sollte ich nicht fündig werden, wäre auch noch eine Drehung des Bildes um 90° einen Versuch wert.
        Gruß
        GUIfreund
        
        +3 replies
        
        GwenDragon
        
        2013-10-16 11:49
        
        User since
        2005-01-17
        14784 Artikel
        Admin1
        
        height!!! Nicht hight!
        http://dict.tu-chemnitz.de/english-german/height.h...
        
        Dein Englisch ist etwas eingerostet?
        
        http://www.imagemagick.org/script/perl-magick.php#...
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        GUIfreund
        
        2013-10-17 15:35
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2013-10-16T09:49:05 GwenDragon
        height!!! Nicht hight!
        Dein Englisch ist etwas eingerostet?
        
        ... mein Kurzzeitgedächtnis auch. Ich habe das Wort argwöhnisch beäugt und sowohl mit der Online-Doku von IM als auch mit meinem Buch über (u. a.) IM verglichen, aber nichts gemerkt.
        
        Bei diesem Wort habe ich sonst oft ein Problem damit, ob das t vor oder hinter dem h kommt. Vielleicht habe ich deshalb nur auf das Ende geachtet.
        
        Ich werde meinen Kode in eine hübsche sub verpacken und als Ergebnis hier einstellen.
        
        Vielen, vielen Dank!
        Gruß
        GUIfreund
        
        GUIfreund
        
        2013-10-23 17:49
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Hier ist nun wie versprochen das Resultat meiner Bemühungen. Künftige Generationen mögen es mir danken.more (17.8kb)
        Gruß
        GUIfreund
        
        +2 replies
        
        GwenDragon
        
        2013-10-16 12:11
        
        User since
        2005-01-17
        14784 Artikel
        Admin1
        
        Border gibts übrigens auch.
        
        Code (perl): (dl )
        
        $img->Border(geometry=>"1x1",width=>1,height=>1,color=>'red');
        
        zieht dir eine Box um dein getrimmtes Bild.
        Kurze Übersicht: http://www.urz.uni-heidelberg.de/UnixCluster/Hinwe...
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GUIfreund
        
        2013-10-17 16:22
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2013-10-16T10:11:43 GwenDragon
        Border gibts übrigens auch.
        
        Code (perl): (dl )
        
        $img->Border(geometry=>"1x1",width=>1,height=>1,color=>'red');
        
        zieht dir eine Box um dein getrimmtes Bild.
        Kurze Übersicht: http://www.urz.uni-heidelberg.de/UnixCluster/Hinwe...
        
        Ich hatte vor das Umgekehrte zu versuchen, um doch noch an meinen Wert 97 zu kommen: bordercolor setzen, mit Border einen Rahmen um den Text legen, dann trimmen.
        
        Der Link kommt in meine Sammlung.
        Gruß
        GUIfreund
- +2 replies
- GwenDragon
  
  2013-10-23 19:28
  
  User since
  2005-01-17
  14784 Artikel
  Admin1
  
  Hinweis: Lösung des Problems ist in msg #171440 zu finden. Damit man sich nicht erst durch den Thread wühlen muss ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2013-10-23 19:44
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-10-23T17:28:39 GwenDragon
    Hinweis: Lösung des Problems ist in msg #171440 zu finden. Damit man sich nicht erst durch den Thread wühlen muss ;)
    
    :)
    Lösungshaken für Beiträge
    10 print "Hallo"
    20 goto 10

View all threads created 2013-10-13 19:01.