<> <> <> <<>> <> DIRECTORY IIManhattan USING [DeviceRectangle, Polygon]; IIManhattanExtras: CEDAR DEFINITIONS ~ BEGIN OPEN IIManhattan; <> DestructiveUnion: PROC [a, b: Polygon] RETURNS [Polygon]; <> DestructiveIntersection: PROC [a, b: Polygon] RETURNS [Polygon]; <> DestructiveClip: PROC [a: Polygon, b: DeviceRectangle] RETURNS [Polygon]; <> DestructiveDifference: PROC [a, b: Polygon] RETURNS [Polygon]; <> END.