File: SVViewerTools.mesa
Last edited by Bier on July 8, 1987 1:50:00 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Contents: Basic functions for retrieving values from and writing values to text viewers
DIRECTORY
Imager, SV3d, ViewerClasses;
SVViewerTools: CEDAR DEFINITIONS =
BEGIN
Color: TYPE = Imager.Color;
Point3d: TYPE = SV3d.Point3d;
Viewer: TYPE = ViewerClasses.Viewer;
GetReal: PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL];
GetBool: PROC [textViewer: Viewer] RETURNS [b: BOOL];
GetColor: PROC [textViewer: Viewer] RETURNS [color: Color, success: BOOL];
GetThreeReals: PROC [textViewer: Viewer] RETURNS [x, y, z: REAL];
GetNat: PROC [textViewer: Viewer] RETURNS [n: NAT];
GetPoint: PROC [textViewer: Viewer] RETURNS [point: Point3d, success: BOOL];
SetReal: PROC [viewer: Viewer, real: REAL];
SetBool: PROC [viewer: Viewer, bool: BOOL];
SetColor: PROC [viewer: Viewer, color: Color];
SetThreeReals: PROC [viewer: Viewer, a, b, c: REAL];
SetPoint: PROC [viewer: Viewer, point: Point3d];
END.