TAPrivate.mesa
Copyright © 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
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];
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;
state: JaM.State;
InitJaMGraphics:
PROCEDURE;
initialize JaMGraphics to ensure that TJaMGraphicsPackage is running and
a JaM typescript exists
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];
}.