ImagerBasics.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
Michael Plass, May 17, 1985 10:52:19 am PDT
Doug Wyatt, March 7, 1986 2:39:04 pm PST
DIRECTORY
Vector2 USING [VEC];
ImagerBasics: CEDAR DEFINITIONS
~ BEGIN
VEC: TYPE ~ Vector2.VEC;
Box: TYPE ~ RECORD [xmin, ymin, xmax, ymax: REAL];
Rectangle: TYPE ~ RECORD [x, y, w, h: REAL];
Extents: TYPE ~ RECORD [leftExtent, rightExtent, descent, ascent: REAL];
BoxFromRectangle: PROC [Rectangle] RETURNS [Box];
RectangleFromBox: PROC [Box] RETURNS [Rectangle];
BoxFromExtents: PROC [Extents] RETURNS [Box];
ExtentsFromBox: PROC [Box] RETURNS [Extents];
ExtentsFromRectangle: PROC [Rectangle] RETURNS [Extents];
RectangleFromExtents: PROC [Extents] RETURNS [Rectangle];
IntersectBox: PROC [Box, Box] RETURNS [Box];
BoundBox: PROC [Box, Box] RETURNS [Box];
BoundPoint: PROC [Box, VEC] RETURNS [Box];
END.