<> <> <> <> <> DIRECTORY Containers, Graphics, Imager, Menus, PadGraphics, SV2d, SVInterfaceTypes, SVModelTypes, SVSlices, ViewerClasses; Scratchpad2dUser: CEDAR DEFINITIONS = BEGIN CoordSystem: TYPE = SVModelTypes.CoordSystem; MouseButton: TYPE = Menus.MouseButton; Path: TYPE = SV2d.Path; Polygon: TYPE = SV2d.Polygon; Point2d: TYPE = SV2d.Point2d; Slice: TYPE = SVSlices.Slice; Viewer: TYPE = ViewerClasses.Viewer; ScratchViewerData: TYPE = SVInterfaceTypes.ScratchViewerData; ScratchpadData: TYPE = SVInterfaceTypes.ScratchpadData; Painter: PROC [proc: PROC [Imager.Context], scratchViewerData: ScratchViewerData _ NIL]; PaintLin: PROC [dc: Imager.Context, scratchpadData: ScratchpadData]; PaintRevo: PROC [dc: Imager.Context, scratchpadData: ScratchpadData]; EraseButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; NormalsButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; PlaceOrigin: PROC [viewer: Viewer]; CrossHairsButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawSceneButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; NewLinButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; NewRevoButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; TestPointsButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; CircleButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawSliceButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> HardcopyButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> <> SliceRepeatButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> EditMode: TYPE = {lin, revo}; Edit: PROC [path: Path, mode: EditMode, scratchViewerData: ScratchViewerData]; <> SetSlice: PROC [scratchViewerData: ScratchViewerData, slice: Slice]; END.