DIRECTORY SVCastRays, Containers, Imager, Menus, Rope, SV2d, SV3d, SVInterfaceTypes, SVModelTypes, SVRayTypes, SVSceneTypes, SVCatScan, ViewerClasses; SVEvent: CEDAR DEFINITIONS = BEGIN Slice: TYPE = SVSceneTypes.Slice; Camera: TYPE = SVModelTypes.Camera; CoordSystem: TYPE = SVModelTypes.CoordSystem; CSGTree: TYPE = SVRayTypes.CSGTree; DisplayContextProc: TYPE = SVInterfaceTypes.DisplayContextProc; DrawStyle: TYPE = SVModelTypes.DrawStyle; 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; 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]; 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; 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]; 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]; 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]; DoubleBuffer: PROC [event: LIST OF REF ANY, 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]; 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]; LiftAnchor: PROC [event: LIST OF REF ANY, svData: SVData]; DropAnchor: 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 May 26, 1987 8:45:02 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 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 Special 3D Line In SVEventImplB.AISPrompt MOVE to SVMouseEvent in SVEventImplB.SingleRay TIP Table Functions in SVEventImplB.SkitterMakes in SVEventImplB.CopyToAllTargets In SVEventImplC.JackPivotX Κ m– "cedar" style˜Iheadšœ™Iprocšœ2™2Jšœ Οmœ1™Lš Ÿœžœ žœžœžœžœ˜@Lš Ÿœžœ žœžœžœžœ˜@Lš Ÿœžœ žœžœžœžœ˜6Lš Ÿ œžœ žœžœžœžœ˜:Icodeš Ÿ œžœ žœžœžœžœ˜;Mš Ÿœžœ žœžœžœžœ˜?Mš Ÿœžœ žœžœžœžœ˜?L˜™Lšœ™—š Ÿœžœ žœžœžœžœ˜?Lšœ™—Lš Ÿ œžœ žœžœžœžœ˜9Lš Ÿœžœ žœžœžœžœ˜ALš Ÿœžœ žœžœžœžœ˜DLš Ÿœžœ žœžœžœžœ˜AL˜™ Lšœ™—Lš Ÿ œžœ žœžœžœžœ˜9L˜™Lšœ#™#—L™Lš Ÿœžœ žœžœžœžœ˜CLš Ÿœžœ žœžœžœžœ˜CLš Ÿ œžœ žœžœžœžœ˜=Lš Ÿœžœ žœžœžœžœ˜?L˜™Lšœ$™$—Lš Ÿœžœ žœžœžœžœ˜DL™™Lšœ™—JšŸ œžœžœ˜?Lš Ÿ œžœ žœžœžœžœ˜;Lš Ÿ œžœ žœžœžœžœ˜9Lš Ÿœžœ žœžœžœžœ˜8LšŸ œžœ˜"Lš Ÿ œžœ žœžœžœžœ˜<š Ÿœžœ žœžœžœžœ˜>L˜—L™L˜Lšœ™L™LšŸ œžœ(˜7LšŸœžœ(˜5LšŸ œžœ$˜5J˜J™J™Lšœ™L™Jš Ÿ œžœ žœžœžœžœ˜JšŸ œžœžœžœžœžœžœ˜@JšŸ œžœžœžœžœžœžœ˜@Jš Ÿœžœžœžœžœžœ˜AJš Ÿœžœ žœžœžœžœ˜6Jš Ÿœžœ žœžœžœžœ˜BJš Ÿœžœ žœžœžœžœ˜@Jš Ÿ œžœ žœžœžœžœ˜Lš Ÿœžœ žœžœžœžœ˜6Jš Ÿ œžœ žœžœžœžœ˜;L˜Lšžœ˜L˜L˜L˜—…—'S