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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

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

Octant: PascalInteger[1..8];
YCorr: LONG POINTER TO ARRAY PascalInteger[1..8] OF  PascalInteger[0..1];
XyCorr: LONG POINTER TO ARRAY PascalInteger[1..8] OF  PascalInteger[0..1];
ZCorr: LONG POINTER TO ARRAY PascalInteger[1..8] OF  PascalInteger[0..1];
XCorr: LONG POINTER TO ARRAY PascalInteger[1..8] OF PascalInteger[-1..1];

M0: PascalInteger;

N0: PascalInteger;

M1: PascalInteger;

N1: PascalInteger;

D0: PascalInteger[0..1];

D1: PascalInteger[0..1];

 Skew: PROCEDURE[X,Y: Scaled,
Octant: SmallNumber];

--465:-- FillSpec: PROCEDURE[H: Halfword];

END.