<> <> <> <> 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.