<> << Copyright © 1985 by Xerox Corporation. All rights reserved.>> << Written by Ch. Jacobi, December 18, 1984 9:20:14 am PST>> << Last Edited by: Jacobi, April 11, 1985 2:57:35 pm PST>> D2Basic: CEDAR DEFINITIONS = BEGIN Number: TYPE = INT; Coord: TYPE = RECORD [x, y: Number]; Rect: TYPE = RECORD [x1, y1, x2, y2: Number]; <<>> <<-- Conventions>> <<--A Rect is called normalized if (x1>x2) OR (y1>y2) means that the Rect is empty.>> <<--Rects are normalized, except if a special comment denies. >> <<--Rect's are closed: they include all the endpoints; as you expect, points have >> <<--size 0; except if a special comment denies.>> <<>> END.