-- CGSource.mesa
-- Last changed by Doug Wyatt, October 4, 1982 11:32 am

DIRECTORY
GraphicsBasic USING [Color, PaintMode];

CGSource: CEDAR DEFINITIONS = {

Type: TYPE = {const, array, proc, tile};

Mode: TYPE = GraphicsBasic.PaintMode; -- {opaque, transparent, invert}

Color: TYPE = GraphicsBasic.Color; -- LONG CARDINAL

Ref: TYPE = REF Rep;
Rep: TYPE = RECORD [
type: Type,
mode: Mode,
fat: BOOLEAN,
raw: BOOLEAN ← FALSE,
bps: [0..16), -- bits per sample (array or proc)
color: Color, -- Bitmap-specific texture, for now
xbase: LONG POINTER, -- starting address for array
xrast: CARDINAL, -- words per line for array
Get: PROC[x,y: REAL] RETURNS[CARDINAL]
];

}.