Revision 4a29a79b8f1cd58a614af82c3bb5d40fdda85d48 authored by g3gg0 on 08 October 2016, 14:22:41 UTC, committed by g3gg0 on 08 October 2016, 14:22:41 UTC
Simplify dng names
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 "`";
$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";
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...