Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Generic.ttf.gz	12.63 KB	-rw-r--r--
Makefile	360 B	-rw-r--r--
README	124 B	-rw-r--r--
Turtle.pm	868 B	-rw-r--r--
annotate.pl	1.53 KB	-rw-r--r--
annotate_words.pl	1.9 KB	-rwxr-xr-x
button.pl	335 B	-rw-r--r--
compose-specials.pl.gz	1.43 KB	-rw-r--r--
composite.pl	1.47 KB	-rw-r--r--
demo.pl.gz	2.2 KB	-rw-r--r--
dst.png	270 B	-rw-r--r--
lsys.pl	2.26 KB	-rw-r--r--
model.gif	22.88 KB	-rw-r--r--
piddle.pl	1.84 KB	-rw-r--r--
pink-flower.gif	544 B	-rw-r--r--
pixel-fx.pl	1.48 KB	-rwxr-xr-x
red-flower.gif	694 B	-rw-r--r--
settings.pl	697 B	-rwxr-xr-x
shadow-text.pl	476 B	-rw-r--r--
shapes.pl	1.19 KB	-rw-r--r--
single-pixels.pl	1.07 KB	-rwxr-xr-x
smile.gif	1.32 KB	-rw-r--r--
src.png	305 B	-rw-r--r--
steganography.pl	597 B	-rw-r--r--
tile.gif	1.53 KB	-rw-r--r--
tree.pl	744 B	-rw-r--r--
yellow-flower.gif	565 B	-rw-r--r--

Code Editor : annotate_words.pl

#!/usr/bin/perl
#
# annotate_words.pl
#
# Take the internal string, split it into words and try to annotate each
# individual word correctly, so as to control spacing between the words
# under program control.
#
# A demonstration of using QueryFontMetrics(), by passing it exactly the same
# arguments as you would for Annotate(), to determine the location of the
# text that is/was drawn.
#
# Example script from   Zentara
#    http://zentara.net/Remember_How_Lucky_You_Are.html
#
use warnings;
use strict;
use Image::Magick;

my $image = Image::Magick->new;
$image->Set(size=>'500x200');
my $rc = $image->Read("xc:white");

my $str = 'Just Another Perl Hacker';
my (@words) = split ' ',$str;
#print join "\n",@words,"\n";

my ($x,$y) = (50,50);

foreach my $word (@words){

$image->Annotate(font=>'Generic.ttf',
         pointsize => 24,
         fill      => '#000000ff', #last 2 digits transparency in hex ff=max
         text      => $word,
         gravity   => 'NorthWest',
         align     => 'left',
         x         => $x,
         y         => $y,
    );

my ( $character_width,$character_height,$ascender,$descender,$text_width,
      $text_height,$maximum_horizontal_advance, $boundsx1, $boundsy1,
      $boundsx2, $boundsy2,$originx,$originy) =
          $image->QueryFontMetrics(
             pointsize => 24,
             text      => $word,
             gravity   => 'NorthWest',
             align     => 'left',
             x         => $x,
             y         => $y,
           );

print "$word ( $character_width, $character_height,
         $ascender,$descender,
         $text_width, $text_height,
         $maximum_horizontal_advance,
         $boundsx1, $boundsy1,
         $boundsx2, $boundsy2,
         $originx,$originy)\n";

my $n = $x + $originx + $character_width/3;  # add a space
  print "Next word at: $x + $originx + $character_width/3 => $n\n";
  $x = $n;

}

$image->Write("show:");

exit;

${this.title}

Code Editor : annotate_words.pl