DIRECTORYCD,CDBasics,CDRects,CDIO,CDOrient,CMosB,Rope,TokenIO;CMosBWellDifImpl: CEDAR PROGRAM IMPORTS CD, CDBasics, CDIO, CDRects, CDOrient, CMosB, TokenIOSHARES CDRects =   BEGINlambda: CD.Number = CMosB.lambda;wellSurround: CD.Number = CMosB.wellSurround;wpdifClass: CD.ObjectClass = CD.RegisterObjectClass[$C2PDifRect, [drawMe: DrawWellPDiffRect,interestRect: InsideWellDiffRect,showMeSelected: ShowSelectedWellDiffRect,internalRead: CDRects.bareRectClass.internalRead,internalWrite: WriteWellDif,wireTyped: TRUE,description: "w-pdif",technology: CMosB.cmosB]];wndifClass: CD.ObjectClass = CD.RegisterObjectClass[$C2NDifRect, [drawMe: DrawWellNDiffRect,interestRect: InsideWellDiffRect,showMeSelected: ShowSelectedWellDiffRect,internalRead: CDRects.bareRectClass.internalRead,internalWrite: WriteWellDif,wireTyped: TRUE,description: "w-ndif",technology: CMosB.cmosB]];dummySpecific: REF WellRectRep = NEW[WellRectRep]; WellRectRep: TYPE = RECORD [i: INT_0]; WriteWellDif: CD.InternalWriteProc -- PROC [me: Object] -- = {TokenIO.WriteInt[me.size.x-2*wellSurround];TokenIO.WriteInt[me.size.y-2*wellSurround];CDIO.WriteLayer[me.layer];};InsideWellDiffRect: PROC [ob: CD.Object] RETURNS [CD.Rect] = {RETURN [CDBasics.Extend[CDBasics.RectAt[[0, 0], ob.size], -wellSurround]] };ShowSelectedWellDiffRect: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation, pr: CD.DrawRef] = {pr.drawOutLine[CDBasics.Extend[CDOrient.RectAt[pos, inst.ob.size, orient], -(wellSurround)], CD.selectionLayer, pr]};CreateWellDiffRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [ob: CD.Object] = {ob _ NEW[CD.ObjectRep _ [class: wpdifClass, specificRef: dummySpecific]];IF l=CMosB.wpdif THEN ob.class _ wpdifClassELSE IF l=CMosB.wndif THEN ob.class _ wndifClassELSE { --actally error, but try to correctIF l=CMosB.ndif THEN {l _ CMosB.wndif; ob.class _ wndifClass}ELSE IF l=CMosB.pdif THEN {l _ CMosB.wpdif; ob.class _ wpdifClass}ELSE ERROR};ob.size _ CDBasics.AddSize[[2*wellSurround, 2*wellSurround], CDBasics.MaxPoint[size, [1, 1]]];ob.layer _ l;};DrawWellPDiffRect: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation, pr: CD.DrawRef] = {r: CD.Rect = CDOrient.RectAt[pos, inst.ob.size, orient];inr: CD.Rect = CDBasics.Extend[r, -wellSurround]; pr.drawRect[inr, CMosB.pdif, pr];pr.drawRect[r, CMosB.nwell, pr]; }; DrawWellNDiffRect: PROC [inst: CD.Instance, pos: CD.Position, orient: CD.Orientation, pr: CD.DrawRef] = {r: CD.Rect = CDOrient.RectAt[pos, inst.ob.size, orient];inr: CD.Rect = CDBasics.Extend[r, -wellSurround]; pr.drawRect[inr, CMosB.ndif, pr];pr.drawRect[r, CMosB.pwell, pr]; }; CDRects.UseAsCreateRect[CMosB.wpdif, CreateWellDiffRect, wpdifClass];CDRects.UseAsCreateRect[CMosB.wndif, CreateWellDiffRect, wndifClass];END.    ,  CMosBWellDifImpl.mesa  (part of ChipNDale)Copyright c 1983, 1985, 1986 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi,  September 10, 1983 9:34 pm Last Edited by: Christian Jacobi, August 16, 1986 6:09:08 pm PDT--we do not lru cache; CDRects caching is good enough Êj  ˜ codešœ*™*Kšœ
Ïmœ=™HKšœ9™9K™@K˜ —šÏk	˜	Kšžœ˜K˜	K˜K˜Kšœ	˜	K˜K˜K˜K˜ —šÏbœžœžœ˜ Kšžœžœ3˜=Kšžœ˜—Kšž˜K˜ Kšœžœ˜!Kšœžœ˜-K˜ šœžœžœ#˜BKšœ˜Kšœ!˜!Kšœ)˜)Kšœ1˜1Kšœ˜Kšœžœ˜Kšœ˜Kšœ˜Kšœ˜—šœžœžœ#˜BKšœ˜Kšœ!˜!Kšœ)˜)Kšœ1˜1Kšœ˜Kšœžœ˜Kšœ˜Kšœ˜Kšœ˜—Kšœžœžœ˜3Kšœžœžœžœ˜'K˜ šÐbnœžœÏcœ˜>Kšœ+˜+Kšœ+˜+Kšžœ˜Kšœ˜K˜ —š
Ïnœžœžœ	žœžœ
˜>KšžœD˜JKšœ˜K˜ —š¢œžœžœžœžœžœ˜pKšœ]žœ˜sKšœ˜K˜ —š¢œžœžœžœžœžœ˜UKšœ5™5Kšœžœžœ>˜IKšžœžœ˜+Kšžœžœžœ˜0šžœ¡#˜*Kšžœžœ)˜=Kšžœžœžœ)˜BKšžœž˜
K˜—˜K˜"K˜!—Kšœ˜Kšœ˜K˜ —š¢œžœžœžœžœžœ˜iKšœžœ3˜8Kšœžœ+˜2Kšœ!˜!K˜!Kšœ˜K˜ —š¢œžœžœžœžœžœ˜iKšœžœ3˜8Kšœžœ+˜2Kšœ!˜!K˜!Kšœ˜K˜ —KšœE˜EKšœE˜EKšžœ˜K˜— …—      ¬  