-- 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]
  ];

}.