[Image::Magick] Rechteck ohne Füllung (Fragen zu Perl-Modulen)

[thread]18663[/thread]

[Image::Magick] Rechteck ohne Füllung

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+6 replies
jan99

2013-10-09 12:03
User since
2008-09-18
439 articles
BenutzerIn
Moin !

ich muss meine Mal-Knecht nochmal etwas anpassen - bisher hat er nur eine farbige Fläche erstellt. Aber nun muss noch ein schwarzer Rand von einem Pixel Breite ergänzt werden.

Wie der Code gleich zeigt habe ich es schon ausprobiert - aber ohne den gewünschten Erfolgt. Ich hatte mir auch $img->Poly angesehen, aber der zeichnet auch nur ein Fläche in schwarz.

Kann mir einer weiterhelfen ?

Gruß Jan :-)

PS: irgendwo gab es einmal ein tolles Tutorial mit einfachen geometrischen Formen die mit image::magick gezeichnet wurden. Nicht die mit nur Text und den ganzen Optionen - ich finde es einfach nicht wieder. Auch hier noch einen Tipp?

--- source ----
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

#!/usr/bin/perl use strict; use warnings; use Image::Magick; my $red = $ARGV[1]; my $green = $ARGV[2]; my $blue = $ARGV[3]; my $name = $ARGV[0] || '' ; print "red: ".$red."\n"; print "green: ".$green."\n"; print "blue: ".$blue."\n"; print "name: ".$name."\n"; my $warn; my $DEBUG = 1; # Dateiname my $color_hex = sprintf "#%02X%02X%02X",$red,$green,$blue; warn $color_hex if $DEBUG; # Objekt für Bilder erzeugen my $img = Image::Magick->new(); # Bildgröße setzen $img->Set(size=>'30x20', fill => 'white'); $img->Draw(primitive=>'rectangle', points=>'10,1 15,20', strokewidth=>1,stroke=>'Black'); # Bild mit Farbe erzeugen $img->ReadImage("xc:$color_hex"); $name = $name."_" if ($name ne ''); $warn = $img->Write($name.$red."_".$green."_".$blue.".gif"); die $warn if $warn;
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +2 replies
- pq
  
  2013-10-09 12:23
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  da du im gelösten thread Problem mit den / wahrscheinlich nicht mehr mitliest - du hattest extra nachgefragt, wie du den thread als gelöst markierst und GwenDragon hat dir geantwortet und dann hast du es doch nicht gemacht - schreibe ich dir hier nochmal zur erinnerung, dass du bitte den grünen haken anklickst
  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
  - jan99
    
    2013-10-09 12:28
    
    User since
    2008-09-18
    439 articles
    BenutzerIn
    
    habe zwischenzeitlich auf die Erinnerung reagiert!
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- GUIfreund
  
  2013-10-11 16:54
  User since
  2011-08-08
  559 articles
  BenutzerIn
  2013-10-09T10:03:25 jan99
  ich muss meine Mal-Knecht nochmal etwas anpassen - bisher hat er nur eine farbige Fläche erstellt. Aber nun muss noch ein schwarzer Rand von einem Pixel Breite ergänzt werden.
  
  Mir ist nicht ganz klar, welche Farbe die Rechteckfläche haben soll. Für 'weiß' geht es so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  #!/usr/bin/perl use strict; use warnings; use Image::Magick; my $err; [..........] # Objekt für Bilder erzeugen my $img = Image::Magick->new(); # Bildgröße setzen $err = $img->Set(size=>'30x20', fill => 'white'); die "$err" if "$err"; # Bild mit Farbe erzeugen $err = $img->ReadImage("xc:$color_hex"); die "$err" if "$err"; $err = $img->Draw(primitive=>'rectangle', points=>'10,1 25,18', strokewidth=>1,stroke=>'Black'); die "$err" if "$err";
  
  Für eine andere Farbe musst du noch 2 Zeilen ergänzen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  # Bild mit Farbe erzeugen $err = $img->ReadImage("xc:$color_hex"); die "$err" if "$err"; $err = $img->Set(fill => 'orange'); # neu die "$err" if "$err"; # neu $err = $img->Draw(primitive=>'rectangle', points=>'10,1 25,18', strokewidth=>1,stroke=>'Black'); die "$err" if "$err";
  
  HTH.
  Gruß
  GUIfreund
- GwenDragon
  
  2013-10-12 10:37
  User since
  2005-01-17
  14749 articles
  Admin1
  ReadImage überschreibt bei dir ja das mit Draw gezeichnete komplett ;)
  
  Alles eine Frage der Reihenfolge und der richtigen Parameter:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  # Bildgröße setzen $img->Set(size=>'30x20', fill => 'white'); $img->ReadImage("xc:$color_hex"); $img->Draw( primitive=>'rectangle', points=>'10,1 15,20', strokewidth=>1, stroke=>'Black', fill => 'none' );
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GUIfreund
  
  2013-10-13 14:40
  User since
  2011-08-08
  559 articles
  BenutzerIn
  Vielleicht willst du ja einfach nur ein farbiges Rechteck zeichnen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  # Objekt für Bilder erzeugen my $img = Image::Magick->new(); # Bildgröße setzen $err = $img->Set(size=>'30x20'); die "$err" if "$err"; # Bild mit Farbe erzeugen my $color_hex = sprintf "#%02X%02X%02X",0,255,0; # grün $err = $img->ReadImage("xc:$color_hex"); die "$err" if "$err"; $err = $img->Draw(primitive=>'rectangle', points=>'10,1 15,19', stroke=>'Black', fill => 'orange', ); die "$err" if "$err";
  
  Anmerkungen:
  - Das Rechteck habe ich etwas niedriger gemacht, damit es ins Bild passt.
  - Da ich mich mit Image::Magick nur wenig auskenne, prüfe ich überall auf Fehler.
  Gruß
  GUIfreund

View all threads created 2013-10-09 12:03.