/usr/share/doc/perl-GD/demos
Edit: /usr/share/doc/perl-GD/demos/fonttest (936B)
#!/usr/bin/perl -w
use lib './blib/arch','./blib/lib';
use strict;
use GD;
use subs qw( charmap );
my $teststring = pack 'C*', 32, 1 .. 255;
my $im = new GD::Image(640, 500);
my ($white, $black) =
(
$im->colorAllocate(255, 255, 255),
$im->colorAllocate(0, 0, 0),
);
# $im->transparent($white);
$im->interlaced(1);
charmap($im, gdGiantFont, "GiantFont 9x15", 20, 16);
charmap($im, gdLargeFont, "LargeFont 8x16", 120, 16);
charmap($im, gdMediumBoldFont, "gdMediumBoldFont 7x13b", 220, 13);
charmap($im, gdSmallFont, "gdSmallFont 6x13", 320, 13);
charmap($im, gdTinyFont, "gdTinyFont 5x8", 420, 8);
binmode(STDOUT);
print $im->png;
sub charmap
{
my $im = shift;
my ($font, $title, $topoffset, $lineskip) = @_;
$im->string($font, 16, $topoffset, $title.':', $black);
my $line;
for $line (0 .. 4)
{
$im->string($font, 16, $topoffset + (1 + $line) * $lineskip,
substr($teststring, $line * 64, 64), $black);
}
}
