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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

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

CurEdges: Halfword;

CurWt: PascalInteger;

TraceX: PascalInteger;

TraceY: PascalInteger;

TraceYy: PascalInteger;

--332:----333:-- PrintWeight: PROCEDURE[Q: Halfword,XOff: PascalInteger]
;

 PrintEdges: PROCEDURE[S: StrNumber,Nuline: PascalBoolean,XOff,YOff: PascalInteger]
;

 TossEdges: PROCEDURE[H: Halfword]
;

 InitEdges: PROCEDURE[H: Halfword];

 FixOffset: PROCEDURE;

 EdgePrep: PROCEDURE[Ml,Mr,Nl,Nr: PascalInteger];

 CopyEdges: PROCEDURE[H: Halfword] RETURNS[CopyEdgesResult: Halfword]
;

 YReflectEdges: PROCEDURE;

 XReflectEdges: PROCEDURE
;

--:337----340:-- YScaleEdges: PROCEDURE[S: PascalInteger]
;

--:340----342:-- XScaleEdges: PROCEDURE[S: PascalInteger];

 NegateEdges: PROCEDURE[H: Halfword];

 SortEdges: PROCEDURE[H: Halfword];

 CullEdges: PROCEDURE[WLo,WHi,WOut,WIn: PascalInteger];

 XySwapEdges: PROCEDURE;

 MergeEdges: PROCEDURE[H: Halfword];

 TotalWeight: PROCEDURE[H: Halfword] RETURNS[TotalWeightResult: PascalInteger];

 BeginEdgeTracing: PROCEDURE
;

 TraceACorner: PROCEDURE
;

 EndEdgeTracing: PROCEDURE
;

 TraceNewEdge: PROCEDURE[R: Halfword,N: PascalInteger];

 LineEdges: PROCEDURE[X0,Y0,X1,Y1: Scaled];

--378:-- MoveToEdges: PROCEDURE[M0,N0,M1,N1: PascalInteger];

END.