<> <> <> <<>> <> DIRECTORY ImagerManhattan USING [DeviceRectangle, Polygon]; ImagerManhattanExtras: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerManhattan; <> 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.