DIRECTORY JaM USING [State], Rope USING [ROPE], TextNode USING [Ref]; TAPrivate: CEDAR DEFINITIONS = { ROPE: TYPE = Rope.ROPE; FileNotFound: SIGNAL; GetDocument: PROCEDURE[fileName: ROPE] RETURNS[node: TextNode.Ref, fromFile: BOOLEAN]; FixFileName: PROCEDURE[oldname, extension: ROPE] RETURNS [newname: ROPE]; NoJaMGraphicsViewer: SIGNAL; state: JaM.State; InitJaMGraphics: PROCEDURE; PushDC: PROCEDURE; PopDC: PROCEDURE; PushReal: PROCEDURE[r: REAL]; DrawArea: PROCEDURE; DrawPath: PROCEDURE; OutlinePath: PROCEDURE; DrawBox: PROCEDURE; SetCP: PROCEDURE; Translate: PROCEDURE; RoundPen: PROCEDURE; ItalicPen: PROCEDURE; RectangularPen: PROCEDURE; EllipticalPen: PROCEDURE; ShadowPen: PROCEDURE; ShadowPath: PROCEDURE; DrawImage: PROCEDURE[imageFileName: Rope.ROPE]; PushString: PROCEDURE[node: TextNode.Ref]; DrawText: PROCEDURE; SetHSV: PROCEDURE[h, s, v: REAL]; ExecuteNode: PROCEDURE[node: TextNode.Ref]; TextureRef: TYPE = REF TextureRec; TextureRec: TYPE = RECORD [ next: TextureRef, h, s, b: REAL, texture: CARDINAL]; }. ÂTAPrivate.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Maureen Stone October 19, 1982 5:28 pm Rick Beach, February 9, 1985 10:50:32 pm PST returns the root of the Tioga document if a viewer exists with that file, then it is used SIGNALs FileNotFound forces the file name, oldname, to have the extension if no period is found initialize JaMGraphics to ensure that TJaMGraphicsPackage is running and a JaM typescript exists ʃ˜šœ™Jšœ Ïmœ1™