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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

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

PathTail: Halfword;
DeltaX: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Scaled;
DeltaY: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Scaled;
Delta: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Scaled;
Psi: LONG POINTER TO ARRAY PascalInteger[1..PathSize] OF  Angle;
Theta: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Angle;
Uu: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Fraction;
Vv: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Angle;
Ww: LONG POINTER TO ARRAY PascalInteger[0..PathSize] OF  Fraction;

St: Fraction;

Ct: Fraction;

Sf: Fraction;

Cf: Fraction;

 PrintPath: PROCEDURE[H: Halfword,S: StrNumber,Nuline: PascalBoolean]
;

--:603----268:-- TossKnotList: PROCEDURE[P: Halfword];

 CopyKnot: PROCEDURE[P: Halfword] RETURNS[CopyKnotResult: Halfword]
;

 CopyPath: PROCEDURE[P: Halfword] RETURNS[CopyPathResult: Halfword];

 HtapYpoc: PROCEDURE[P: Halfword] RETURNS[HtapYpocResult: Halfword];

 CurlRatio: PROCEDURE[Gamma,ATension,BTension: Scaled] RETURNS[CurlRatioResult: Fraction]
;

 SetControls: PROCEDURE[P,Q: Halfword,K: PascalInteger];

--:299-- SolveChoices: PROCEDURE[P,Q: Halfword,N: Halfword];

 MakeChoices: PROCEDURE[Knots: Halfword];

END.