FM / demo

/usr/share/doc/ImageMagick-perl/demo

Name	Size	Mode	Actions
annotate.pl	1589	0644	edit dl rm
annotate_words.pl	1967	0644	edit dl rm
button.pl	359	0644	edit dl rm
compose-specials.pl	5473	0644	edit dl rm
composite.pl	1525	0644	edit dl rm
demo.pl	12097	0644	edit dl rm
lsys.pl	2336	0644	edit dl rm
Makefile	360	0644	edit dl rm
model.gif	23433	0644	edit dl rm
piddle.pl	1908	0644	edit dl rm
pink-flower.gif	544	0644	edit dl rm
pixel-fx.pl	1545	0644	edit dl rm
README	124	0644	edit dl rm
red-flower.gif	694	0644	edit dl rm
settings.pl	697	0644	edit dl rm
shadow-text.pl	505	0644	edit dl rm
shapes.pl	1240	0644	edit dl rm
single-pixels.pl	1129	0644	edit dl rm
smile.gif	1349	0644	edit dl rm
steganography.pl	664	0644	edit dl rm
tile.gif	1566	0644	edit dl rm
tree.pl	744	0644	edit dl rm
Turtle.pm	868	0644	edit dl rm
yellow-flower.gif	565	0644	edit dl rm

Edit: /usr/share/doc/ImageMagick-perl/demo/annotate_words.pl (1967B)

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

#!/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");