DIRECTORYCD,CDBasics,CDBasicsInline,CDRects,CDIO,CMos,Rope,TokenIO;CMosWellDifImpl: CEDAR PROGRAM IMPORTS CD, CDBasics, CDBasicsInline, CDIO, CDRects, CMos, TokenIOSHARES CDRects =   BEGINwellSurround: CD.Number = CMos.wellSurround;wpdifClass: CD.ObjectClass = CD.RegisterObjectClass[$CMosPDifRect, [drawMe: DrawWellPDiffRect,interestRect: InsideWellDiffRect,showMeSelected: ShowSelectedWellDiffRect,internalRead: CDRects.bareRectClass.internalRead,internalWrite: WriteWellDif,wireTyped: TRUE,description: "w-pdif",technology: CMos.cmos]];wndifClass: CD.ObjectClass = CD.RegisterObjectClass[$CMosNDifRect, [drawMe: DrawWellNDiffRect,interestRect: InsideWellDiffRect,showMeSelected: ShowSelectedWellDiffRect,internalRead: CDRects.bareRectClass.internalRead,internalWrite: WriteWellDif,wireTyped: TRUE,description: "w-ndif",technology: CMos.cmos]];dummySpecific: REF WellRectRep = NEW[WellRectRep]; WellRectRep: TYPE = RECORD [i: INT_0]; NewWellDif: PROC [] RETURNS [CD.Object] = {ob: CD.Object _ NEW[CD.ObjectRep _ [class: wpdifClass]];ob.specific _ dummySpecific;RETURN [ob]};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=CMos.wpdif THEN ob.class _ wpdifClassELSE IF l=CMos.wndif THEN ob.class _ wndifClassELSE { --actally error, but try to correctIF l=CMos.ndif THEN {l _ CMos.wndif; ob.class _ wndifClass}ELSE IF l=CMos.pdif THEN {l _ CMos.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], CMos.pdif, pr];pr.drawRect[r, CMos.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], CMos.ndif, pr];pr.drawRect[r, CMos.pwell, pr]; }; CDRects.UseAsCreateRect[CMos.wpdif, CreateWellDiffRect, wpdifClass];CDRects.UseAsCreateRect[CMos.wndif, CreateWellDiffRect, wndifClass];END.    &  CMosWellDifImpl.mesa  (part of ChipNDale)Copyright c 1983, 1985 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:03:11 pm PDT--we do not lru cache; CDRects caching is good enoughÊz  ˜ codešœ)™)Kšœ
Ïmœ7™BKšœ:™:K™AK˜ —šÏk	˜	Kšžœ˜K˜	K˜K˜K˜K˜K˜K˜K˜ —šÏnœžœžœ˜Kšžœžœžœ˜BKšžœ˜—Kšž˜K˜ Kšœžœ˜,K˜ šœžœžœ%˜DKšœ˜Kšœ!˜!Kšœ)˜)Kšœ1˜1Kšœ˜Kšœžœ˜Kšœ˜Kšœ˜Kšœ˜—šœžœžœ%˜DKšœ˜Kšœ!˜!Kšœ)˜)Kšœ1˜1Kšœ˜Kšœžœ˜Kšœ˜Kšœ˜Kšœ˜—Kšœžœžœ˜3šœžœžœžœ˜'K˜ —K˜ šŸ
œžœžœžœ˜+Kšœžœ
žœžœ"˜8Kšœ˜Kšžœ˜Kšœ˜—K˜ šÐbnœžœ˜&Kšœ/˜/Kšœ)˜)Kšœ)˜)Kšžœ˜Kšœ˜K˜ —š
Ÿœžœžœ	žœžœ
˜>Kšžœ+˜1Kšœ˜K˜ —šŸœžœžœ)žœ˜`KšœXžœ˜nKšœ˜K˜ —šŸœžœžœžœžœžœ˜UKšœ5™5K˜'Kšœžœžœ;˜FKšžœžœ˜*Kšžœžœžœ˜/šžœÏc#˜*Kšžœžœ(˜;Kšžœžœžœ(˜@Kšžœž˜
K˜—Kšœc˜cKšœ˜Kšœ˜K˜ —šŸœžœžœ)žœ˜YKšœžœ5˜:Kšœ>˜>K˜ Kšœ˜K˜ —šŸœžœžœ)žœ˜YKšœžœ5˜:Kšœ>˜>K˜ Kšœ˜K˜ —KšœD˜DKšœD˜DKšžœ˜K˜— …—    N  î  