/usr/share/doc/libgd-gd2-perl/examples/demos/fonttest is in libgd-gd2-perl 1:2.46-3.1build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | #!/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);
}
}
|