Image::Magick - Schlagschatten auf Text (gelöst) (Fragen zu Perl-Modulen)

[thread]17623[/thread]

Image::Magick - Schlagschatten auf Text [gelöst]

Tags: perl5 Image::Magick Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+3 replies

user123

2012-08-02 12:44

User since
2010-10-12
21 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

weiß einer von euch wie man bei Image::Magick einen Schlagschatten auf einen Text legen kann? Ich habe es bei Annotate bereits mit blur probiert, dies funktioniert aber nicht. Bekomme aber auch keine Fehlermeldung zurück. Alles was ich derzeit finden konnte, ist wie man den Schatten auf ein gesamtes Bild legen kann.

Code (perl): (dl )

$image->Annotate(
                  font=>'arial.ttf', 
                  pointsize=>36, 
                  fill=>'red',
                  text=>'Text', 
                  x=>30, 
                  y=>50,
                  blur => 'black'
                );

Die einzigste Idee die ich derzeit hätte, wäre den Text doppelt und leicht versetzt zu schreiben. Dies wäre aber nicht so schön im Code. Wäre schön wenn einer von euch vielleicht eine Idee hätte.

Viele Grüße

modedit Editiert von pq: tag Image::Magick hinzugefügt
Last edited: 2012-08-02 12:46:51 +0200 (CEST)

+2 replies

user123

2012-08-06 12:31

User since
2010-10-12
21 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich hab noch etwas weiter nachgeforscht und einen Ansatz gefunden.
Leider benötige ich das erste Image als transparentes Bild. Wenn ich aber keinen oder einen transparenten Hintergrund eingebe, funktioniert die Schattenbildung nicht mehr. An was kann das denn liegen?

Code (perl): (dl )

use Image::Magick; 
$image_1 = Image::Magick->new;
$image_2 = Image::Magick->new;
$image_1 = Image::Magick->new(size=>'300x100');
$image_1->Read('xc:none');
$image_1->Annotate(
                    font=>'arial.ttf',
                    fill=>'rgba(50,50,50,0.8)',
                          pointsize=>60, 
                    text=>'Test Text!',
                    geometry=>'+30+60'
                  );                  
$image_1->Blur('0x4');
$image_2 = Image::Magick->new(size=>'300x100');
$image_2->Read('xc:lightblue');
$image_2->Composite(image=>$image_1);
$image_2->Annotate(
                    font=>'arial.ttf',
                    fill=>'rgba(255,255,255,0.8)',
                          pointsize=>60, 
                    text=>'Test Text!',
                    geometry=>'+30+60'
                  );
$image_2->Write('shadow.png');

user123

2012-08-07 17:50

User since
2010-10-12
21 Artikel
BenutzerIn
[default_avatar]

Habe es jetzt gelöst.
Ich gebe dem Blur noch den channel mit. So funktioniert es wie es soll.

Code (perl): (dl )

$image_1->Blur(
                  geometry=> '0x4',
                  channel=> 'Opacity'
                 );

View all threads created 2012-08-02 12:44.