-- TAProperties.mesa
-- written by Beach, June 22, 1982 8:56 pm
-- provide access to TiogaArtwork Properties

DIRECTORY
	TextNode USING [Ref];

TAProperties: DEFINITIONS = {

AnArtworkNode: PROCEDURE [node: TextNode.Ref] RETURNS [BOOLEAN];

SetArtworkProp: PROCEDURE [node: TextNode.Ref];

AnArtworkFileName: PROCEDURE [node: TextNode.Ref] RETURNS [BOOLEAN];

SetArtworkFileNameProp: PROCEDURE [node: TextNode.Ref];

AnArtworkImage: PROCEDURE [node: TextNode.Ref] RETURNS [BOOLEAN];

SetArtworkImageProp: PROCEDURE [node: TextNode.Ref];

AnArtworkPath: PROCEDURE [node: TextNode.Ref] RETURNS [BOOLEAN];

SetArtworkPathProp: PROCEDURE [node: TextNode.Ref];

GetBoundingBox: PROCEDURE [node: TextNode.Ref] RETURNS [x,y: REAL ← 0];
	-- return bounding box limits for this node

SetBoundingBoxProp: PROCEDURE [node: TextNode.Ref, x,y: REAL];

GetOrigin: PROCEDURE [node: TextNode.Ref] RETURNS [x,y: REAL ← 0];
	-- return the origin coordinates relative to the bounding box

SetOriginProp: PROCEDURE [node: TextNode.Ref, x,y: REAL];
	-- establish the origin coordinate relative to the bounding box

}.