<> <> <> <> DIRECTORY CD USING [DesignPosition, ObPtr, Orientation, Design, DrawRef, DesignRect]; CDRepetitions: CEDAR DEFINITIONS = BEGIN IsRepetition: PROC [ob: CD.ObPtr] RETURNS [BOOL] = INLINE { RETURN [ ISTYPE[ob.specificRef, RepPtr] ] }; RepPtr: TYPE = REF RepRec; RepRec: TYPE = RECORD [ ob: CD.ObPtr, offsetOfFirst: CD.DesignPosition, ir: CD.DesignRect, orientation: CD.Orientation, offset: CD.DesignPosition, count: NAT ]; CreateRepetition: PROC [design: CD.Design, ob: CD.ObPtr, count: NAT, offset: CD.DesignPosition, orientation: CD.Orientation_0] RETURNS [CD.ObPtr]; --count <= 256 <<>> Index: PROC[environment: CD.DrawRef, skipInnerMost: NAT_0, ifNotFound: INT_0] RETURNS [INT]; <<>> END.