Segments
Horizontal and Vertical segment could be added.
segmentClass: Pipal.Class;
SegmentData: TYPE = REF SegmentDataRec;
SegmentDataRec:
TYPE =
RECORD [
vector: PipalInt.Vector,
color: PipalPaint.Color];
CreateSegment: PROC [vector: PipalInt.Vector, color: PipalPaint.Color] RETURNS [object: Pipal.Object];
Cell
cellClass: Pipal.Class;
CellData: TYPE = REF CellDataRec;
CellDataRec: TYPE = RECORD [
child: Pipal.Object,
ports: SEQUENCE size: NAT OF Pipal.Object];
CreateCell: PROC [ports: Pipal.Objects, child: Pipal.Object] RETURNS [object: Pipal.Object];