DIRECTORY Vector2 USING [VEC]; IIBox: CEDAR DEFINITIONS ~ BEGIN VEC: TYPE ~ Vector2.VEC; Extents: TYPE ~ RECORD [leftExtent, rightExtent, descent, ascent: REAL]; Rectangle: TYPE ~ RECORD [x, y, w, h: REAL]; Box: TYPE ~ RECORD [xmin, ymin, xmax, ymax: REAL]; BoxFromRectangle: PROC [Rectangle] RETURNS [Box]; RectangleFromBox: 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. ΔImagerBox.mesa Copyright Σ 1985, 1986 by Xerox Corporation. All rights reserved. Michael Plass, November 21, 1986 10:06:25 am PST Doug Wyatt, May 19, 1985 4:24:20 pm PDT Types Operations ΚL˜code™KšœB™BK™0K™'—K™KšΟk œ œœ˜K˜KšΠblœœ ˜Kšœ˜head™Kšœœ œ˜Kšœ œœ,œ˜HKšœ œœœ˜,Kšœœœœ˜2K˜—™ KšΟnœœ œ˜1KšŸœœœ ˜1K˜KšŸœœ œ˜-KšŸœœœ ˜-K˜KšŸ œœ œ˜,KšŸ œœ œ˜+K˜KšŸ œœœœ˜*K˜—Kšœ˜—…—Rb