www.pudn.com > nasm-src.rar > psfonts.ph

#!/usr/bin/perl 
# 
# Font metrics for the PS code generator 
# 
 
# These files are generated from AFM files 
require 'metrics/ptmr8a.ph';	# Times-Roman 
require 'metrics/ptmb8a.ph';	# Times-Bold 
require 'metrics/ptmri8a.ph';	# Times-Italic 
require 'metrics/ptmbi8a.ph';	# Times-BoldItalic 
require 'metrics/pcrr8a.ph';	# Courier 
require 'metrics/pcrb8a.ph';	# Courier-Bold 
require 'metrics/phvb8a.ph';	# Helvetica-Bold 
require 'metrics/phvbo8a.ph';	# Helvetica-BoldOblique 
 
# The fonts we want to use for various things 
# The order is:    
 
%TitlFont = (name => 'tfont', 
	     leading => 20, 
	     fonts => [[20,\%PS_Times_Bold], 
		       [20,\%PS_Times_BoldItalic], 
		       [20,\%PS_Courier_Bold]]); 
%ChapFont = (name => 'cfont', 
             leading => 18, 
	     fonts => [[18,\%PS_Times_Bold], 
		       [18,\%PS_Times_BoldItalic], 
		       [18,\%PS_Courier_Bold]]); 
%HeadFont = (name => 'hfont', 
	     leading => 14, 
	     fonts => [[14,\%PS_Times_Bold], 
		       [14,\%PS_Times_BoldItalic], 
		       [14,\%PS_Courier_Bold]]); 
%SubhFont = (name => 'sfont', 
	     leading => 12, 
	     fonts => [[12,\%PS_Times_Bold], 
		       [12,\%PS_Times_BoldItalic], 
		       [12,\%PS_Courier_Bold]]); 
%BodyFont = (name => 'bfont', 
	     leading => 11, 
	     fonts => [[11,\%PS_Times_Roman], 
		       [11,\%PS_Times_Italic], 
		       [11,\%PS_Courier]]); 
 
# 
# List of all fontsets; used to compute the list of fonts needed 
# 
@AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont ); 
 
# OK 
1;