DIRECTORY Vector2 USING [VEC]; ImagerBox: 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, 1991 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 Κy•NewlineDelimiter –(cedarcode) style™code™Kšœ Οeœ=™HK™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šžœ˜—…—V™