<> <> <<>> <> <> DIRECTORY ImagerBasic USING [Visibility, IntRectangle], ImagerInternalDefs USING [ImagingSpace, ClipperRecord] ; ImagerClipper: CEDAR DEFINITIONS = BEGIN Context: TYPE = ImagerBasic.Context; IntRectangle: TYPE = ImagerBasic.IntRectangle; ImagingSpace: TYPE = ImagerInternalDefs.ImagingSpace; ClipperRecord: TYPE = ImagerInternalDefs.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.