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.    À  File: SVViewerInput.mesaLast edited by Bier on May 23, 1985 5:48:12 pm PDTCopyright c 1984 by Xerox Corporation.  All rights reserved.Contents: Procedures for responding to button clicks made in a solidviewerIn SVViewerInputImplBIn SVViewerInputImplAIn SVViewerInputImplC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.Êî  ˜ Iheadšœ™Jšœ2™2Jšœ
Ïmœ1™<JšœJ™JJ˜ šÏk	˜	Jšœ˜Jšœ˜J˜Jšœ˜—J˜ Jšœžœ˜Jšž˜˜ Jšœ
žœ˜'Jšœžœ˜#Jšœ	žœ˜Jšœžœ ˜1Jšœžœ#˜7J˜ —JšÏnœžœ%žœžœžœžœ˜QJ˜ Jšœ™J˜ JšŸœžœR˜dJšŸœžœR˜eJšŸ
œžœR˜bJ˜ JšŸœžœ8˜OJšŸœžœ8˜PJšŸœžœ8˜MJ˜ JšŸœžœ8˜CJ˜ JšŸœžœ8˜LJšŸœžœ8˜MJšŸœžœ8˜JJ˜ JšŸœžœ8˜KJšŸœžœ8˜LJšŸœžœ8˜IJ˜ JšŸœžœ8˜IJšŸœžœ8˜PJšŸœžœ8˜OJšŸœžœ!ž˜3J˜ Jšœ™J™ JšŸœžœ6˜NJšŸœžœ˜J˜ JšŸœžœR˜eJšŸœžœ8˜PJ˜ JšŸœžœ˜J˜ J™J™ JšŸ
œžœ+žœ˜AJšŸ
œžœ+žœ˜AJšŸ
œžœ+žœ˜AJšŸœžœ+žœ˜CJšŸœžœ+žœ˜CJšŸœžœ+žœ˜CJšŸ
œžœ˜IprocšŸœžœ˜LšŸœžœ˜JšŸœžœ˜˜ Jšœ¡™¡—J˜ Jšžœ˜Jšœ˜J˜ — …—    
  º  