DIRECTORY SVCastRays, Containers, Imager, Menus, Rope, SV2d, SV3d, SVInterfaceTypes, SVModelTypes, SVSceneTypes, SVCatScan, ViewerClasses; SVEvent: CEDAR DEFINITIONS = BEGIN Slice: TYPE = SVSceneTypes.Slice; Camera: TYPE = SVModelTypes.Camera; CoordSystem: TYPE = SVModelTypes.CoordSystem; CSGTree: TYPE = SVSceneTypes.CSGTree; DisplayContextProc: TYPE = SVInterfaceTypes.DisplayContextProc; DrawStyle: TYPE = SVModelTypes.DrawStyle; MouseButton: TYPE = Menus.MouseButton; Point2d: TYPE = SV2d.Point2d; Point3d: TYPE = SV3d.Point3d; Primitive: TYPE = SVSceneTypes.Primitive; Scene: TYPE = SVSceneTypes.Scene; Selection: TYPE = SVInterfaceTypes.Selection; SelectionType: TYPE = SVInterfaceTypes.SelectionType; CatScan: TYPE = SVCatScan.CatScan; Vector3d: TYPE = SV3d.Vector3d; Viewer: TYPE = ViewerClasses.Viewer; SVData: TYPE = SVInterfaceTypes.SVData; UpdateHeader: PROC [pictureFile: Rope.ROPE, svData: SVData]; NewVersion: PROC [viewer: Viewer]; -- called by SVEditUserImplA SceneOldVersion: PROC [svData: SVData]; -- called internally OldVersion: PUBLIC PROC [viewer: Viewer]; -- called by SVEditUserImplA Clear: PROC [event: LIST OF REF ANY, svData: SVData]; Restore: PROC [event: LIST OF REF ANY, svData: SVData]; Get: PROC [event: LIST OF REF ANY, svData: SVData]; Merge: PROC [event: LIST OF REF ANY, svData: SVData]; Store: PROC [event: LIST OF REF ANY, svData: SVData]; Save: PROC [event: LIST OF REF ANY, svData: SVData]; Split: PROC [event: LIST OF REF ANY, svData: SVData]; ToIP: PROC [event: LIST OF REF ANY, svData: SVData]; StorePoly: PROC [event: LIST OF REF ANY, svData: SVData]; OpenScript: Menus.ClickProc; AppendToScript: Menus.ClickProc; CloseScript: Menus.ClickProc; PlaybackScript: Menus.ClickProc; FastPlayScript: Menus.ClickProc; RayCast: PROC [event: LIST OF REF ANY, svData: SVData]; StopRays: PROC [event: LIST OF REF ANY, svData: SVData]; ARay: PROC [event: LIST OF REF ANY, svData: SVData]; RayCastProgress: SVCastRays.NotifyOfProgressProc; StrokeWidth: PROC [event: LIST OF REF ANY, svData: SVData]; PrintStrokeValues: PROC [event: LIST OF REF ANY, svData: SVData]; ShowDefaultStrokeValues: PROC [event: LIST OF REF ANY, svData: SVData]; SetDefaultStrokeValues: PROC [event: LIST OF REF ANY, svData: SVData]; StrokeColorFromColorTool: PROC [event: LIST OF REF ANY, svData: SVData]; PrintStrokeColor: PROC [event: LIST OF REF ANY, svData: SVData]; StrokeColorToColorTool: PROC [event: LIST OF REF ANY, svData: SVData]; StrokeColorNone: PROC [event: LIST OF REF ANY, svData: SVData]; StrokeColorGray: PROC [event: LIST OF REF ANY, svData: SVData]; StrokeColorFromSelectedName: PROC [event: LIST OF REF ANY, svData: SVData]; StrokeColorFromSelectedRGB: PROC [event: LIST OF REF ANY, svData: SVData]; ShowDefaultStrokeColor: PROC [event: LIST OF REF ANY, svData: SVData]; SetDefaultStrokeColor: PROC [event: LIST OF REF ANY, svData: SVData]; AreaColorFromColorTool: PROC [event: LIST OF REF ANY, svData: SVData]; PrintAreaColor: PROC [event: LIST OF REF ANY, svData: SVData]; AreaColorToColorTool: PROC [event: LIST OF REF ANY, svData: SVData]; AreaColorNone: PROC [event: LIST OF REF ANY, svData: SVData]; AreaColorGray: PROC [event: LIST OF REF ANY, svData: SVData]; AreaColorFromSelectedName: PROC [event: LIST OF REF ANY, svData: SVData]; AreaColorFromSelectedRGB: PROC [event: LIST OF REF ANY, svData: SVData]; ShowDefaultFillColor: PROC [event: LIST OF REF ANY, svData: SVData]; SetDefaultFillColor: PROC [event: LIST OF REF ANY, svData: SVData]; CycleSelection: PROC [event: LIST OF REF ANY, svData: SVData]; BlockSelectNew: PROC [event: LIST OF REF ANY, svData: SVData]; BlockSelectNewAndDelete: PROC [event: LIST OF REF ANY, svData: SVData]; MakeHot: PROC [event: LIST OF REF ANY, svData: SVData]; MakeCold: PROC [event: LIST OF REF ANY, svData: SVData]; MakeAllHot: PROC [event: LIST OF REF ANY, svData: SVData]; MakeAllCold: PROC [event: LIST OF REF ANY, svData: SVData]; DropAnchor: PROC [event: LIST OF REF ANY, svData: SVData]; LiftAnchor: PROC [event: LIST OF REF ANY, svData: SVData]; StandardAlignments: PROC [event: LIST OF REF ANY, svData: SVData]; ScaleUnitFromSegment: PROC [event: LIST OF REF ANY, svData: SVData]; ScaleUnitFromValue: PROC [event: LIST OF REF ANY, svData: SVData]; ScaleUnitFromSelection: PROC [event: LIST OF REF ANY, svData: SVData]; InchScaleUnit: PROC [event: LIST OF REF ANY, svData: SVData]; CentimeterScaleUnit: PROC [event: LIST OF REF ANY, svData: SVData]; PointsScaleUnit: PROC [event: LIST OF REF ANY, svData: SVData]; PrintScaleUnit: PROC [event: LIST OF REF ANY, svData: SVData]; ToggleShowColors: PROC [event: LIST OF REF ANY, svData: SVData]; DrawBoundBoxes: PROC [event: LIST OF REF ANY, svData: SVData]; DrawBoundSpheres: PROC [event: LIST OF REF ANY, svData: SVData]; DrawCoordSystems: PROC [event: LIST OF REF ANY, svData: SVData]; DrawPt: PROC [event: LIST OF REF ANY, svData: SVData]; CrossHairs: PROC [event: LIST OF REF ANY, svData: SVData]; TestGravity: PROC [event: LIST OF REF ANY, svData: SVData]; ResetStatistics: PROC [event: LIST OF REF ANY, svData: SVData]; PrintStatistics: PROC [event: LIST OF REF ANY, svData: SVData]; RaiseSIGNAL: PROC [event: LIST OF REF ANY, svData: SVData]; DrawSceneButton: PROC [event: LIST OF REF ANY, svData: SVData]; DrawColor: PROC [event: LIST OF REF ANY, svData: SVData]; DrawBlackAndWhite: PROC [event: LIST OF REF ANY, svData: SVData]; KillSelectionsButton: PROC [event: LIST OF REF ANY, svData: SVData]; DeleteJacksButton: PROC [event: LIST OF REF ANY, svData: SVData]; SelectAll: PROC [event: LIST OF REF ANY, svData: SVData]; GravityChoiceChange: PROC [event: LIST OF REF ANY, svData: SVData]; GravityExtentChange: PROC [event: LIST OF REF ANY, svData: SVData]; ToggleGravity: PROC [event: LIST OF REF ANY, svData: SVData]; ToggleMidpoints: PROC [event: LIST OF REF ANY, svData: SVData]; InitializeAlignments: PROC [event: LIST OF REF ANY, svData: SVData]; StandardSlopes: PROC [event: LIST OF REF ANY, svData: SVData]; StandardAzimuths: PROC [event: LIST OF REF ANY, svData: SVData]; StandardSlopeLines: PROC [event: LIST OF REF ANY, svData: SVData]; StandardSlopePlanes: PROC [event: LIST OF REF ANY, svData: SVData]; StandardRadii: PROC [event: LIST OF REF ANY, svData: SVData]; SlopePrompt: PROC [event: LIST OF REF ANY, svData: SVData]; GetSlope: PROC [event: LIST OF REF ANY, svData: SVData]; AddSlope: PROC [event: LIST OF REF ANY, svData: SVData]; DeleteSlope: PROC [event: LIST OF REF ANY, svData: SVData]; ChooseSlope: PROC [event: LIST OF REF ANY, svData: SVData]; AzimuthPrompt: PROC [event: LIST OF REF ANY, svData: SVData]; GetAzimuth: PROC [event: LIST OF REF ANY, svData: SVData]; AddAzimuth: PROC [event: LIST OF REF ANY, svData: SVData]; DeleteAzimuth: PROC [event: LIST OF REF ANY, svData: SVData]; ChooseAzimuth: PROC [event: LIST OF REF ANY, svData: SVData]; SlopeLinePrompt: PROC [event: LIST OF REF ANY, svData: SVData]; GetSlopeLine: PROC [event: LIST OF REF ANY, svData: SVData]; AddSlopeLine: PROC [event: LIST OF REF ANY, svData: SVData]; NewSlopeLine: PROC [event: LIST OF REF ANY, svData: SVData]; DeleteSlopeLine: PROC [event: LIST OF REF ANY, svData: SVData]; ToggleSlopeLine: PROC [event: LIST OF REF ANY, svData: SVData]; SlopePlanePrompt: PROC [event: LIST OF REF ANY, svData: SVData]; GetSlopePlane: PROC [event: LIST OF REF ANY, svData: SVData]; AddSlopePlane: PROC [event: LIST OF REF ANY, svData: SVData]; NewSlopePlane: PROC [event: LIST OF REF ANY, svData: SVData]; DeleteSlopePlane: PROC [event: LIST OF REF ANY, svData: SVData]; ToggleSlopePlane: PROC [event: LIST OF REF ANY, svData: SVData]; RadiusPrompt: PROC [event: LIST OF REF ANY, svData: SVData]; GetRadius: PROC [event: LIST OF REF ANY, svData: SVData]; AddRadius: PROC [event: LIST OF REF ANY, svData: SVData]; DeleteRadius: PROC [event: LIST OF REF ANY, svData: SVData]; ToggleRadius: PROC [event: LIST OF REF ANY, svData: SVData]; MeasureSlopeHit: PROC [event: LIST OF REF ANY, svData: SVData]; MeasureAzimuthHit: PROC [event: LIST OF REF ANY, svData: SVData]; MeasureRadiusHit: PROC [event: LIST OF REF ANY, svData: SVData]; CurrentStyle: PROC [svData: SVData] RETURNS [style: DrawStyle]; StylePrompt: PROC [event: LIST OF REF ANY, svData: SVData]; XYZPrompt: PROC [event: LIST OF REF ANY, svData: SVData]; Selected: PROC [event: LIST OF REF ANY, svData: SVData]; Deselected: PROC [svData: SVData]; ShowCoordsMode: PROC [event: LIST OF REF ANY, svData: SVData]; SingleRay: PROC [svData: SVData, cameraPoint: Point2d]; PointAt: PROC [svData: SVData, cameraPoint: Point2d]; DrawCatScan: PROC [svData: SVData, catScan: CatScan]; IPSnapShot: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakes: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesSource: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesTarget: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesPlane: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesSourceIndirect: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesTargetIndirect: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesSourceIndirectOnly: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesTargetIndirectOnly: PROC [event: LIST OF REF ANY, svData: SVData]; SkitterMakesPlaneIndirectOnly: PROC [event: LIST OF REF ANY, svData: SVData]; MoveToTarget: PROC [event: LIST OF REF ANY, svData: SVData]; SourceRotX: PROC [event: LIST OF REF ANY, svData: SVData]; SourceRotY: PROC [event: LIST OF REF ANY, svData: SVData]; SourceRotZ: PROC [event: LIST OF REF ANY, svData: SVData]; CopyToAllTargets: PROC [event: LIST OF REF ANY, svData: SVData]; CopyRotate: PROC [event: LIST OF REF ANY, svData: SVData]; CopyToAllTargetsTree: PROC [event: LIST OF REF ANY, svData: SVData]; CopyRandomToAllTargets: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData]; ExtendCurrent: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData]; SetTool: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData]; ResetTool: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData]; CycleTool: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData]; DropPerpendicular: PROC [event: LIST OF REF ANY, svData: SVData]; Delete: PROC [event: LIST OF REF ANY, svData: SVData]; SetBoundingSpheres: PROC [event: LIST OF REF ANY, svData: SVData]; SetSphereShadows: PROC [event: LIST OF REF ANY, svData: SVData]; ResetSpheres: PROC [event: LIST OF REF ANY, svData: SVData]; JackPivotX: PROC [event: LIST OF REF ANY, svData: SVData]; JackPivotY: PROC [event: LIST OF REF ANY, svData: SVData]; JackPivotZ: PROC [event: LIST OF REF ANY, svData: SVData]; SourcePivotX: PROC [event: LIST OF REF ANY, svData: SVData]; SourcePivotY: PROC [event: LIST OF REF ANY, svData: SVData]; SourcePivotZ: PROC [event: LIST OF REF ANY, svData: SVData]; ArrowShoot: PROC [event: LIST OF REF ANY, svData: SVData]; MoveUntilTouch: PROC [event: LIST OF REF ANY, svData: SVData]; Skewer: PROC [event: LIST OF REF ANY, svData: SVData]; AddCylinder: PROC [event: LIST OF REF ANY, svData: SVData]; END. $File: SVEvent.mesa Last edited by Bier on September 23, 1987 10:04:18 pm PDT Copyright c 1984 by Xerox Corporation. All rights reserved. Author: Eric Bier in October, 1982 (?) Contents: Code to respond to button presses made in an SVViewer Updating the Window header in SVEventImplA Header should now display pictureFile as the file name. File Operations in SVEventImplA.Clear Interpress Menu in SVEventImplB.ToIP Script Menu in SVEventImplA.OpenScript SVCastRays Menu In SVEventImplA.RayCast Stroke Menu Stroke Color Menu In SVEventImplC.StrokeColorFromColorTool Fill Color Menu In SVEventImplC.PrintAreaColor Select Menu In SVEventImplA.CycleSelection Hot Spots Menu In SVEventImplA.MakeHot Units Menu In SVEventImplC.ScaleUnitFromSegment Other Style Buttons In SVEventImplA.ToggleShowColors Debug Menu in SVEventImplA.DrawBoundBoxes Master Line Buttons in SVEventImplA.DrawSceneButton In SVEventImplB.DrawColor Select Menu In SVEventImplC.SelectAll Gravity Line Operations In SVEventImplA.GravityChoiceChange Alignment Lines In SVEventImplA.InitializeAlignments Slope Line In SVEventImplA.SlopePrompt Azimuth Line In SVEventImplA.AzimuthPrompt Slope Line Line In SVEventImplA.GetSlopeLine Slope Plane Line In SVEventImplA.GetSlopePlane Radius Line In SVEventImplA.RadiusPrompt Coordinate Line In SVEventImplA.MeasureSlopeHit Special 3D Line In SVEventImplB.AISPrompt MOVE to SVMouseEvent in SVEventImplB.SingleRay TIP Table Functions in SVEventImplC.SnapShot in SVEventImplB.SkitterMakes in SVEventImplB.CopyToAllTargets In SVEventImplC.JackPivotX ΚΔ– "cedar" style˜Iheadšœ™Iprocšœ9™9Jšœ Οmœ1™Lš Ÿœžœ žœžœžœžœ˜DLš Ÿ œžœ žœžœžœžœ˜=Lš Ÿ œžœ žœžœžœžœ˜=Lš Ÿœžœ žœžœžœžœ˜ILš Ÿœžœ žœžœžœžœ˜HLš Ÿœžœ žœžœžœžœ˜DLš Ÿœžœ žœžœžœžœ˜CL™šœ ™ Lšœ™—Lš Ÿœžœ žœžœžœžœ˜>Lš Ÿœžœ žœžœžœžœ˜>Lš Ÿœžœ žœžœžœžœ˜GIcode™šœ™Lšœ™—Lš Ÿœžœ žœžœžœžœ˜7Lš Ÿœžœ žœžœžœžœ˜8Lš Ÿ œžœ žœžœžœžœ˜:Lš Ÿ œžœ žœžœžœžœ˜;Jš Ÿ œžœ žœžœžœžœ˜:Jš Ÿ œžœ žœžœžœžœ˜:Lš Ÿœžœ žœžœžœžœ˜BL˜šœ ™ Mšœ$™$—Lš Ÿœžœ žœžœžœžœ˜DLš Ÿœžœ žœžœžœžœ˜BLš Ÿœžœ žœžœžœžœ˜FLš Ÿ œžœ žœžœžœžœ˜=Lš Ÿœžœ žœžœžœžœ˜CLš Ÿœžœ žœžœžœžœ˜?Lš Ÿœžœ žœžœžœžœ˜>L˜šœ™Lšœ ™ —Lš Ÿœžœ žœžœžœžœ˜@L˜L™ ™Lšœ™—Lš Ÿœžœ žœžœžœžœ˜>Lš Ÿœžœ žœžœžœžœ˜@Lš Ÿœžœ žœžœžœžœ˜@Lš Ÿœžœ žœžœžœžœ˜6Lš Ÿ œžœ žœžœžœžœ˜:Mš Ÿ œžœ žœžœžœžœ˜;Mš Ÿœžœ žœžœžœžœ˜?Mš Ÿœžœ žœžœžœžœ˜?Mš Ÿ œžœ žœžœžœžœ˜;L˜™Lšœ™—š Ÿœžœ žœžœžœžœ˜?Lšœ™—Lš Ÿ œžœ žœžœžœžœ˜9Lš Ÿœžœ žœžœžœžœ˜ALš Ÿœžœ žœžœžœžœ˜DLš Ÿœžœ žœžœžœžœ˜AL˜™ Lšœ™—Lš Ÿ œžœ žœžœžœžœ˜9L˜™Lšœ#™#—L™Lš Ÿœžœ žœžœžœžœ˜CLš Ÿœžœ žœžœžœžœ˜CLš Ÿ œžœ žœžœžœžœ˜=Lš Ÿœžœ žœžœžœžœ˜?L˜™Lšœ$™$—Lš Ÿœžœ žœžœžœžœ˜DLš Ÿœžœ žœžœžœžœ˜>Lš Ÿœžœ žœžœžœžœ˜@Lš Ÿœžœ žœžœžœžœ˜BLš Ÿœžœ žœžœžœžœ˜CLš Ÿ œžœ žœžœžœžœ˜=L˜™ Lšœ™—Lš Ÿ œžœ žœžœžœžœ˜;Lš Ÿœžœ žœžœžœžœ˜8Lš Ÿœžœ žœžœžœžœ˜8Lš Ÿ œžœ žœžœžœžœ˜;Lš Ÿ œžœ žœžœžœžœ˜;L™šœ ™ Lšœ™—Lš Ÿ œžœ žœžœžœžœ˜=Lš Ÿ œžœ žœžœžœžœ˜:Lš Ÿ œžœ žœžœžœžœ˜:Lš Ÿ œžœ žœžœžœžœ˜=Lš Ÿ œžœ žœžœžœžœ˜=L˜™Lšœ™—Lš Ÿœžœ žœžœžœžœ˜?Lš Ÿ œžœ žœžœžœžœ˜L˜—L™L˜Lšœ™L™LšŸ œžœ(˜7LšŸœžœ(˜5LšŸ œžœ$˜5J˜J™J™Lšœ™Jš Ÿ œžœ žœžœžœžœ˜:L™Lšœ™L™Jš Ÿ œžœ žœžœžœžœ˜JšŸ œžœžœžœžœžœžœ˜@JšŸ œžœžœžœžœžœžœ˜@Jš Ÿœžœžœžœžœžœ˜AJš Ÿœžœ žœžœžœžœ˜6Jš Ÿœžœ žœžœžœžœ˜BJš Ÿœžœ žœžœžœžœ˜@Jš Ÿ œžœ žœžœžœžœ˜Lš Ÿœžœ žœžœžœžœ˜6Jš Ÿ œžœ žœžœžœžœ˜;L˜Lšžœ˜L˜L˜L˜—…—*πEΨ