-- TAPrivate.mesa -- Rick Beach, July 5, 1982 11:44 am -- Maureen Stone October 19, 1982 5:28 pm DIRECTORY JaMInternal USING [Frame], Rope USING [ROPE], TextNode USING [Ref]; TAPrivate: DEFINITIONS = { ROPE: TYPE = Rope.ROPE; FileNotFound: SIGNAL; GetDocument: PROCEDURE[fileName: ROPE] RETURNS[node: TextNode.Ref, fromFile: BOOLEAN]; -- returns the root of the Tioga document -- if a viewer exists with that file, then it is used -- SIGNALs FileNotFound FixFileName: PROCEDURE[oldname, extension: ROPE] RETURNS [newname: ROPE]; -- forces the file name, oldname, to have the extension if no period is found NoJaMGraphicsViewer: SIGNAL; InitJaMGraphics: PROCEDURE; -- initialize JaMGraphics to ensure that TJaMGraphicsPackage is running and -- a JaM typescript exists jaMFrame: JaMInternal.Frame; 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]; }. 7JJbk n   J