PipalMask.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 15, 1988 9:44:22 pm PST
DIRECTORY Pipal, PipalInt, PipalPaint;
PipalMask: CEDAR DEFINITIONS = BEGIN
Theory
Geometry and color: the Pipal data structures which will some day turn to silicon.
Layers
Layer: TYPE = PipalPaint.Color; -- enough for now
Basic Classes
Box
boxClass: Pipal.Class;
Box: TYPE = REF BoxRec;
BoxRec:
TYPE =
RECORD [
size: PipalInt.Size,
layer: Layer];
CreateBox:
PROC [size: PipalInt.Size, layer: Layer]
RETURNS [box: Box];
It is not legal for a box to be reduced to a line or a point
END.