<> <> <<>> <> <> DIRECTORY ImagerBasic USING [Context, ImagingSpace, ClipperRecord, Visibility, IntRectangle]; ImagerClipper: CEDAR DEFINITIONS = BEGIN Context: TYPE = ImagerBasic.Context; IntRectangle: TYPE = ImagerBasic.IntRectangle; ImagingSpace: TYPE = ImagerBasic.ImagingSpace; ClipperRecord: TYPE = ImagerBasic.ClipperRecord; Visibility: TYPE = ImagerBasic.Visibility; -- {visible, partlyVisible, invisible} SetClipper: PROC [context: Context, clipSpace: ImagingSpace, clipper: ClipperRecord]; GetClipper: PROC [context: Context, clipSpace: ImagingSpace, clipper: ClipperRecord]; ConcatRectangle: PROC [context: Context, clipSpace: ImagingSpace, area: IntRectangle]; END.