--	File MoreCIFUtilities.Mesa
--Temporary until can be included in CIFUtilities
-- July 1981 by MN
--	Last changed (Pilot): 11-Aug-81 13:29:17

DIRECTORY

CIFUtilitiesDefs USING [Rectangle, DrawRectangleArea, DrawStringAt, SetStipple],
MoreCIFUtilitiesDefs;

MoreCIFUtilities: PROGRAM
IMPORTS CIFUtilitiesDefs
EXPORTS MoreCIFUtilitiesDefs =

BEGIN OPEN CIFUtilitiesDefs;

DrawRectangleArea: PUBLIC PROCEDURE[cr: CIFUtilitiesDefs.Rectangle] =
	BEGIN
	CIFUtilitiesDefs.DrawRectangleArea[cr];
	END;

DrawStringAt: PUBLIC PROCEDURE [s: STRING, x,y: REAL] =
	BEGIN
	CIFUtilitiesDefs.DrawStringAt[s,x,y];
	END;

SetStipple: PUBLIC PROCEDURE[s: CARDINAL] =
	BEGIN
	CIFUtilitiesDefs.SetStipple[s];
	END;

END.