File: SVEvent.mesa
Last edited by Bier on May 26, 1987 8:45:02 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Author: Eric Bier in October, 1982 (?)
Contents: Code to respond to button presses made in an SVViewer
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;
Updating the Window header
in SVEventImplA
UpdateHeader:
PROC [pictureFile: Rope.
ROPE, svData: SVData];
Header should now display pictureFile as the file name.
NewVersion: PROC [viewer: Viewer]; -- called by SVEditUserImplA
SceneOldVersion: PROC [svData: SVData]; -- called internally
OldVersion: PUBLIC PROC [viewer: Viewer]; -- called by SVEditUserImplA
File Operations
in SVEventImplA.Clear
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];
Interpress Menu
in SVEventImplB.ToIP
ToIP: PROC [event: LIST OF REF ANY, svData: SVData];
StorePoly: PROC [event: LIST OF REF ANY, svData: SVData];
Script Menu
in SVEventImplA.OpenScript
OpenScript: Menus.ClickProc;
AppendToScript: Menus.ClickProc;
CloseScript: Menus.ClickProc;
PlaybackScript: Menus.ClickProc;
FastPlayScript: Menus.ClickProc;
SVCastRays Menu
In SVEventImplA.RayCast
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;
Debug Menu
in SVEventImplA.DrawBoundBoxes
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];
Master Line Buttons
in SVEventImplA.DrawSceneButton
DrawSceneButton:
PROC [event:
LIST
OF
REF
ANY, svData: SVData];
In SVEventImplB.DrawColor
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];
Select Menu
In SVEventImplC.SelectAll
SelectAll: PROC [event: LIST OF REF ANY, svData: SVData];
Gravity Line Operations
In SVEventImplA.GravityChoiceChange
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];
Alignment Lines
In SVEventImplA.InitializeAlignments
InitializeAlignments: PROC [event: LIST OF REF ANY, svData: SVData];
Special 3D Line
In SVEventImplB.AISPrompt
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];
MOVE to SVMouseEvent
in SVEventImplB.SingleRay
SingleRay: PROC [svData: SVData, cameraPoint: Point2d];
PointAt: PROC [svData: SVData, cameraPoint: Point2d];
DrawCatScan: PROC [svData: SVData, catScan: CatScan];
TIP Table Functions
in SVEventImplB.SkitterMakes
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];
in SVEventImplB.CopyToAllTargets
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];
In SVEventImplC.JackPivotX
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.