DIRECTORY
Atom, Convert, CoordSys, Imager, IO, Menus, Rope, SlackProcess, SV2d, SV3d, SVBasicTypes, SVError, SVEvent, SVInterfaceTypes, SVModelTypes, SVMouseEvent, SVRayTypes, SVSceneTypes, SVUserInput, SVWindow, TIP, TIPUser, ViewerClasses, ViewerTools;

SVUserInputImplA: CEDAR PROGRAM
IMPORTS Atom, Convert, CoordSys, IO, Rope, SlackProcess, SVError, SVEvent, SVMouseEvent, SVWindow, ViewerTools
EXPORTS SVUserInput =

BEGIN
Artwork: TYPE = SVModelTypes.Artwork;
ArtworkToolData: TYPE = SVInterfaceTypes.ArtworkToolData;
Assembly: TYPE = SVSceneTypes.Assembly;
AssemblyList: TYPE = SVSceneTypes.AssemblyList;
BoundBox: TYPE = SVBasicTypes.BoundBox;
BoundSphere: TYPE = SVBasicTypes.BoundSphere;
Camera: TYPE = SVModelTypes.Camera;
Classification: TYPE = SVRayTypes.Classification;
Color: TYPE = Imager.Color;
CSGTree: TYPE = SVRayTypes.CSGTree;
EditToolData: TYPE = SVInterfaceTypes.EditToolData;
EventProc: TYPE = SlackProcess.EventProc;
FileCamera: TYPE = SVSceneTypes.FileCamera;
FrameBox: TYPE = SVModelTypes.FrameBox;
MasterObject: TYPE = SVSceneTypes.MasterObject;
Point2d: TYPE = SV2d.Point2d;
Primitive: TYPE = SVRayTypes.Primitive;
Ray: TYPE = SVRayTypes.Ray;
Scene: TYPE = SVSceneTypes.Scene;
Selection: TYPE = SVInterfaceTypes.Selection;
Shape: TYPE = SVSceneTypes.Shape;
SlackHandle: TYPE = SlackProcess.SlackHandle;
TrigLine: TYPE = SV2d.TrigLine;
Vector3d: TYPE = SV3d.Vector3d;
ViewerToolData: TYPE = SVInterfaceTypes.ViewerToolData;



MenuNotify: PUBLIC PROC [clientData: REF ANY, action: LIST OF REF ANY] = {
viewerToolData: ViewerToolData _ NARROW[clientData];
handle: SlackHandle _ viewerToolData.slackHandle;
SlackProcess.QueueInputAction[handle, Dispatch, action, viewerToolData, NIL];
};

InputNotify: PUBLIC PROC [self: ViewerClasses.Viewer, input: LIST OF REF ANY] = {
viewerToolData: ViewerToolData _ NARROW[self.data];
handle: SlackHandle _ viewerToolData.slackHandle;
optimizeHint: REF ANY;
IF input.rest# NIL THEN {
WITH input.rest.first SELECT FROM
atom: ATOM => {
IF atom = $During THEN optimizeHint _ LIST[$During];
};
ENDCASE => optimizeHint _ NIL;
};
input _ GetAnyArguments[input];
SlackProcess.QueueInputAction[handle, Dispatch, input, viewerToolData, optimizeHint];
};

GetAnyArguments: PROC [input: LIST OF REF ANY] RETURNS [newInput: LIST OF REF ANY] = {
WITH input.first SELECT FROM
atom: ATOM => {
SELECT atom FROM
$JackPivotX, $JackPivotY, $JackPivotZ, $SourcePivotX, $SourcePivotY, $SourcePivotZ, $SourceRotX, $SourceRotY, $SourceRotZ => newInput _ CheckForSelectedReal[atom, input];
ENDCASE => newInput _ input;
};
ENDCASE => newInput _ input;
};

Dispatch: PROC [event: LIST OF REF ANY, clientData: REF ANY] = {
viewerToolData: ViewerToolData _ NARROW[clientData];
camera: Camera _ viewerToolData.camera;
WITH event.first SELECT FROM
mousePlace: TIP.TIPScreenCoords => {
controlPoint: Point2d _ [mousePlace.mouseX, mousePlace.mouseY];
controlPoint _ CoordSys.ScreenToCamera[controlPoint, camera.screenCS];
SVMouseEvent.HandleMouse[event, controlPoint, viewerToolData];
};
ENDCASE => HandleMouseless[event, viewerToolData];
};



HandleMouseless: PROC [action: LIST OF REF ANY, viewerToolData: ViewerToolData] = {
atom: ATOM _ NARROW[action.first];
slackHandle: REF ANY _ NIL;
SELECT atom FROM
$Clear => SVEvent.Clear[action, viewerToolData];
$Restore => SVEvent.Reset[action, viewerToolData];
$Get => SVEvent.Get[action, viewerToolData];
$Store => SVEvent.Store[action, viewerToolData];
$Save => SVEvent.Save[action, viewerToolData];
$Split => SVEvent.Split[action, viewerToolData];
$Erase => SVEvent.Erase[action, viewerToolData];
$RayCast => SVEvent.RayCast[action, viewerToolData];
$StopRays => SVEvent.Stop[action, viewerToolData];
$ARay => SVEvent.ARay[action, viewerToolData];
$ToIP => SVEvent.ToIP[action, viewerToolData];
$StorePoly => SVEvent.StorePoly[action, viewerToolData];
$DrawBoundBoxes => SVEvent.DrawBoundBoxes[action, viewerToolData];
$DrawBoundSpheres => SVEvent.DrawBoundSpheres[action, viewerToolData];
$DrawSceneButton => SVEvent.DrawSceneButton[action, viewerToolData];
$DrawCoordSystems => SVEvent.DrawCoordSystems[action, viewerToolData];
$DrawPoint => SVEvent.DrawPt[action, viewerToolData];
$CrossHairs => SVEvent.CrossHairs[action, viewerToolData];
$DrawColor => SVEvent.DrawColor[action, viewerToolData];
$DrawBlackAndWhite => SVEvent.DrawBlackAndWhite[action, viewerToolData];
$ShowCoordsMode => SVEvent.ShowCoordsMode[action, viewerToolData];
$GravityChoiceChange => SVEvent.GravityChoiceChange[action, viewerToolData];
$GravityExtentChange => SVEvent.GravityExtentChange[action, viewerToolData];
$ToggleGravity => SVEvent.ToggleGravity[action, viewerToolData];
$ToggleMidpoints => SVEvent.ToggleMidpoints[action, viewerToolData];
$TextPrompt => SVEvent.TextPrompt[action, viewerToolData];
$StylePrompt => SVEvent.StylePrompt[action, viewerToolData];
$XYZPrompt => SVEvent.XYZPrompt[action, viewerToolData];
$Selected => SVEvent.Selected[action, viewerToolData];
$DoubleBuffer => SVEvent.DoubleBuffer[action, viewerToolData];
$AISPrompt => SVEvent.AISPrompt[action, viewerToolData];
$KillSelectionsButton => SVEvent.KillSelectionsButton[action, viewerToolData];
$DeleteJacksButton => SVEvent.DeleteJacksButton[action, viewerToolData];
$ExtendCurrent => SVEvent.ExtendCurrent[action, viewerToolData];
$ReloadTipTable =>  SVWindow.ReloadTipTable[action, viewerToolData];
$DeleteSources => SVEvent.DeleteSources[action, viewerToolData];
$NoOp => {};

$AddCylinder => SVEvent.AddCylinder[action, viewerToolData];
$Skewer => SVEvent.Skewer[action, viewerToolData];
$MoveUntilTouch => SVEvent.MoveUntilTouch[action, viewerToolData];

$ArrowShoot => SVEvent.ArrowShoot[action, viewerToolData];
$DropPerpendicular => SVEvent.DropPerpendicular[action, viewerToolData];
$VolleyShoot => {};

$JackPivotX => SVEvent.JackPivotX[action, viewerToolData];
$JackPivotY => SVEvent.JackPivotY[action, viewerToolData];
$JackPivotZ => SVEvent.JackPivotZ[action, viewerToolData];
$SourcePivotX => SVEvent.SourcePivotX[action, viewerToolData];
$SourcePivotY => SVEvent.SourcePivotY[action, viewerToolData];
$SourcePivotZ => SVEvent.SourcePivotZ[action, viewerToolData];
$SourceRotX => SVEvent.SourceRotX[action, viewerToolData];
$SourceRotZ => SVEvent.SourceRotZ[action, viewerToolData];

$CopyRandomToAllTargets => SVEvent.CopyRandomToAllTargets[action, viewerToolData];
$CopyToAllTargets => SVEvent.CopyToAllTargets[action, viewerToolData];
$CopyToAllTargetsTree => SVEvent.CopyToAllTargetsTree[action, viewerToolData];
$MoveToTarget => SVEvent.MoveToTarget[action, viewerToolData];
$CopyRotate => SVEvent.CopyRotate[action, viewerToolData];

$CycleTool => SVEvent.CycleTool[action, viewerToolData];
$SetTool => SVEvent.SetTool[action, viewerToolData];
$ResetTool => SVEvent.ResetTool[action, viewerToolData];

$ResetSpheres => SVEvent.ResetSpheres[action, viewerToolData];
$SetBoundingSpheres => SVEvent.SetBoundingSpheres[action, viewerToolData];
$SetSphereShadows => SVEvent.SetSphereShadows[action, viewerToolData];

$SkitterMakes => SVEvent.SkitterMakes[action, viewerToolData];
$SkitterMakesSource => SVEvent.SkitterMakesSource[action, viewerToolData];
$SkitterMakesTarget => SVEvent.SkitterMakesTarget[action, viewerToolData];
$SkitterMakesPlane => SVEvent.SkitterMakesPlane[action, viewerToolData];
$SkitterMakesSourceIndirect => SVEvent.SkitterMakesSourceIndirect[action, viewerToolData];
$SkitterMakesTargetIndirect => SVEvent.SkitterMakesTargetIndirect[action, viewerToolData];
$SkitterMakesSourceIndirectOnly => SVEvent.SkitterMakesSourceIndirectOnly[action, viewerToolData];
$SkitterMakesTargetIndirectOnly => SVEvent.SkitterMakesTargetIndirectOnly[action, viewerToolData];
$SkitterMakesPlaneIndirectOnly => SVEvent.SkitterMakesPlaneIndirectOnly[action, viewerToolData];
ENDCASE => NotYetImplementedMessage[atom, viewerToolData];
};

NotYetImplementedMessage: PROC [atom: ATOM, viewerToolData: ViewerToolData] = {
SVError.Append["User action ", begin];
SVError.Append[Atom.GetPName[atom], middle];
SVError.Append[" is not yet implemented", end];
SVError.Blink[];
};

  

CheckForSelectedReal: PROC [atom: ATOM, action: LIST OF REF ANY] RETURNS [newAction: LIST OF REF ANY] = {
rope: Rope.ROPE;
real: REAL;
IF action.rest = NIL THEN { -- interactive call
rope _ ViewerTools.GetSelectionContents[];
real _ Convert.RealFromRope[rope ! Convert.Error => {real _ -1.0; CONTINUE}];
newAction _ LIST[atom, NEW[REAL _ real]];
}
ELSE IF ISTYPE[action.rest.first, REF TEXT] THEN { -- TIP table call
rope _ Rope.FromRefText[NARROW[action.rest.first]];
real _ Convert.RealFromRope[rope ! Convert.Error => {real _ -1.0; CONTINUE}];
newAction _ LIST[atom, NEW[REAL _ real]];
}
ELSE newAction _ action; -- SessionLog call
};

CheckForSelectedInt: PROC [atom: ATOM, action: LIST OF REF ANY] RETURNS [newAction: LIST OF REF ANY] = {
rope: Rope.ROPE;
int: INT;
IF action.rest = NIL THEN { -- interactive call
rope _ ViewerTools.GetSelectionContents[];
int _ IO.GetInt[IO.RIS[rope] ! IO.EndOfStream, IO.Error => {int _ -1; CONTINUE}];
newAction _ LIST[atom, NEW[INT _ int]];
}
ELSE IF ISTYPE[action.rest.first, REF INT] THEN { -- TIP table call or SessionLog call
newAction _ action;
}
ELSE ERROR;
};

CheckForSelectedRope: PROC [atom: ATOM, action: LIST OF REF ANY] RETURNS [newAction: LIST OF REF ANY] = {
IF action.rest = NIL THEN { -- interactive call
newAction _ LIST[atom, ViewerTools.GetSelectionContents[]];
}
ELSE IF ISTYPE[action.rest.first, REF TEXT] THEN { -- TIP table call
newAction _ LIST[atom, Rope.FromRefText[NARROW[action.rest.first]]];
}
ELSE newAction _ action; -- SessionLog call
};

END.
  
 
File: SVUserInputImplA.mesa
Last edited by Bier on February 24, 1987 10:14:52 pm PST
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Contents: Procedures for responding to button clicks made in a solidviewer.
Input from the Outside World
From Buttons and Menus
From Mouse and Keyboard
ViewerClasses.NotifyProc
Called by the TIP table machinery when an action is received from mouse or keyboard.  Self is an ActionArea.
This puts the control point in camera coordinates.
HandleMouse: PUBLIC PROC [input: LIST OF REF ANY, controlPoint: Point2d, viewerToolData: ViewerToolData] = {
atom: ATOM _ NARROW[event.rest.first];
SELECT atom FROM
$SingleRay => SVEvent.SingleRay[viewerToolData, controlPoint];
$DeleteFrame => SVMouseEvent.DeleteFrame[viewerToolData];

$Paint => SVMouseEvent.Paint[viewerToolData, controlPoint];
$OpenAISFile => SVArtworkUser.OpenFile[artworkToolData];
$CloseAISFile => SVArtworkUser.CloseFile[artworkToolData];

$ExtendSkitter => SVMouseEvent.ExtendSkitter[viewerToolData, controlPoint, first];
$ExtendCoordSkitter => SVMouseEvent.ExtendCoordSkitter[viewerToolData, controlPoint];
ENDCASE => NotYetImplementedMessage[atom, viewerToolData];
};
Handling Actions
From Buttons, Menus, or Keyboard
Non-mouse actions.  These actions could come from the TIP table or from bugging a menu.
File Menu
Miscellaneous Functions
Drawing for Debugging
Gravity Functions
Text Prompts
Tip Table Functions
$RestartProcess => SVInputMonitor.Restart[];
$ClearAllSelections => SVSelections.KillSkitterAndSelections[viewerToolData.editToolData];
Κ	²˜Iheadš
œ™Jš
œ8™8Jšœ
Οm
œ1™<Jš
œK™KJ˜š
Οk	˜	Jš
œτ
˜τ
—J˜šœž
˜Jšžœg˜nJšžœ˜—J˜š
ž˜Jšœ	žœ˜%Jšœžœ$˜9Jšœ
žœ˜'Jšœžœ˜/Jšœ
žœ˜'Jšœ
žœ˜-Jšœžœ˜#Jšœžœ˜1Jšœžœ˜Jšœ	žœ˜#Jšœžœ!˜3Jšœžœ˜)Jšœžœ˜+Jšœ
žœ˜'Jšœžœ˜/Jšœ	žœ˜Jšœžœ˜'Jšœžœ˜Jšœžœ˜!Jšœžœ˜-Jšœžœ˜!Jšœ
žœ˜-Jšœ
žœ˜Jšœ
žœ˜Jšœžœ#˜7J˜—J˜Icodeš
Οb™L˜L™šΟn
œžœ
žœžœ
žœ
žœ
žœ
žœ
žœ˜JJšœ!žœ
˜4Jš
œ1˜1JšœHžœ˜ML˜L˜—L™š œžœ
žœ%žœ
žœ
žœ
žœ˜QLš
œ™Lšœžœ[™lJšœ!žœ˜3Jš
œ1˜1Jšœžœ
žœ
˜šžœ
žœ
žœ˜šžœžœ
ž˜!šœžœ˜Lšžœžœžœ
˜4L˜—Lšžœžœ
˜—J˜—Jš
œ˜Jš
œU˜UL˜L˜—š œžœ	žœ
žœ
žœ
žœžœžœ
žœ
žœ
žœ˜Všžœ
žœ
ž˜šœžœ˜šžœž˜Lš
œͺ
˜ͺ
—Lšžœ˜L˜—Lšžœ˜—L˜L˜—š œžœ	žœ
žœ
žœ
žœžœ
žœ˜@Jšœ!žœ
˜4Jš
œ'˜'šžœ
žœ
ž˜šœžœ˜$Lš
œ?˜?š
œF˜FLš
œ2™2—Lš
œ>˜>Lš
œ˜—Lšžœ+˜2—J˜J˜—š œžœ
žœ	žœ
žœ
žœ
žœ<™lJšœžœžœ™&šžœž™JšœŸ	œ™>Jš
œ9™9J™Jš
œ;™;Jš
œ8™8Jš
œ:™:J™Jš
œR™RJš
œU™UJšžœ3™:—Jš
œ™—L˜Lš
œ™L˜L™ š œžœ
žœ
žœ
žœ
žœ%˜SL™WLšœžœžœ˜"Lšœ
žœ
žœžœ
˜šžœž˜Lš
Ÿ	™	Lš
œ0˜0Lš
œ2˜2Lš
œ,˜,Lš
œ0˜0Lš
œ.˜.Lš
œ0˜0Lš
Ÿ™Lš
œ0˜0Lš
œ4˜4Lš
œ2˜2Lš
œ.˜.Lš
œ.˜.Lš
œ8˜8Lš
Ÿ™Lš
œB˜BLš
œF˜FLš
œD˜DLš
œF˜FLš
œ5˜5Lš
œ:˜:Lš
œ8˜8Lš
œH˜HLš
œB˜BLš
Ÿ™Lš
œL˜LLš
œL˜LLš
œ@˜@Lš
œD˜DLš
Ÿ™Lš
œ:˜:Lš
œ<˜<Lš
œ8˜8Lš
œ6˜6Lš
œ>˜>Lš
œ8˜8Lš
œN˜NLš
œH˜HJš
Ÿ™Jš
œ@˜@Jš
œD˜DJš
œ,™,Jš
œZ™ZJš
œ@˜@J˜J˜Jš
œ<˜<Jš
œ2˜2Jš
œB˜BJ˜Jš
œ:˜:Jš
œH˜HJš
œ˜J˜Jš
œ:˜:Jš
œ:˜:Jš
œ:˜:Jš
œ>˜>Jš
œ>˜>Jš
œ>˜>Jš
œ:˜:Jš
œ:˜:J˜Jš
œR˜RJš
œF˜FJš
œN˜NJš
œ>˜>Jš
œ:˜:J˜Jš
œ8˜8Jš
œ4˜4Jš
œ8˜8J˜Jš
œ>˜>Jš
œJ˜JJš
œF˜FJ˜Jš
œ>˜>Jš
œJ˜JJš
œJ˜JJš
œH˜HJš
œZ˜ZJš
œZ˜ZJš
œb˜bJš
œb˜bJš
œ`˜`Lšžœ3˜:—L˜L˜—š œžœžœ%˜OLš
œ&˜&Lš
œ,˜,Lš
œ/˜/Lš
œ˜L˜L˜—Jš
œ˜J˜š œžœžœ
žœ
žœ
žœ
žœžœ
žœ
žœ
žœ
žœ˜iLšœžœ
˜Lšœžœ
˜šžœžœ
žœΟc˜/Lš
œ*˜*LšœBžœ˜MLšœžœžœ
žœ
˜)Lš
œ
˜
—š
žœ
žœ
žœžœ
žœžœ‘˜DLšœžœ˜3LšœBžœ˜MLšœžœžœ
žœ
˜)Lš
œ
˜
—Lšžœ‘˜+L˜L˜—š œžœžœ
žœ
žœ
žœ
žœžœ
žœ
žœ
žœ
žœ˜hLšœžœ
˜Lšœžœ
˜	šžœžœ
žœ‘˜/Lš
œ*˜*Lš
œžœžœ
žœ	žœžœžœ˜QLšœžœžœ
žœ	˜'Lš
œ
˜
—š
žœ
žœ
žœžœ
žœžœ‘$˜VLš
œ˜Lš
œ
˜
—Lšžœ
žœ
˜L˜L˜—š œžœžœ
žœ
žœ
žœ
žœžœ
žœ
žœ
žœ
žœ˜išžœžœ
žœ‘˜/Lšœžœ+˜;Lš
œ
˜
—š
žœ
žœ
žœžœ
žœžœ‘˜DLšœžœžœ˜DLš
œ
˜
—Lšžœ‘˜+L˜L˜—Jšžœ
˜Jš
œ˜Jš
Ÿ
˜
—…—%b52