
    <<ImagerBackdoorPrivate.mesa>>
        <<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
        <<Mik Lamming, August 1, 1986 1:52:41 pm PDT>>
        <<>>
DIRECTORY
Imager USING [Context],
ImagerBackdoor USING [Clipper, Visibility],
ImagerPath USING [PathProc],
Vector2 USING [VEC];

    ImagerBackdoorPrivate: CEDAR DEFINITIONS
    ~ BEGIN 
    <<>>
    Clipper: TYPE ~ ImagerBackdoor.Clipper;
    Context: TYPE ~ Imager.Context;
    PathProc: TYPE ~ ImagerPath.PathProc;
    VEC: TYPE ~ Vector2.VEC;
    Visibility: TYPE ~ ImagerBackdoor.Visibility;


    Class: TYPE ~ REF ClassRep;
    ClassRep: TYPE ~ RECORD [
        type: ATOM _,
        ViewReset: PROC [context: Context] _,
        ViewTranslateI: PROC [context: Context, x, y: INTEGER] _,
        ViewClip: PROC [context: Context, path: PathProc, parity: BOOL, exclude: BOOL] _,
        ViewClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL] _,
        ViewFromClient: PROC [context: Context, p: VEC] RETURNS [VEC] _,
        ClientFromView: PROC [context: Context, p: VEC] RETURNS [VEC] _,
        DeviceFromView: PROC [context: Context, p: VEC] RETURNS [VEC] _,
        ViewFromDevice: PROC [context: Context, p: VEC] RETURNS [VEC] _,
        DeviceFromClient: PROC [context: Context, p: VEC] RETURNS [VEC] _,
        ClientFromDevice: PROC [context: Context, p: VEC] RETURNS [VEC] _,
        MoveViewRectangle: PROC [context: Context, width, height, fromX, fromY, toX, toY: INTEGER] _,
        TestViewRectangle: PROC [context: Context, x, y, w, h: INTEGER] RETURNS [Visibility] _
        ];


    END.