Thread Image::Magick - Schlagschatten auf Text
(2 answers)
Opened by user123 at 2012-08-02 12:44
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
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 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'); |