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

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');