
    <<NewerBottom.Mesa>>
<<Last Edited by: Spreitzer, March 31, 1985 5:31:10 pm PST>>

    DIRECTORY Carets, CaretsImpl, CGArea, CGContext, CGDevice, CGMatrix, CGPath, CGSource, Graphics, GraphicsBasic, GraphicsOps, 
    Process, Real, RealFns, VFonts, ViewerClasses, ViewerOps, ViewerPaintImpl;

    NewerBottom: CEDAR DEFINITIONS = {

        Bitmap: TYPE = GraphicsOps.BitmapRef;
        Box: TYPE = GraphicsBasic.Box;
        Context:TYPE = Graphics.Context;
        Path: TYPE = Graphics.Path;
        Transform: TYPE = GraphicsBasic.Transformation;

        Conser: TYPE = REF ConserRep;
        ConserRep: TYPE = RECORD [
            Cons: PROC [arg: REF ANY] RETURNS [context: Context],
            arg: REF ANY];

        Replace: PROC [conser: Conser, paint: BOOL _ TRUE];

        Vanillify: PROC [paint: BOOL _ TRUE];

        XFormArg: TYPE = REF XFormArgRep;
        XFormArgRep: TYPE = RECORD [
            t: Transform _ [1, 0, 0, 1, 0, 0],
            clipBox: Box _ [0, 0, 0, 0],
            clipByBox: BOOL _ FALSE,
            clipPath: Path _ NIL,
            clipByPath: BOOL _ FALSE,
            <<Client not responsible for fields below:>>
            screenB, bufferB: Bitmap _ NIL
            ];

        DoXFormer: PROC [xfa: XFormArgRep, paint: BOOL _ TRUE];

        Circle: PROC [x, y, r: REAL] RETURNS [p: Path];

        }.