ImagerClipper.mesa
This interface provides the internal view of the procedures, structures, etc. involved in setting, modifying and using clipping in the imager. You had better know what you are doing if using this!
Last Edited by:
Crow, June 20, 1983 8:31 pm
DIRECTORY
ImagerBasic  USING [Visibility, IntRectangle],
ImagerPrivate USING [Context, ImagingSpace, ClipperRecord] ;
ImagerClipper: CEDAR DEFINITIONS
= BEGIN
Context: TYPE = ImagerPrivate.Context;
IntRectangle: TYPE = ImagerBasic.IntRectangle;
ImagingSpace: TYPE = ImagerPrivate.ImagingSpace;
ClipperRecord: TYPE = ImagerPrivate.ClipperRecord;
Visibility: TYPE = ImagerBasic.Visibility; -- {visible, partlyVisible, invisible}
SetClipper: PROC [context: Context, clipSpace: ImagingSpace, clipper: ClipperRecord];
GetClipper: PROC [context: Context, clipSpace: ImagingSpace, clipper: ClipperRecord];
END.