Image::Magick - Optionale Attribute bei Annotate (solved) (Fragen zu Perl-Modulen)

[thread]16412[/thread]

Image::Magick - Optionale Attribute bei Annotate [solved]

Tags: perl5 Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+6 replies
Kean

2011-06-14 15:25
User since
2004-08-18
463 articles
BenutzerIn
Ich erstelle mit Image Magick eine weiße Leinwand und schreibe auf diese mit folgendem Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use Tk; use Image::Magick; my $image = Image::Magick->new; $image->Set(size=>'1014x636'); $image->ReadImage('xc:white'); $image->Annotate( text => "Testtext", family => Arial, pointsize => 18, x => 5, y => 5, stroke => "yellow", strokewidth => 2 ); $image->Write('test.png'); exit;
Wenn ich das Attribut "stroke" weglasse, hat der Text keinen gelben Rand.

Wenn ich aber
Code: (dl )

stroke => "",
schreibe, dann zieht er schwarz als Randfarbe heran.

Jetzt würde ich dieses Attribut gerne optional in einem größeren Script einbauen. Hat jemand eine Idee wie ich das anstellen kann?

Ich habe schon versucht alle Attribute in einen String zu schreiben und Annotate diesen zu übergeben, was leider nicht funktioniert hat.

modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2011-06-14 15:37:07 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2011-06-14 15:34
  User since
  2005-01-17
  14835 articles
  Admin1
  Annotate übernimmt die Parameter als Schlüssel-Werte-Paare eines Hashes.
  
  Die Extra-Parameter als Hash an Annotate übergeben.
  Beispielschnippsel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  %extra_annotate_parameter = ( family => Arial, pointsize => 18, stroke => "yellow", strokewidth => 2 ); $image->Annotate( text => "Testtext", x => 5, y => 5, %extra_annotate_parameter );
  
  Je nachdem welche Parameter du variabel übergeben willst, muss du den Hash eben ändern.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  $extra_annotate_parameter{family} = 'Courier'; $extra_annotate_parameter{stroke} = 'green'; $image->Annotate( text => "Testtext", x => 5, y => 5, %extra_annotate_parameter );
  
  Last edited: 2011-06-14 15:38:55 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Kean
    
    2011-06-14 15:43
    
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Super das hilft mir weiter!
    Vielen Dank.
  - +3 replies
  - clms
    
    2011-06-14 15:59
    User since
    2010-08-29
    373 articles
    BenutzerIn
    
    Wo man noch drauf achten sollte:
    
    Wenn bei der Parameterübergabe ein Key 2x vorkommt, wird der zweite Wert genommen.
    Wenn man also einen Hash mit Default-Werten hat, sollte der im Aufruf
    vor den expliziten Werten stehen.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    $image->Annotate( %default_annotate_params, text => "Testtext", pointsize => 36, # extra large x => 5, y => 5);
    
    Dann kannst Du bei Bedarf für einen bestimmten Aufruf einzelne
    Default-Parameter gezielt überschreiben.
    
    Beim Code von GwenDragon haben dagegen die %extra_annotate_parameter Priorität.
    Was in Deiner Anwendung sinnvoller ist, musst Du selbst wissen.
    
    Manchmal setzte ich sogar 2 Hashes ein.
    Einen mit Default-Parametern am Anfang der Paramterliste
    und einen zum gezielten Überschreiben der Werte am Ende der Liste.
    - +2 replies
    - Kean
      
      2011-06-14 16:27
      
      User since
      2004-08-18
      463 articles
      BenutzerIn
      
      Danke für den Hinweis!
      
      Gibt es eigentlich einen Push Befehl für Hashes?
      - pq
        
        2011-06-14 16:31
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        $hash{foo} = "bar"; $hash{boo} = "far"; # oder %hash = ( %hash, foo => "bar", boo => "far", );
        
        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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2011-06-14 15:25.