<> <> <> DIRECTORY Pipal, PipalInt, PipalPaint, Rope; PipalSch: CEDAR DEFINITIONS = BEGIN <> <
> <> <> <> <<>> 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]; <> <> <> <> <> <> <> END.