DIRECTORYCD,CDRepetitions,TerminalIO,CDSequencer,CDApplications,CDCells,CDCallSpecific,CDOps,CDOrient;RepetitionCommands: CEDAR PROGRAMIMPORTS CDCallSpecific, CDRepetitions, TerminalIO, CDSequencer, CDApplications, CDCells, CDOps = BEGINHasSingleSelected: PROC [list: CD.ApplicationList] RETURNS [BOOLEAN] =BEGINfirstFound: BOOLEAN _ FALSE;FOR w: CD.ApplicationList _ list, w.rest WHILE w#NIL DOIF w.first.selected THENIF firstFound THEN RETURN [FALSE]ELSE firstFound _ TRUE;ENDLOOP;RETURN [firstFound]END; MakeRepetition: PROC [comm: CDSequencer.Command] =BEGINsel: CD.ApplicationList;ob: CD.ObPtr;offset, location: CD.DesignPosition;count: INT;first: CD.ApplicationPtr;multiple: BOOL;TerminalIO.WriteRope["make a repetition  "]; [first, multiple] _ CDOps.SelectedApplication[comm.design];IF first=NIL THEN {TerminalIO.WriteRope["no selected object\n"]; RETURN};count _ TerminalIO.RequestInt["number: "];IF count<1 OR count>=LAST[NAT] THEN {TerminalIO.WriteRope["bad number\n"]; RETURN};IF count>=257 THEN {TerminalIO.WriteRope["don't exagerate\n"]; RETURN};IF multiple THEN {[done: multiple, cellOb: ob] _ CDCells.CreateCellSelected[comm.design, "-dummy"];IF NOT multiple THEN {TerminalIO.WriteRope["not done\n"]; RETURN};};[selected: sel, others: comm.design.actual.first.specific.contents] _    CDApplications.SplitSelected[comm.design.actual.first.specific.contents];IF sel.first=NIL OR sel.rest#NIL THEN ERROR; -- therefore sel#NIL !offset _ [comm.pos.x-comm.sPos.x, comm.pos.y-comm.sPos.y];ob _ CDRepetitions.CreateRepetition[comm.design, sel.first.ob, count, offset, sel.first.orientation];location _ sel.first.location;IF offset.x<0 THEN location.x _ location.x+(count-1)*offset.x;IF offset.y<0 THEN location.y _ location.y+(count-1)*offset.y;CDOps.AddAnObject[comm.design, ob, location, CDOrient.original];END;TransformToCellS: PROC [comm: CDSequencer.Command] =BEGINn: NAT;TerminalIO.WriteRope["transform to cell\n"];n _ CDCallSpecific.CallForSelected[comm.design, $TransformToCell];TerminalIO.WriteInt[n]; TerminalIO.WriteRope[" objects transformed\n"];END;CDSequencer.ImplementCommand[$DrawRepetition, MakeRepetition];CDSequencer.ImplementCommand[$TransformToCellS, TransformToCellS];END.    š  RepetitionCommands.mesa   (part of Chipndale)by Christian Jacobi   July 11, 1983 3:42 pm last edited Christian Jacobi   November 2, 1983 4:06 pm Ê¦  ˜ Jšœ-™-Jšœ,™,Jšœ7™7J˜ šÏk	˜	Jšœ˜J˜J˜J˜J˜J˜J˜J˜J˜	J˜ —šÏnœœ˜!JšœZ˜a—Jš˜J˜ š
žœœœœœ˜FJš˜Jšœœœ˜š	œœ œœ˜7šœ˜Jšœœœœ˜!Jšœœ˜—Jšœ˜—Jšœ˜Jšœ˜J˜ —šžœœ˜2Jš˜Jšœœ˜Jšœœ˜Jšœœ˜$Jšœœ˜Jšœœ˜Jšœ
œ˜J˜-Jšœ;˜;Jšœœ0œ˜IJ˜*š
œ	œœœœ˜$Jšœ'œ˜/šœœ˜Jšœ,œ˜4——šœ
œ˜JšœQ˜QJšœœ
œ&œ˜BJ˜—šœI˜IJ˜I—Jš	œœœœÏc˜CJ˜:J˜eJ˜Jšœœ,˜>Jšœœ,˜>J˜@Jšœ˜—J˜ šžœœ˜4Jš˜Jšœœ˜J˜,J˜BJ˜GJšœ˜J˜ —˜ J˜ —J˜>JšœB˜BJšœ˜J˜ J˜ J˜ J˜ — …—    æ  &  