[Indigo]<Solidviews>Interface>SVViewerInput.mesa!23

File: SVViewerInput.mesa

Last edited by Bier on May 23, 1985 5:48:12 pm PDT

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.