File: SVArtworkUser.mesa
Last edited by Bier on May 2, 1984 3:54:57 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Author: Eric Bier on August 5, 1984 9:25:53 pm PDT
Contents: Viewer for Two dimensional artwork for mappings
DIRECTORY
Containers,
Graphics,
Menus,
Rope,
SV2d,
SV3d,
SVModelTypes,
SVInterfaceTypes,
ViewerClasses;
SVArtworkUser: CEDAR DEFINITIONS =
BEGIN
Artwork: TYPE = SVModelTypes.Artwork;
MouseButton: TYPE = Menus.MouseButton;
Point2d: TYPE = SV2d.Point2d;
Point3d: TYPE = SV3d.Point3d;
Vector: TYPE = SV3d.Vector;
Viewer: TYPE = ViewerClasses.Viewer;
ArtworkToolData: TYPE = SVInterfaceTypes.ArtworkToolData;
INTERWINDOW COMMUNICATION
UpdateHeader: PROC [assemblyName: Rope.ROPE, sceneName: Rope.ROPE, artworkToolData: ArtworkToolData];
SetArtwork: PROC [artworkTool: Viewer, artwork: Artwork, sceneName: Rope.ROPE, assemblyName: Rope.ROPE];
RotateArtwork: PROC [artworkTool: Viewer, degrees: REAL];
NormalizeArtwork: PROC [artworkTool: Viewer];
Painter: PROC [proc: PROC [dc: Graphics.Context], artworkToolData: ArtworkToolData];
ScalarSetPrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
ScalarPrompt: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
DrawArtwork: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
PlaceOrigin: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
CrossHairs: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
Position: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
GetImagePointFromSurfacePoint: PROC [artwork: Artwork, surfacePt: Point3d, normal: Vector] RETURNS [imagePoint: Point2d];
SetColor: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
OpenFileButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
OpenFile: PROC [artworkToolData: ArtworkToolData];
CloseFileButton: PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL];
CloseFile: PROC [artworkToolData: ArtworkToolData];
END.