DIRECTORYCD,CDBasics,CDBasicsInline,CDRects,CDIO,CMosB,Rope,TokenIO;CMosBWellDifImpl: CEDAR PROGRAM IMPORTS CD, CDBasics, CDBasicsInline, CDIO, CDRects, CMosB, TokenIOSHARES CDRects =   BEGIN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 = {sz: CD.Position _ CDBasics.SizeOfRect[ob.bbox];TokenIO.WriteInt[h, sz.x-2*wellSurround];TokenIO.WriteInt[h, sz.y-2*wellSurround];CDIO.WriteLayer[h, ob.layer];};InsideWellDiffRect: PROC [ob: CD.Object] RETURNS [CD.Rect] = {RETURN [CDBasics.Extend[ob.bbox, -wellSurround]] };ShowSelectedWellDiffRect: PROC [inst: CD.Instance, trans: CD.Transformation, pr: CD.DrawRef] = {pr.drawOutLine[CDBasics.Extend[CDBasics.MapRect[inst.ob.bbox, trans], -(wellSurround)], CD.selectionLayer, pr]};CreateWellDiffRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [ob: CD.Object] = {size _ CDBasics.MaxPoint[size, [1, 1]];ob _ NEW[CD.ObjectRep _ [class: wpdifClass, specific: 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.bbox _ [x1: -wellSurround, y1: -wellSurround, x2: size.x+wellSurround, y2: size.y+wellSurround];ob.layer _ l;};DrawWellPDiffRect: PROC [inst: CD.Instance, trans: CD.Transformation, pr: CD.DrawRef] = {r: CD.Rect = CDBasicsInline.MapRect[inst.ob.bbox, trans]; pr.drawRect[CDBasics.Extend[r, -wellSurround], CMosB.pdif, pr];pr.drawRect[r, CMosB.nwell, pr]; }; DrawWellNDiffRect: PROC [inst: CD.Instance, trans: CD.Transformation, pr: CD.DrawRef] = {r: CD.Rect = CDBasicsInline.MapRect[inst.ob.bbox, trans]; pr.drawRect[CDBasics.Extend[r, -wellSurround], 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, October 17, 1986 2:00:20 pm PDT--we do not lru cache; CDRects caching is good enoughÊ0  ˜ codešœ*™*Kšœ
Ïmœ=™HKšœ9™9K™AK˜ —šÏk	˜	Kšžœ˜K˜	K˜K˜K˜K˜K˜K˜K˜ —šÏbœžœžœ˜ Kšžœžœ9˜CKšžœ˜—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œžœ˜&Kšœ/˜/Kšœ)˜)Kšœ)˜)Kšžœ˜Kšœ˜K˜ —š
Ïnœžœžœ	žœžœ
˜>Kšžœ+˜1Kšœ˜K˜ —š¡œžœžœ)žœ˜`KšœXžœ˜nKšœ˜K˜ —š¡œžœžœžœžœžœ˜UKšœ5™5K˜'Kšœžœžœ;˜FKšžœžœ˜+Kšžœžœžœ˜0šžœÏc#˜*Kšžœžœ)˜=Kšžœžœžœ)˜BKšžœž˜
K˜—Kšœc˜cKšœ˜Kšœ˜K˜ —š¡œžœžœ)žœ˜YKšœžœ5˜:Kšœ?˜?K˜!Kšœ˜K˜ —š¡œžœžœ)žœ˜YKšœžœ5˜:Kšœ?˜?K˜!Kšœ˜K˜ —KšœE˜EKšœE˜EKšžœ˜K˜— …—    
Ê  &  