-- file: MFTFM.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFTFM: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;

TfmFile: ByteFile;

MetricFileName: StrNumber;

Bc: EightBits;

Ec: EightBits;
TfmWidth: LONG POINTER TO ARRAY EightBits OF  Scaled;
TfmHeight: LONG POINTER TO ARRAY EightBits OF  Scaled;
TfmDepth: LONG POINTER TO ARRAY EightBits OF  Scaled;
TfmItalCorr: LONG POINTER TO ARRAY EightBits OF  Scaled;
CharExists: LONG POINTER TO ARRAY EightBits OF  PascalBoolean;
CharTag: LONG POINTER TO ARRAY EightBits OF  PascalInteger[0..3];
CharRemainder: LONG POINTER TO ARRAY EightBits OF  EightBits;
HeaderByte: LONG POINTER TO ARRAY PascalInteger[1..HeaderSize] OF PascalInteger[-1..255];
LigKern: LONG POINTER TO ARRAY PascalInteger[0..LigTableSize] OF  FourQuarters;

Nl: PascalInteger[0..LigTableSize];
Kern: LONG POINTER TO ARRAY EightBits OF  Scaled;

Nk: PascalInteger[0..256];
Exten: LONG POINTER TO ARRAY EightBits OF  FourQuarters;

Ne: PascalInteger[0..256];
Param: LONG POINTER TO ARRAY PascalInteger[1..MaxFontDimen] OF  Scaled;

Np: PascalInteger[0..MaxFontDimen];

Nw: PascalInteger[0..256];

Nh: PascalInteger[0..256];

Nd: PascalInteger[0..256];

Ni: PascalInteger[0..256];

Perturbation: Scaled;
DimenHead: LONG POINTER TO ARRAY PascalInteger[1..4] OF  Halfword;

MaxTfmDimen: Scaled;

TfmChanged: PascalInteger;

 SortIn: PROCEDURE[V: Scaled] RETURNS[SortInResult: Halfword];

--1117:-- MinCover: PROCEDURE[D: Scaled] RETURNS[MinCoverResult: PascalInteger];

 Threshold: PROCEDURE[M: PascalInteger] RETURNS[ThresholdResult: Scaled]
;

--1120:-- Skimp: PROCEDURE[M: PascalInteger] RETURNS[SkimpResult: PascalInteger];

 TfmWarning: PROCEDURE[M: SmallNumber];

--:1122----1127:-- FixDesignSize: PROCEDURE;

--1128:-- DimenOut: PROCEDURE[X: Scaled] RETURNS[DimenOutResult: PascalInteger]
;

--1130:-- FixCheckSum: PROCEDURE;

--:1130----1132:-- TfmTwo: PROCEDURE[X: PascalInteger]
;

 TfmFour: PROCEDURE[X: PascalInteger]
;

 TfmQqqq: PROCEDURE[X: FourQuarters];

END.