DIRECTORYCD,CDApplications,CDBasics,CDRects,CDIO,CDLRUCache,CDOrient,CMos,Rope,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.interestRect _ pForWellDiff.oldInsideRect _ InsideWellDiffRect;pForWellDiff.showMeSelected _ ShowSelectedWellDiffRect;pForWellDiff.hitInside _ HitInsideWellDiffRect;pForWellDiff.internalRead _ ReadWellDif;pForWellDiff.internalWrite _ WriteWellDif;pForWellDiff.wireTyped _ TRUE;pForWellDiff.describe _ Describe;CDRects.UseAsCreateRect[CMos.wpdif, CreateWellDiffRect, pForWellDiff];CDRects.UseAsCreateRect[CMos.bur, CDRects.CreateSaveRect];CDRects.UseAsCreateRect[CMos.cut2, CDRects.CreateSaveRect];END; Describe: PROC[me: CD.ObPtr] RETURNS [Rope.ROPE] =BEGINRETURN ["w-pdif"]END;WriteWellDif: CD.InternalWriteProc -- PROC [me: ObPtr] -- =BEGINTokenIO.WriteInt[me.size.x-2*wellSurround];TokenIO.WriteInt[me.size.y-2*wellSurround];CDIO.WriteLayer[CMos.wpdif];END;ReadWellDif: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =BEGINx: INT = TokenIO.ReadInt[];y: INT = TokenIO.ReadInt[];l: CD.Layer = CDIO.ReadLayer[];ob: CD.ObPtr = CreateWellDiffRect[[x, y], CMos.wpdif];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.Layer] RETURNS [CD.ObPtr] =BEGIN ob: CD.ObPtr ~ cache.UnusedOrNew[];ob.p _ pForWellDiff; ob.size _ CDBasics.AddSize[[2*wellSurround, 2*wellSurround], CDBasics.MaxPoint[size, [1, 1]]];ob.layer _ CMos.wpdif;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, CMos.pdif, pr];pr.drawRect[r, CMos.nwel, pr]; END; Init[];END.     CMosPDif.mesa  (part of ChipNDale)Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi,  September 10, 1983 9:34 pm last edited Christian Jacobi,  March 20, 1985 9:46:27 am PST-- hack; here to reduce numbers of modules only Êû  ˜ šœ"™"Jšœ
Ïmœ7™BJšœ1™1Jšœ<™<J˜ —šÏk	˜	Jšžœ˜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šœL˜LJšœ7˜7Jšœ/˜/Jšœ(˜(Jšœ*˜*Jšœžœ˜Jšœ!˜!JšœF˜FJšœ/™/Jšœ:˜:Jšœ;˜;Jšžœ˜J˜ —š
Ÿœžœžœžœžœ˜2Jšž˜Jšžœ˜Jšžœ˜—Icode˜ šŸœžœÏcœ˜;Jšž˜Jšœ+˜+Jšœ+˜+Jšžœ˜Jšžœ˜—J˜ šŸœžœ œ˜>Jšž˜Jšœžœ˜Jšœžœ˜Jšœžœ	žœ˜Jšœžœ0˜6Jšžœ˜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˜— …—    È  Ï  