Hi Folks As per the Subject...
On this page http://www.cit.gu.edu.au/~anthony/graphics/imagick6/text/#size there is this example: convert -size 800x120 xc:black -font Corsiva -pointsize 100 \ -tile tile_disks.jpg -annotate +20+80 'Psychedelic!' \ -trim +repage -bordercolor black -border 10 funfont_groovy.jpg I'd like to reproduce this effect in Perl. o The size part is easy my($image) = Image::Magick -> new(size => '800x120'); o The background part is easy $result = $image -> Read('xc:black'); o The pointsize, font and text part is easy (although I'm using a different font, one which is free) $result = $image -> Annotate ( text => 'Psychedelic!', font => 'Carolingia-(BigfooT)--Normal', pointsize => 100, stroke => 'white', x => 20, y => 80, ); o I'll ignore the trim, bordercolor and border options for now o The problem is the tile option On the page www/convert.html, for tile it says: –tile filename tile image when filling a graphic primitive Questions: o What exactly is the graphic primitive being filled by the tile option in the example? Is it the text? I assume so. But in Perl the Annotate() method does not have a tile option. The Draw() method does have a tile option, and a text option, but no font or pointsize options. o When I tried Annotate() and then Texture(), the effect of texture simply fills the image with the tiled image, hiding the text. If I do Texture() and then Annotate(), I get black text on a colored bkg. o So, how exactly can the example effect be done in Perl? TIA. -- Ron Savage [EMAIL PROTECTED] http://savage.net.au/index.html _______________________________________________ Magick-users mailing list [email protected] http://studio.imagemagick.org/mailman/listinfo/magick-users
