<> <> <> <> DIRECTORY Pipal, PipalInt, PipalPaint; PipalMask: CEDAR DEFINITIONS = BEGIN <> <> <> Layer: TYPE = PipalPaint.Color; -- enough for now <> <> brickClass: Pipal.Class; Brick: TYPE = REF BrickRec; BrickRec: TYPE = RECORD [ size: PipalInt.Size, layer: Layer]; CreateBrick: PROC [size: PipalInt.Size, layer: Layer] RETURNS [brick: Brick]; <> END.