SWAMPy

✎ CARVE FLESH

EDITING: 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(magick=>'SHOW',title=>"Annotate Words");

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📄 annotate.pl	PL	1.6 KB	2026-07-22 08:42	EDIT
📄 annotate_words.pl	PL	1.9 KB	2026-07-22 08:42	EDIT
📄 button.pl	PL	359 B	2026-07-22 08:42	EDIT
📄 compose-specials.pl	PL	5.3 KB	2026-07-22 08:42	EDIT
📄 composite.pl	PL	1.5 KB	2026-07-22 08:42	EDIT
📄 demo.pl	PL	11.8 KB	2026-07-22 08:42	EDIT
📄 lsys.pl	PL	2.3 KB	2026-07-22 08:42	EDIT
📄 Makefile	?	360 B	2026-07-04 21:45	EDIT
📄 model.gif	GIF	22.9 KB	2026-07-04 21:45	EDIT
📄 piddle.pl	PL	1.9 KB	2026-07-22 08:42	EDIT
📄 pink-flower.gif	GIF	544 B	2026-07-04 21:45	EDIT
📄 pixel-fx.pl	PL	1.5 KB	2026-07-22 08:42	EDIT
📄 README	?	124 B	2026-07-04 21:45	EDIT
📄 red-flower.gif	GIF	694 B	2026-07-04 21:45	EDIT
📄 settings.pl	PL	697 B	2026-07-22 08:42	EDIT
📄 shadow-text.pl	PL	505 B	2026-07-22 08:42	EDIT
📄 shapes.pl	PL	1.2 KB	2026-07-22 08:42	EDIT
📄 single-pixels.pl	PL	1.1 KB	2026-07-22 08:42	EDIT
📄 smile.gif	GIF	1.3 KB	2026-07-04 21:45	EDIT
📄 steganography.pl	PL	664 B	2026-07-22 08:42	EDIT
📄 tile.gif	GIF	1.5 KB	2026-07-04 21:45	EDIT
📄 tree.pl	PL	744 B	2026-07-22 08:42	EDIT
📄 Turtle.pm	PM	868 B	2026-07-04 21:45	EDIT
📄 yellow-flower.gif	GIF	565 B	2026-07-04 21:45	EDIT