File: SVViewerInput.mesa
Last edited by Bier on May 23, 1985 5:48:12 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Contents: Procedures for responding to button clicks made in a solidviewer
DIRECTORY
SV2d,
SVInterfaceTypes,
SVModelTypes,
ViewerClasses;
SVViewerInput: DEFINITIONS =
BEGIN
BoundBox: TYPE = SVModelTypes.BoundBox;
Camera: TYPE = SVModelTypes.Camera;
Point2d: TYPE = SV2d.Point2d;
SearchDepth: TYPE = SVInterfaceTypes.SearchDepth;
ViewerToolData: TYPE = SVInterfaceTypes.ViewerToolData;
InputNotify: SAFE PROCEDURE [self: ViewerClasses.Viewer, input: LIST OF REF ANY];
In SVViewerInputImplB
StartSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d, searchDepth: SearchDepth];
DuringSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d, searchDepth: SearchDepth];
EndSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d, searchDepth: SearchDepth];
StartCoordSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
DuringCoordSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
EndCoordSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
Paint: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
StartTightRope: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
DuringTightRope: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
EndTightRope: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
StartWallWalk: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
DuringWallWalk: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
EndWallWalk: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
FrameUpLeft: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
FrameDownRightMove: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
FrameDownRightEnd: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
DeleteFrame: PROC [viewerToolData: ViewerToolData];
In SVViewerInputImplA
ComplementBoundBox: PROC [boundBox: BoundBox, viewerToolData: ViewerToolData];
ComplementSkitter: PROC [];
ExtendSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d, searchDepth: SearchDepth];
ExtendCoordSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d];
SkitterMakes: PROC [];
In SVViewerInputImplC
JackPivotX: PROC [viewerToolData: ViewerToolData, degrees: REAL];
JackPivotY: PROC [viewerToolData: ViewerToolData, degrees: REAL];
JackPivotZ: PROC [viewerToolData: ViewerToolData, degrees: REAL];
SourcePivotX: PROC [viewerToolData: ViewerToolData, degrees: REAL];
SourcePivotY: PROC [viewerToolData: ViewerToolData, degrees: REAL];
SourcePivotZ: PROC [viewerToolData: ViewerToolData, degrees: REAL];
ArrowShoot: PROC [];
MoveUntilTouch: PROC [];
Skewer: PROC [];
AddCylinder: PROC [];
Find parent of skitter.assembly if any. Set skitter.assembly to this value. Indicate the selection by changing the name in the "Current:" slot of the edittool.
END.