DIRECTORYCD,CDApplications,CDBasics,CDRects,CDIO,CDLRUCache,CDOrient,CMos,TokenIO;CMosPDif: CEDAR PROGRAM IMPORTS CD, CDApplications, CDBasics, CDIO, CDLRUCache, CDRects, CDOrient, CMos, TokenIO =   BEGINlambda: CD.DesignNumber = CD.lambda;wellSurround: CD.DesignNumber = CMos.wellSurround;pForWellDiff: REF CD.ObjectProcs = CD.RegisterObjectType[$CMosPDifRect, CMos.cmos];cache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 30, newProc: NewPDif];dummySpecific: REF CMos.WellRectRep = NEW[CMos.WellRectRep]; NewPDif: PROC [] RETURNS [CD.ObPtr] = {ob: CD.ObPtr _ NEW[CD.ObjectDefinition_[p: pForWellDiff]];ob.specificRef _ dummySpecific;RETURN [ob]};Init: PROC [] =BEGINpForWellDiff.drawMe _ DrawWellDiffRect;pForWellDiff.insideRect _ InsideWellDiffRect;pForWellDiff.showMeSelected _ ShowSelectedWellDiffRect;pForWellDiff.hitInside _ HitInsideWellDiffRect;pForWellDiff.internalRead _ ReadWellDif;pForWellDiff.internalWrite _ WriteWellDif;pForWellDiff.wireTyped _ TRUE;CDRects.UseAsCreateRect[CMos.pdif, CreateWellDiffRect, pForWellDiff];CDRects.UseAsCreateRect[CMos.bur, CDRects.CreateSaveRect];CDRects.UseAsCreateRect[CMos.cut2, CDRects.CreateSaveRect];END; WriteWellDif: CD.InternalWriteProc -- PROC [me: ObPtr] -- =BEGINTokenIO.WriteInt[me.size.x-2*wellSurround];TokenIO.WriteInt[me.size.y-2*wellSurround];CDIO.WriteLevel[me.level];END;ReadWellDif: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =BEGINx: INT = TokenIO.ReadInt[];y: INT = TokenIO.ReadInt[];l: CD.Level = CDIO.ReadLevel[];ob: CD.ObPtr = CreateWellDiffRect[[x, y], l];RETURN [ob]END;InsideWellDiffRect: PROC [ob: CD.ObPtr] RETURNS [CD.DesignRect] =BEGINRETURN [CDBasics.Extend[CDBasics.RectAt[[0, 0], ob.size], -wellSurround]] END;ShowSelectedWellDiffRect: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation, pr: CD.DrawRef] =BEGINpr.outLineProc[CDBasics.Extend[CDOrient.RectAt[pos, aptr.ob.size, orient], -(wellSurround)], pr]END;HitInsideWellDiffRect: PROC [aptr: CD.ApplicationPtr, hitRect: CD.DesignRect] RETURNS [BOOL] =BEGINRETURN [CDBasics.Intersect[CDBasics.Extend[CDApplications.ARectO[aptr], -wellSurround], hitRect]]END;CreateWellDiffRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr] =BEGIN ob: CD.ObPtr ~ cache.UnusedOrNew[];ob.p _ pForWellDiff; ob.size _ CDBasics.AddSize[[2*wellSurround, 2*wellSurround], CDBasics.MaxPoint[size, [0, 0]]];ob.level _ l;RETURN [cache.ReplaceByAequivalent[ob]]END;DrawWellDiffRect: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation,pr: CD.DrawRef] =BEGINr: CD.DesignRect = CDOrient.RectAt[pos, aptr.ob.size, orient];inr: CD.DesignRect = CDBasics.Extend[r, -wellSurround]; pr.drawRect[inr, aptr.ob.level, pr];pr.drawRect[r, CMos.nwel, pr]; END; Init[];END.      CMosPDif.mesa  (part of Chipndale)Copyright c 1983 by Xerox Corporation.  All rights reserved.by Christian Jacobi   September 10, 1983 9:34 pm last edited Christian Jacobi   December 14, 1983 3:37 pm-- hack; here to reduce numbers of modules only Êµ  ˜ šœ"™"Jšœ
Ïmœ1™<Jšœ1™1Jšœ8™8J˜ —šÏk	˜	Jšžœ˜J˜J˜	J˜J˜Jšœ˜Jšœ	˜	J˜J˜J˜ —šÏnœžœžœ˜JšžœžœS˜]—Jšž˜J˜ Jšœžœžœ˜$Jšœžœ"˜2J˜ Jšœžœžœ.˜SJšœK˜KJšœžœžœ˜=J˜ šŸœžœžœžœ˜'Jšœžœ	žœžœ%˜:Jšœ˜Jšžœ˜J˜—J˜ šŸœžœ˜Jšž˜Jšœ'˜'Jšœ-˜-Jšœ7˜7Jšœ/˜/Jšœ(˜(Jšœ*˜*Jšœžœ˜JšœE˜EJšœ/™/Jšœ:˜:Jšœ;˜;Jšžœ˜J˜ —codešŸœžœÏcœ˜;Jšž˜Jšœ+˜+Jšœ+˜+Jšœ˜Jšžœ˜—J˜ šŸœžœ œ˜>Jšž˜Jšœžœ˜Jšœžœ˜Jšœžœ	žœ˜Jšœžœ'˜-Jšžœ˜Jšžœ˜J˜ —š
Ÿœžœžœžœžœ˜AJšž˜JšžœD˜JJšžœ˜J˜ —šŸœžœžœžœ˜QJšœžœžœ˜)Jšž˜Jšœ`˜`Jšžœ˜J˜ —šŸœžœžœžœ˜NJšžœžœ˜Jšž˜šžœ˜˜J˜J˜—J˜	—Jšžœ˜J˜ —šŸœžœžœžœžœžœ	˜TJšžœ˜Jšœžœ˜#Jšœ˜˜J˜"J˜!—J˜Jšžœ!˜'Jšžœ˜J˜ —š
Ÿœžœžœžœžœ˜`Jšœžœ˜Jšž˜Jšœžœ9˜>Jšœžœ1˜8Jšœ$˜$J˜Jšžœ˜J˜ —J˜Jšžœ˜J˜— …—       ×  