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 18, 1983 10:20 am
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.