Opened by jan99 at 2013-10-09 12:03
User since
2008-09-18
439 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-09-18
439 Artikel
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 ----
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