ImagerBox.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Michael Plass, May 17, 1985 10:52:19 am PDT
Doug Wyatt, May 19, 1985 4:24:20 pm PDT
DIRECTORY
Imager USING [Rectangle, Box],
ImagerFont USING [Extents],
Vector2 USING [VEC];
ImagerBox: CEDAR DEFINITIONS
~ BEGIN OPEN Imager, ImagerFont;
VEC: TYPE ~ Vector2.VEC;
Extents: TYPE ~ ImagerFont.Extents;
Rectangle: TYPE ~ Imager.Rectangle;
Box: TYPE ~ Imager.Box;
BoxFromRect: PROC [Rectangle] RETURNS [Box];
RectFromBox: PROC [Box] RETURNS [Rectangle];
BoxFromExtents: PROC [Extents] RETURNS [Box];
ExtentsFromBox: PROC [Box] RETURNS [Extents];
IntersectBox: PROC [Box, Box] RETURNS [Box];
BoundingBox: PROC [Box, Box] RETURNS [Box];
BoundPoint: PROC [Box, VEC] RETURNS [Box];
END.