Thread [Image::Magick] Rechteck ohne Füllung (5 answers)
Opened by jan99 at 2013-10-09 12:03

GUIfreund
 2013-10-11 16:54
#171122 #171122
User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]
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

View full thread [Image::Magick] Rechteck ohne Füllung