File: SVEvent.mesa
Last edited by Bier on September 23, 1987 10:04:18 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, 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;
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];
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];
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;
Stroke Menu
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];
Stroke Color Menu
In SVEventImplC.StrokeColorFromColorTool
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];
Fill Color Menu
In SVEventImplC.PrintAreaColor
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];
Select Menu
In SVEventImplA.CycleSelection
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];
Hot Spots Menu
In SVEventImplA.MakeHot
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];
Units Menu
In SVEventImplC.ScaleUnitFromSegment
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];
Other Style Buttons
In SVEventImplA.ToggleShowColors
ToggleShowColors: PROC [event: LIST OF REF ANY, svData: SVData];
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];
RaiseSIGNAL: 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];
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];
Slope Line
In SVEventImplA.SlopePrompt
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];
Azimuth Line
In SVEventImplA.AzimuthPrompt
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];
Slope Line Line
In SVEventImplA.GetSlopeLine
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];
Slope Plane Line
In SVEventImplA.GetSlopePlane
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];
Radius Line
In SVEventImplA.RadiusPrompt
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];
Coordinate Line
In SVEventImplA.MeasureSlopeHit
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];
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];
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 SVEventImplC.SnapShot
IPSnapShot: PROC [event: LIST OF REF ANY, svData: SVData];
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];
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.