DIRECTORY CD USING [Position, Object, Orientation, Design, Rect]; CDRepetitions: CEDAR DEFINITIONS = BEGIN IsRepetition: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ ISTYPE[ob.specificRef, RepPtr] ] }; RepPtr: TYPE = REF RepRec; RepRec: TYPE = RECORD [ ob: CD.Object, offsetOfFirst: CD.Position, ir: CD.Rect, orientation: CD.Orientation, offset: CD.Position, count: NAT ]; CreateRepetition: PROC [design: CD.Design, ob: CD.Object, count: NAT, offset: CD.Position, orientation: CD.Orientation_0] RETURNS [CD.Object]; --count <= 256 END. κCDRepetitions.mesa (part of ChipNDale) Copyright c 1983, 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, October 27, 1983 3:36 pm last edited by Christian Jacobi, September 19, 1985 3:41:17 am PDT ΚL˜codešœ-™-Kšœ Οmœ7™BKšœ.™.KšœB™B—K˜šΟk ˜ Kšžœžœ/˜7—K˜KšΠln œžœž œ˜"Kšž˜K˜š Οn œžœžœ žœžœžœ˜