<> <> <> <> DIRECTORY Scratchpad2dUser, SV2d, SweepGeometry, ViewerClasses; Scratchpad2d: DEFINITIONS = BEGIN Path: TYPE = REF PathObj; PathObj: TYPE = SV2d.PathObj; Point2d: TYPE = SV2d.Point2d; ScratchpadData: TYPE = Scratchpad2dUser.ScratchpadData; Viewer: TYPE = ViewerClasses.Viewer; CreateScratchpad: PROC [parent: Viewer] RETURNS [container: Viewer, scratchpad: Viewer]; GetPath: PROC [self: Viewer] RETURNS [path: Path]; MoveLinPoint: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; MoveRevoPoint: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; MoveLinStart: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; MoveRevoStart: PROC [screenPoint2d: Point2d, scratchpadData: ScratchpadData]; END.