<> <> <> <> 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]; <> 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]; <> <<>> ComplementBoundBox: PROC [boundBox: BoundBox, viewerToolData: ViewerToolData]; ComplementSkitter: PROC []; ExtendSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d, searchDepth: SearchDepth]; ExtendCoordSkitter: PROC [viewerToolData: ViewerToolData, cameraPoint: Point2d]; SkitterMakes: PROC []; <> <<>> 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 []; <> END.