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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFEnvelopes: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;
EnvMove: LONG POINTER TO ARRAY PascalInteger[0..MoveSize] OF  PascalInteger;

 PrintPen: PROCEDURE[P: Halfword,
S: StrNumber,Nuline: PascalBoolean];

 TossPen: PROCEDURE[P: Halfword];

 EndRound: PROCEDURE[X,Y: Scaled]
;

--476:-- DupOffset: PROCEDURE[W: Halfword];

--477:-- MakePen: PROCEDURE[H: Halfword] RETURNS[MakePenResult: Halfword];

--484:----486:-- TrivialKnot: PROCEDURE[X,Y: Scaled] RETURNS[TrivialKnotResult: Halfword];

 MakePath: PROCEDURE[PenHead: Halfword] RETURNS[MakePathResult: Halfword];

 FindOffset: PROCEDURE[X,Y: Scaled,P: Halfword];

 SplitForOffset: PROCEDURE[P: Halfword,T: Fraction];

 FinOffsetPrep: PROCEDURE[P: Halfword,K: Halfword,W: Halfword,
X0,X1,X2,Y0,Y1,Y2: PascalInteger,Rising: PascalBoolean,N: PascalInteger];

 OffsetPrep: PROCEDURE[C,H: Halfword];

--:491----506:----510:-- SkewLineEdges: PROCEDURE[P,W,Ww: Halfword]
;

 DualMoves: PROCEDURE[H,P,Q: Halfword];

 FillEnvelope: PROCEDURE[SpecHead: Halfword];

--:506----527:-- MakeEllipse: PROCEDURE[MajorAxis,MinorAxis: Scaled,
Theta: Angle] RETURNS[MakeEllipseResult: Halfword];

END.