<> <> <> <> <> DIRECTORY BitMap3d, CastRays, Containers, Graphics, Menus, Rope, SV2d, SV3d, SVInterfaceTypes, SVModelTypes, SVRayTypes, SVSceneTypes, SVSlices, ViewerClasses; SVViewerUser: CEDAR DEFINITIONS = BEGIN <> Assembly: TYPE = SVSceneTypes.Assembly; Camera: TYPE = SVModelTypes.Camera; CoordSystem: TYPE = SVModelTypes.CoordSystem; CSGTree: TYPE = SVRayTypes.CSGTree; DCProc: TYPE = SVInterfaceTypes.DCProc; MouseButton: TYPE = Menus.MouseButton; Point2d: TYPE = SV2d.Point2d; Point3d: TYPE = SV3d.Point3d; Primitive: TYPE = SVRayTypes.Primitive; Scene: TYPE = SVSceneTypes.Scene; Selection: TYPE = SVInterfaceTypes.Selection; SelectionType: TYPE = SVInterfaceTypes.SelectionType; Slice: TYPE = SVSlices.Slice; Vector: TYPE = SV3d.Vector; Viewer: TYPE = ViewerClasses.Viewer; ViewerToolData: TYPE = SVInterfaceTypes.ViewerToolData; <> <<>> <> ReadTwoReals: PROC [textViewer: Viewer] RETURNS [x, y: REAL]; <> <<>> Painter: PROC [proc: DCProc, viewerToolData: ViewerToolData _ NIL]; UpdateHeader: PROC [pictureFile: Rope.ROPE, viewerToolData: ViewerToolData]; <

> NewVersion: PROC [viewer: Viewer]; -- called by SVEditUserImplA SceneOldVersion: PROC [viewerToolData: ViewerToolData]; -- called internally OldVersion: PUBLIC PROC [viewer: Viewer]; -- called by SVEditUserImplA <> <<>> EraseAndDrawScene: PROC [viewerToolData: ViewerToolData]; -- like DrawSceneButton but erases the screen before drawing. DrawOneCSInViewer: PROC [viewerToolData: ViewerToolData, cs: CoordSystem]; ComplementAssembly: PROC [viewerToolData: ViewerToolData, assem: Assembly]; <<>> <> <<>> DrawAssemblyXOR: PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, assembly: Assembly]; DrawAssembly: PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, assembly: Assembly]; <> DrawSceneEtc: PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, hardcopy: BOOL _ FALSE]; <> EraseAndDrawSceneEtc: PROC [dc: Graphics.Context, viewerToolData: ViewerToolData]; <> DrawAllCS: PROC [dc: Graphics.Context, viewerToolData: ViewerToolData]; DrawOneCS: PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, cs: CoordSystem]; <<>> <> <<>> <> PlaceOrigin: PROC [viewer: Viewer]; ResizeBitMaps: PROC [viewer: Viewer]; <> <> DrawSceneButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Reset: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ConfirmReset: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Save: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ConfirmSave: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Get: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ConfirmGet: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Store: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ConfirmStore: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Split: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> Erase: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Empty: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ConfirmEmpty: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; RayCast: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ConfirmRayCast: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Stop: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ARay: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> <<>> DrawBoundBoxes: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawBoundSpheres: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawCoordSystems: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <<>> <> Press: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; PressAIS: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; PressBWAIS: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; StorePoly: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <<>> <> DrawPt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawColor: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawBlackAndWhite: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> CrossHairs: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DrawDither: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Dither: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; SetFocalLength: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> AISPrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; StylePrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; XYZPrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; FocalLengthPrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; TextPrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <> DoubleBuffer: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; ShowCoordsMode: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <<>> <> <> Selected: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; Deselected: PROC [viewerToolData: ViewerToolData]; KillSelectionsButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; DeleteJacksButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL]; <<>> <> <> <<>> SingleRay: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d]; PointAt: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d]; DrawSlice: PROC [viewerToolData: ViewerToolData, slice: Slice]; RayCastProgress: CastRays.NotifyOfProgressProc; END.