psfonts.ph

nasm的全套源代码,有些我做了些修改,以方便您更方便更容易调试成功,方便学习做编译器

#!/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: <normal> <emphatic> <code>

%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;