CDRepetitions.mesa (part of ChipNDale)
Copyright © 1983, 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, October 27, 1983 3:36 pm
last edited by Christian Jacobi, March 14, 1986 3:36:17 pm PST
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𡤀]
RETURNS [
CD.Object];
--count <= 256
END.