GGWindow.mesa
Last edited by Bier on June 7, 1985 5:31:19 pm PDT
Copyright © 1985 by Xerox Corporation. All rights reserved.
Author: Eric Bier on August 6, 1985 5:57:44 pm PDT
Contents: Code to create a gargoyle tool.
DIRECTORY
Imager,
Rope,
GGInterfaceTypes,
GGModelTypes,
ViewerClasses;
GGWindow: CEDAR DEFINITIONS =
BEGIN
Camera: TYPE = GGModelTypes.Camera;
Point: TYPE = GGModelTypes.Point;
Scene: TYPE = GGModelTypes.Scene;
Viewer: TYPE = ViewerClasses.Viewer;
GargoyleData: TYPE = GGInterfaceTypes.GargoyleData;
CreateWindow: PROC [scene: Scene, iconic: BOOL, paint: BOOL, workingDirectory: Rope.ROPE] RETURNS [gargoyleData: GargoyleData];
Painter: PROC [paintAction: ATOM, gargoyleData: GargoyleData];
CameraToScreen: PROC [pointCamera: Point, camera: Camera] RETURNS [pointScreen: Point];
ScreenToCamera: PROC [pointScreen: Point, camera: Camera] RETURNS [pointCamera: Point];
ScreenToWorld: PROC [pointScreen: Point, camera: Camera] RETURNS [pointWorld: Point];
ReloadTipTable: PROC [gargoyleData: GargoyleData];
SaveCaretPos: PROC [gargoyleData: GargoyleData];
NewCaretPos: PROC [gargoyleData: GargoyleData];
END.