Image::Magick - Neues Bild (gelöst) (Fragen zu Perl-Modulen)

[thread]16404[/thread]

Image::Magick - Neues Bild [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+4 replies
Kean

2011-06-10 16:07

User since
2004-08-18
463 Artikel
BenutzerIn

Ich habe bis jetzt nur Wege gefunden mit ImageMagick ein Bild zu öffnen und zu bearbeiten. Gibt es keine Möglichkeit ein neues Bild zu erzeugen?

Ich würde gerne ein neues Bild mit weißem Hintergrund erzeugen und darauf Text zeichnen, bekomme es aber nur hin auf bereits vorhandene Bilder etwas zu schreiben.

Kann mir da jemand weiterhelfen?
- +3 replies
- GwenDragon
  
  2011-06-10 16:25
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Beispiel für die Ausgabe eines Bilds:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  use strict; use warnings; use Image::Magick; my $image = Image::Magick->new ( size=>'200x200', background=>'white' ); my $text = 'Blahh!'; # TrueType font im Verzeichnis des Programms $image->Annotate(font=>'arial.ttf', pointsize=>10, fill=>'black', text=>$text); binmode STDOUT; $image->Write('test.png');
  
  Ich hoffe, das stimmt noch.
  
  Editiert von GwenDragon: use hinzugefügt
  Last edited: 2011-06-10 16:52:46 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Kean
    
    2011-06-10 16:47
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Nein schreibt kein Bild. (auch nicht mit use Image::Magick)
    
    Aber ich hab mittlerweile eine Lösung gefunden:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    use strict; use warnings; use Image::Magick; my $image = Image::Magick->new ( size=>'200x200' ); $image->ReadImage('xc:white'); my $text = 'Blahh!'; # TrueType font im Verzeichnis des Programms $image->Annotate(font=>'arial.ttf', pointsize=>10, fill=>'black', text=>$text); $image->Write('test.png');
    
    Trotzdem Danke :-)
    - GwenDragon
      
      2011-06-10 16:57
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Oh, ja habe ich in der Eile vergessen das use ... einzufügen.
      Früher ging das mal so wie ich schrieb ohne ReadImage.
      
      Aber du hast es ja zum Glück rausgefunden.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-06-10 16:07.