Revision 1eda93d78a1610f3ceb134690f48d3abc181db9e authored by hudson@kremvax on 25 July 2009, 14:51:56 UTC, committed by hudson@kremvax on 25 July 2009, 14:51:56 UTC
1 parent 86475e7
generate-font
#!/usr/bin/perl
# This uses the bigtext program, which you must build separately.
use strict;
use warnings;
my $font = shift || '-*-helvetica-*-r-*-*-34-*-100-100-*-*-iso8859-*';
my $start = shift || 19;
my $width = shift || 25;
my @chars = (
'A'..'Z',
'a'..'z',
'0'..'9',
' ', '/', '#', ',', "'",
qw/ < > { } @ \\ = : ! " $ % & ( ) * + - . [ ] ^ _ ` ~ /
);
for my $char (@chars)
{
# The _ is to force a leading space and the Mj is to force
# maximum ascender and descender
my $str = "'_$char |`Mj'";
$str = q{"_' |\\`Mj"} if $char eq "'";
$str = q{"_\\ |\\`Mj"} if $char eq "\\";
my @lines = `bigtext -font '$font' $str`;
# Cut out just the second character worth of space
my $text;
for( @lines )
{
$text .= substr( $_, $start, $width ) . "\n";
}
print "$char =\n$text\n";
}
Computing file changes ...