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. ²ImagerBasics.mesa Copyright c 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 Κr˜code™Kšœ Οmœ7™BK™+K™(—K™šΟk ˜ Kšœžœžœ˜—K˜KšΠbl œžœž ˜Kšœž˜K˜Kšžœžœ žœ˜K˜Kšœžœžœžœ˜2Kšœ žœžœžœ˜,Kšœ žœžœ,žœ˜HK˜KšΟnœžœ žœ˜1Kš œžœžœ ˜1K˜Kš œžœ žœ˜-Kš œžœžœ ˜-K˜Kš œžœ žœ ˜9Kš œžœ žœ ˜9K˜Kš  œžœ žœ˜,Kš œžœ žœ˜(Kš  œžœžœžœ˜*K˜Kšžœ˜—…—Μπ