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. ŒFile: Scratchpad2dUser.mesa Last edited by Bier on May 31, 1984 4:48:36 pm PDT Copyright c 1984 by Xerox Corporation. All rights reserved. Author: Eric Bier on July 30, 1984 2:00:24 am PDT Contents: Functions called by the buttons on a Scratchpad2d viewer. A Button proc which makes a slice from the Assembly: in the edittool and calls DrawSliceAux. Make an interpress document of the scratchpad. A Button proc which makes a slice from the Assembly: in the edittool and calls DrawSliceAux. Draws every other segment black (ignores classifs). Slice DrawSliceButton but doesn't recompute the ray tracing tree. Makes poly be the current polygon. Κ9– "cedar" style˜Iheadšœ™Iprocšœ2™2Jšœ Οmœ1™