add fonts with a free license

example/footer.ps

@@ -1,5 +1,5 @@
 % A program to print the page footer, using the magic P function,
 % which takes a string and a font.
-(Tools for Publishing Source Code via OCR ) /Futura P
+(Tools for Publishing Source Code via OCR ) /Beteckna P
 (\343) /Symbol P	% Copyright symbol
-( 1997 Pretty Good Privacy, Inc.) /Futura P
+( 1997 Pretty Good Privacy, Inc.) /Beteckna P

ps/prolog.ps

@@ -1,11 +1,10 @@
-##set pageNumFont="Futura"
-##set dirNameFont="Futura-Heavy"
-##set fontsNeeded="${font} Symbol Futura Futura-Heavy"
+##set pageNumFont="Beteckna"
+##set dirNameFont="Beteckna-Bold"
+##set fontsNeeded="${font} Beteckna Beteckna-Bold"
 ##set includeFontComments=<<"END"
 %%IncludeResource: font ${font}
-%%IncludeResource: font Symbol
-%%IncludeResource: font Futura
-%%IncludeResource: font Futura-Heavy
+%%IncludeResource: font Beteckna
+%%IncludeResource: font Beteckna-Bold
 END
 ##if ${font} eq Courier
 ##set charShrinkFactor=0.93

tools/psgen.pl

@@ -34,7 +34,7 @@ $tempFile = "/tmp/psgen-$$";
 # Parse arguments
 $firstLogPage = $firstPhysPage = 0;
 $productNumber = 1;
-$font = "OCRB";
+$font = "Inconsolata";
 $autoEdit = 0;
 while ($#ARGV >= 0 && $ARGV[0] =~ /^-/)
 {

tools/yapp.pl

@@ -89,7 +89,7 @@ sub DoPrepass
 
 	return "" if /^###/;
 	s/\s*###.*//;								# Strip comments
-	s/\${(\w+)}/&VarSubst($1, $skipFlag)/eg;	# Do variable substitutions
+	s/\$\{(\w+)}/&VarSubst($1, $skipFlag)/eg;	# Do variable substitutions
 	$_;
 }