DIRECTORY
NMosContacts,
CD,
CDCallSpecific, 
CDIO,
CDInline,
CDLRUCache,
CDOrient,
CDStretchyExtras,
NMos,
Rope,
TokenIO;

NMosContactsImpl: CEDAR PROGRAM 
IMPORTS CDCallSpecific, CDInline, CDIO, CDLRUCache, CDOrient, CDStretchyExtras, NMos, TokenIO
EXPORTS NMosContacts =   
BEGIN OPEN NMos;

lambda: CD.DesignNumber = CD.lambda;
ContactType: TYPE = NMosContacts.ContactType;
ContactPtr: TYPE = NMosContacts.ContactPtr;
ContactRec: TYPE = NMosContacts.ContactRec;

wXExtension: CD.DesignNumber = 2*lambda;
lXExtension: CD.DesignNumber = 2*lambda;


difCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
polyCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
dsCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
butCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
burCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];
mmCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont];

ToPosition: PROC [x: REF] RETURNS [p: CD.DesignPosition] =
BEGIN
IF x=NIL THEN p _ [0, lambda]
ELSE WITH x SELECT FROM
rp: REF CD.DesignPosition => p _ rp^;
rn: REF CD.DesignNumber => p _ [0, rn^];
ENDCASE => p _ [0, 0];
END;

Aequivalent: PROC[mySpecific, other: REF ANY] RETURNS [BOOL] = {
WITH other SELECT FROM
p2: ContactPtr => RETURN [NARROW[mySpecific, ContactPtr]^=p2^];
ENDCASE => RETURN [FALSE]
};

NewCont: PROC [] RETURNS [CD.ObPtr] = {
ob: CD.ObPtr _ NEW[CD.ObjectDefinition];
ob.specificRef _ NEW[ContactRec];
RETURN [ob]
};

MatchContact: PROC [me: CD.ObPtr, r: CD.DesignRect, level: CD.Level, prim: BOOL, horz: BOOL] RETURNS [BOOL] =
BEGIN
IF level=me.level THEN RETURN [TRUE]
ELSE {
cp: ContactPtr = NARROW[me.specificRef];
RETURN [
SELECT cp.typ FROM
burr => (level=NMos.pol),
mDif => (level=NMos.met),
difShort => FALSE,
butt => (level=NMos.met OR level=NMos.pol),
mPol => (level=NMos.met),
mm2 => (level=NMos.met2),
ENDCASE => FALSE
]
}
END;

Describe: PROC[me: CD.ObPtr] RETURNS [Rope.ROPE] =
BEGIN
RETURN [
SELECT NARROW[me.specificRef, ContactPtr].typ FROM
burr => "buried contact", 
mDif => "dif contact",
difShort => "dif-short contact",
butt => "button contact",
mPol => "poly contact",
mm2 => "via",
ENDCASE => "unknown contact"
]
END;



pForDifPolCon: REF CD.ObjectProcs ~ RegisterObjectType[$NMosContactDifAndPol];
difpolRimWidth: CD.DesignNumber = lambda;

CreateDifCon: PUBLIC PROC [l: CD.DesignNumber] RETURNS [CD.ObPtr] =
BEGIN
cob: CD.ObPtr ~ difCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specificRef];
l _ MAX[l, butConSX];
cp.typ _ mDif;
cob.p _ pForDifPolCon; -- does not use specicRef !
cob.level _ dif;
cob.size _ [butConSX, l]; 
RETURN [difCache.ReplaceByAequivalent[cob]]
END;  

CreatePolyCon: PUBLIC PROC [l: CD.DesignNumber] RETURNS [CD.ObPtr] =
BEGIN
cob: CD.ObPtr ~ polyCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specificRef];
l _ MAX[l, butConSX];
cp.typ _ mPol;
cob.p _ pForDifPolCon; -- does not use specicRef !
cob.size _ [butConSX, l]; 
cob.level _ pol;
RETURN [polyCache.ReplaceByAequivalent[cob]]
END; 

LengthenDifPol: CDCallSpecific.CallProc =
BEGIN
amount: CD.DesignPosition = ToPosition[x];
IF amount.y=0 OR amount.x#0 THEN done _ FALSE
ELSE {
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application _ aptr^];
sz: CD.DesignPosition _ CDInline.AddPoints[aptr.ob.size, amount];
IF sz.x<=0 OR sz.y<=0 THEN {done _ FALSE; RETURN};
IF aptr.ob.level=pol THEN ap.ob _ CreatePolyCon[sz.y] ELSE ap.ob _ CreateDifCon[sz.y];
include _ LIST[ap];
removeMe _ TRUE;
repaintMe _ amount.y<0;
repaintInclude _ amount.y>0;
}
END;

DefaultenDifPol: CDCallSpecific.CallProc =
BEGIN
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
IF aptr.ob.level=pol THEN ap.ob _ CreatePolyCon[4*lambda] ELSE ap.ob _ CreateDifCon[4*lambda];
include _ LIST[ap];
removeMe _ TRUE;
repaintMe _ TRUE;
repaintInclude _ TRUE;
END;   

ReadDifPolCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =
BEGIN
lev: CD.Level = CDIO.ReadLevel[];
IF lev=pol THEN RETURN [ CreatePolyCon[TokenIO.ReadInt[]] ]
ELSE RETURN [ CreateDifCon[TokenIO.ReadInt[]] ]
END;

WriteDifPolCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- =
BEGIN
CDIO.WriteLevel[me.level];
TokenIO.WriteInt[me.size.y];
END;

SetLengthDifPol: CDCallSpecific.CallProc =
BEGIN
newLength: CD.DesignNumber _ NARROW[x, REF CD.DesignNumber]^;
oldLength: CD.DesignNumber _ aptr.ob.size.y;
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
IF aptr.ob.level=dif THEN 
ap.ob _ CreateDifCon[newLength] ELSE ap.ob _ CreatePolyCon[newLength];
include_LIST[ap];
removeMe_TRUE;
IF newLength>oldLength THEN repaintInclude_TRUE ELSE repaintMe_TRUE;
END;

DrawDifAndPolContact: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN
IF CDInline.Intersect[CDOrient.RectAt[pos, aptr.ob.size, orient], pr.worldClip] THEN 
BEGIN
r: CD.DesignRect = CDOrient.RectAt[pos, aptr.ob.size, orient];      
pr.drawRect[r, met, pr];
pr.drawRect[r, aptr.ob.level, pr];
pr.saveRect[CDInline.Extend[r, -difpolRimWidth], cut, pr];
END
END; 


pForDifShorts: REF CD.ObjectProcs ~ RegisterObjectType[$NMosContactDifShort];
difShortRimWidth: CD.DesignNumber = lambda;

CreateDifShortCon: PUBLIC PROC [] RETURNS [CD.ObPtr] =
BEGIN
cob: CD.ObPtr ~ dsCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specificRef];
cp.typ _ difShort;
cob.p _ pForDifShorts; 
cob.level _ dif;
cob.size _ [butConSX, 8*lambda];
RETURN [dsCache.ReplaceByAequivalent[cob]]
END;  

ReadDifShortCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =
BEGIN
RETURN [ CreateDifShortCon[] ]
END;

WriteDifShortCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- =
BEGIN
END;

DrawDifShortContact: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN

Draw: PROC[r: CD.DesignRect, l: CD.Level] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: aptr.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

Save: PROC[r: CD.DesignRect, l: CD.Level] = INLINE
BEGIN
pr.saveRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: aptr.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

IF CDInline.Intersect[CDOrient.RectAt[pos, aptr.ob.size, orient], pr.worldClip] THEN 
BEGIN
r: CD.DesignRect = CDOrient.RectAt[[0, 0], aptr.ob.size];
mr: CD.DesignRect = CDInline.Extend[r, -difShortRimWidth];
h: CD.DesignNumber = (r.y2-r.y1)/2;
Draw[r, met];
Draw[[x1: r.x1, y1: r.y1, x2: r.x2, y2: r.y1+h], aptr.ob.level];
Draw[[x1: r.x1, y1: r.y1+h, x2: r.x2, y2: r.y2], nwelCont];
Save[[x1: mr.x1, x2: mr.x2, y1: mr.y1, y2: mr.y1+2*lambda], cut];
Save[[x1: mr.x1, x2: mr.x2, y1: mr.y2-2*lambda, y2: mr.y2], cut];
END
END; 


-- But -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

pForButContact: REF CD.ObjectProcs ~ RegisterObjectType[$NMosContactBut];

butConSX: CD.DesignNumber = 4*lambda;
butConSY: CD.DesignNumber = 6*lambda;
butContactPolyYS: CD.DesignNumber = 3*lambda;
butContactDiffY: CD.DesignNumber = butContactPolyYS-lambda;
butContactRimWidth: CD.DesignNumber = lambda;

CreateButCon: PUBLIC PROC [] RETURNS [CD.ObPtr] =
BEGIN
cob: CD.ObPtr ~ butCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specificRef];
cp.typ _ butt;
cob.p _ pForButContact; 
cob.level _ dif;
cob.size _ [butConSX, butConSY]; 
RETURN [butCache.ReplaceByAequivalent[cob]]
END; 

ReadButCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =
BEGIN
RETURN [ CreateButCon[] ]
END;

WriteButCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- =
BEGIN
END;

DrawButContact: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN

Draw: PROC[r: CD.DesignRect, l: CD.Level] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: aptr.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

Save: PROC[r: CD.DesignRect, l: CD.Level] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: aptr.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;


Draw[[0, 0, butConSX, butConSY], met];
Draw[[0, 0, butConSX, butContactPolyYS], pol];
Draw[[0, butContactDiffY, butConSX, butConSY], aptr.ob.level];
Save[[butContactRimWidth, butContactRimWidth, 
butConSX-butContactRimWidth, butConSY-butContactRimWidth], cut];	
END; 



pForBurCon: REF CD.ObjectProcs ~ RegisterObjectType[$NMosBurContact];
CreateBurCon: PUBLIC PROC [w, l: CD.DesignNumber,
wex: CD.DesignNumber_wXExtension,
lex: CD.DesignNumber_lXExtension] RETURNS [CD.ObPtr] =
BEGIN 
cob: CD.ObPtr ~ burCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specificRef];
burAct: CD.DesignNumber = 2*lambda;
actWidth, xMargins: CD.DesignNumber;
wex _ MAX[0, wex]; 
lex _ MAX[0, lex];
xMargins _ burAct + 
(IF wex< burAct THEN MAX[wex+lambda, burAct] ELSE wex);
actWidth _ MAX[2*lambda, w-xMargins];
w _ actWidth+xMargins;
l _ MAX[l, 
(IF lex<burAct THEN MAX[lex+lambda, burAct] ELSE lex)*2+lambda*MAX[6*lambda/actWidth, 2]
];
cp.typ _ burr;
cp.wExt _ wex;
cp.lExt _ lex;
cob.p _ pForBurCon; 
cob.size _ [w, l]; 
cob.level _ dif;
RETURN [burCache.ReplaceByAequivalent[cob]]
END;

ReadBurCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =
BEGIN
w: INT = TokenIO.ReadInt[];
l: INT = TokenIO.ReadInt[];
wex: INT = TokenIO.ReadInt[];
lex: INT = TokenIO.ReadInt[];
RETURN [ CreateBurCon[w, l, wex, lex] ]
END;

WriteBurCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- =
BEGIN
cp: ContactPtr = NARROW[me.specificRef];
TokenIO.WriteInt[me.size.x];
TokenIO.WriteInt[me.size.y];
TokenIO.WriteInt[cp.wExt];
TokenIO.WriteInt[cp.lExt];
END;

DrawMeForBurrNMosContacts: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN

Draw: PROC[r: CD.DesignRect, l: CD.Level] = INLINE
BEGIN
pr.drawRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: aptr.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

Save: PROC[r: CD.DesignRect, l: CD.Level] = INLINE
BEGIN
pr.saveRect[
CDOrient.MapRect[
itemInCell: r,
cellSize: aptr.ob.size, 
cellInstOrient: orient,
cellInstPos: pos],
l, 
pr];
END;

p: ContactPtr = NARROW[aptr.ob.specificRef];
dBur: CD.DesignNumber = lambda/2;
burAct: CD.DesignNumber = lambda*2;
diffBur: CD.DesignPosition = [
x: IF p.wExt<burAct THEN MAX[p.wExt+lambda, burAct] ELSE p.wExt-lambda,
y: IF p.lExt<burAct THEN MAX[p.lExt+lambda, burAct] ELSE p.lExt-lambda
];
Save[[dBur, dBur, aptr.ob.size.x-dBur, aptr.ob.size.y-dBur], bur];
Draw[[burAct, p.lExt, aptr.ob.size.x-p.wExt, aptr.ob.size.y-p.lExt], pol];
Draw[[lambda, diffBur.y, aptr.ob.size.x-diffBur.x, aptr.ob.size.y-diffBur.y], aptr.ob.level];
END; 

LengthenBur: CDCallSpecific.CallProc =
BEGIN
amount: CD.DesignPosition = ToPosition[x];
IF amount.y=0 AND amount.x=0 THEN done _ FALSE
ELSE {
cp: ContactPtr = NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr = NEW[CD.Application _ aptr^];
ap.ob _ CreateBurCon[
w: aptr.ob.size.x+amount.x, 
l: aptr.ob.size.y+amount.y, 
wex: cp.wExt, 
lex: cp.lExt
];
include _ LIST[ap];
removeMe _ TRUE;
repaintMe _ amount.x<0 OR amount.y<0;
repaintInclude _ amount.x>0 OR amount.y>0;
};
END;

ChangeExtensionBur: CDCallSpecific.CallProc =
BEGIN
amount: CD.DesignPosition = ToPosition[x];
IF amount.y=0 AND amount.x=0 THEN done _ FALSE
ELSE {
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
ap.ob _ CreateBurCon[
w: aptr.ob.size.x+amount.x, 
l: aptr.ob.size.y+amount.y, 
wex: cp.wExt+amount.x, 
lex: cp.lExt+amount.y 
];
include _ LIST[ap];
removeMe _ TRUE;
repaintMe _ amount.x<0 OR amount.y<0;
repaintInclude _ amount.x>0 OR amount.y>0;
}
END;

SetLengthBur: CDCallSpecific.CallProc =
BEGIN
newLength: CD.DesignNumber _ NARROW[x, REF CD.DesignNumber]^;
oldLength: CD.DesignNumber _ aptr.ob.size.y;
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
ap.ob _ CreateBurCon[w: aptr.ob.size.x, l: newLength, wex: cp.wExt, lex: cp.lExt];
include _ LIST[ap];
removeMe _ TRUE;
IF newLength>oldLength THEN repaintInclude _ TRUE ELSE repaintMe _ TRUE;
END;

DefaultenBur: CDCallSpecific.CallProc =
BEGIN
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
ap.ob _ CreateBurCon[w: aptr.ob.size.x, l: 4*lambda, wex: cp.wExt, lex: cp.lExt];
include_LIST[ap];
removeMe_TRUE;
repaintMe_TRUE;
repaintInclude_TRUE;
END;   


pForVia: REF CD.ObjectProcs ~ RegisterObjectType[$NMosMmContact];
mmRimWidth: CD.DesignNumber = lambda;
cut2min: CD.DesignNumber = 3*lambda;

CreateMmCon: PUBLIC PROC [l: CD.DesignNumber,
wex: CD.DesignNumber_wXExtension,
lex: CD.DesignNumber_lXExtension] RETURNS [CD.ObPtr] =
BEGIN 
cob: CD.ObPtr ~ mmCache.UnusedOrNew[];
cp: ContactPtr ~ NARROW[cob.specificRef];
mins: CD.DesignNumber = cut2min+2*mmRimWidth;
oldMins: CD.DesignNumber = cut2min+2*--mmRimWidth--2*lambda;
l _ MAX[l, mins];
cp.typ _ mm2;
cob.p _ pForVia; 
IF l<oldMins THEN --new technology; we use new technology only for small sizes-- 
cob.size _ [mins, l]
ELSE --old technology-- 
cob.size _ [oldMins, l]; 
RETURN [mmCache.ReplaceByAequivalent[cob]]
END;

ReadVia: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- =
BEGIN
RETURN [ CreateMmCon[TokenIO.ReadInt[]] ]
END;

WriteVia: CD.InternalWriteProc -- PROC [me: ObPtr] -- =
BEGIN
TokenIO.WriteInt[me.size.y];
END;

ShortenMm: CDCallSpecific.CallProc =
BEGIN
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
ap.ob _ CreateMmCon[l: aptr.ob.size.y-lambda, wex: cp.wExt, lex: cp.lExt];
include_LIST[ap];
removeMe_TRUE;
repaintMe_TRUE;
END;

LengthenVia: CDCallSpecific.CallProc =
BEGIN
amount: CD.DesignPosition = ToPosition[x];
IF amount.y=0 OR amount.x#0 THEN done _ FALSE
ELSE {
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
sz: CD.DesignPosition _ CDInline.AddPoints[aptr.ob.size, amount];
IF sz.x<=0 OR sz.y<=0 THEN {done_FALSE; RETURN};
ap.ob _ CreateMmCon[l: sz.y, wex: cp.wExt, lex: cp.lExt];
include _ LIST[ap];
removeMe _ TRUE;
repaintMe _ amount.y<0;
repaintInclude _ amount.y>0;
}
END;

SetLengthVia: CDCallSpecific.CallProc =
BEGIN
newLength: CD.DesignNumber _ NARROW[x, REF CD.DesignNumber]^;
oldLength: CD.DesignNumber _ aptr.ob.size.y;
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
ap.ob _ CreateMmCon[l: newLength, wex: cp.wExt, lex: cp.lExt];
include _ LIST[ap];
removeMe _ TRUE;
IF newLength>oldLength THEN repaintInclude _ TRUE ELSE repaintMe _ TRUE;
END;

DefaultenVia: CDCallSpecific.CallProc =
BEGIN
cp: ContactPtr _ NARROW[aptr.ob.specificRef];
ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^];
ap.ob _ CreateMmCon[l: 4*lambda, wex: cp.wExt, lex: cp.lExt];
include _ LIST[ap];
removeMe _ TRUE;
repaintMe _ TRUE;
repaintInclude _ TRUE;
END;   

DrawVia: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation,
pr: CD.DrawRef] =
BEGIN
mins: CD.DesignNumber = cut2min+2*mmRimWidth;
r: CD.DesignRect = CDOrient.RectAt[pos, aptr.ob.size, orient];
pr.drawRect[r, met, pr];
pr.drawRect[r, met2, pr];
IF aptr.ob.size.x>mins THEN --old technology-- 
pr.saveRect[CDInline.Extend[r, -2*lambda --oldmmRimWidth-- ], cut2, pr]
ELSE --new technology-- 
pr.saveRect[CDInline.Extend[r, -mmRimWidth], cut2, pr];
END;


Init: PROC [] =
BEGIN
pForDifPolCon.drawMe _ pForDifPolCon.quickDrawMe _ DrawDifAndPolContact;
pForDifPolCon.internalRead _ ReadDifPolCon;
pForDifPolCon.internalWrite _ WriteDifPolCon;
pForDifPolCon.describe _ Describe;
CDStretchyExtras.InstallMatch[pForDifPolCon, MatchContact];
pForButContact.drawMe _ pForButContact.quickDrawMe _ DrawButContact;
pForButContact.internalRead _ ReadButCon;
pForButContact.internalWrite _ WriteButCon;
pForButContact.describe _ Describe;
CDStretchyExtras.InstallMatch[pForButContact, MatchContact];
pForBurCon.drawMe _ pForBurCon.quickDrawMe _ DrawMeForBurrNMosContacts;
CDCallSpecific.Register[$Lengthen, pForBurCon, LengthenBur];
CDCallSpecific.Register[$Default, pForBurCon, DefaultenBur];
CDCallSpecific.Register[$SetLength, pForBurCon, SetLengthBur];
CDCallSpecific.Register[$ChangeExt, pForBurCon, ChangeExtensionBur];
pForBurCon.internalRead _ ReadBurCon;
pForBurCon.internalWrite _ WriteBurCon;
pForBurCon.describe _ Describe;
CDStretchyExtras.InstallMatch[pForBurCon, MatchContact];
pForVia.drawMe _ pForVia.quickDrawMe _ DrawVia;
pForVia.internalRead _ ReadVia;
pForVia.internalWrite _ WriteVia;
pForVia.describe _ Describe;
CDStretchyExtras.InstallMatch[pForVia, MatchContact];
pForDifShorts.drawMe _ pForDifShorts.quickDrawMe _ DrawDifShortContact;
pForDifShorts.internalRead _ ReadDifShortCon;
pForDifShorts.internalWrite _ WriteDifShortCon;
pForDifShorts.describe _ Describe;
CDStretchyExtras.InstallMatch[pForDifShorts, MatchContact];
END; 

Init[];
END. 

~NMosContactsImpl.mesa  (part of Chipndale)
Copyright c 1983, 1984 by Xerox Corporation.  All rights reserved.
by Christian Jacobi   June 24, 1983 5:03 pm 
last edited Christian Jacobi   October 22, 1984 11:06:19 am PDT
--y field defaults to lambda, x field defaults to 0
--[0, 0] if not done
-- Dif and Pol -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
--connect diffusion with metal
--connect poly with metal
--does not read specificRef !!!!!!
-- DifShort -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
uses outer stuff!!
uses outer stuff!!
--connects metal with poly and diffusion
--uses outer stuff!!
--uses outer stuff!!
--DrawButContact
-- Bur -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

-- connects diffusion with poly without accessing metal
uses outer stuff!!
uses outer stuff!!
--DrawMeForBurrNMosContacts
-- Mm -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- ignores wex and lex in chipmonk, why???
-- connects two layers of metal
--cp.wExt _ ;
--cp.wExt _ ;
--cob.level _ ;
--does not read specificRef !!!!!!
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
CDCallSpecific.Register[$Lengthen, pForDifPolCon, LengthenDifPol];
CDCallSpecific.Register[$Default, pForDifPolCon, DefaultenDifPol];
CDCallSpecific.Register[$SetLength, pForDifPolCon, SetLengthDifPol];
CDCallSpecific.Register[$Lengthen, pForVia, LengthenVia];
CDCallSpecific.Register[$Default, pForVia, DefaultenVia];
CDCallSpecific.Register[$SetLength, pForVia, SetLengthVia];
�Êo˜š
œ*™*Jšœ
Ïm
œ7™BJš
œ,™,Jš
œ?™?—J˜š
Ïk	˜	J˜
Jšžœ
˜J˜J˜J˜	Jš
œ˜J˜	Jš
œ˜Jš
œ˜J˜J˜J˜—šÏnœžœ
žœ
˜ JšžœV˜]Jšžœ˜—Jšžœ
žœ˜J˜Jšœžœžœ˜$Jšœ
žœ˜-Jšœžœ˜+Jšœžœ˜+J˜Jšœ
žœ˜(Jšœ
žœ˜(J˜J˜Jš
œl˜lJš
œm˜mJš
œk˜kJš
œl˜lJš
œl˜lJš
œk˜kJ˜š
Ÿ
œžœžœžœžœ˜:Jš
œ3™3Jš
œ™Jš
ž˜Jšžœžœ
žœ˜šžœ
žœžœ
ž˜Jšœžœ
žœ˜%Jšœžœ
žœ˜(Jšžœ˜—Jšžœ
˜—J˜šŸœžœžœ
žœžœžœ˜@šžœžœ
ž˜Jšœžœžœ˜?Jšžœžœžœ
˜—J˜—J˜šŸœžœžœžœ˜'Jšœžœ	žœ
žœ˜(Jšœžœ
˜!Jšžœ˜J˜—J˜šÐbnÏbžœ9žœžœžœžœ˜mJš
ž˜Jšžœžœ
žœžœ
˜$šžœ˜Jšœžœ˜(šžœ˜šžœž˜Jš
œ˜Jš
œ˜Jšœžœ
˜Jšœžœ˜+Jš
œ˜Jš
œ˜Jšžœž˜—J˜
—J˜
—Jšžœ
˜—J˜š
Ÿœžœžœžœžœ˜2Jš
ž˜šžœ˜šžœ
žœ!ž˜2Jš
œ˜Jš
œ˜Jš
œ ˜ Jš
œ˜Jš
œ˜Jš
œ
˜
Jšžœ˜—J˜
—Jšžœ
˜—J˜J˜Jš
œc™cJ˜Jšœžœ
žœ9˜NJšœžœ˜)J˜šŸœžœ
žœžœžœžœ	˜CJš
œ™Jš
ž˜Jšœžœ ˜'Jšœžœ˜)Jšœžœ˜J˜JšœÏc˜2J˜J˜Jšžœ%˜+Jšžœ˜J˜—šŸ
œžœ
žœžœžœžœ	˜DJš
œ™Jš
ž˜Jšœžœ!˜(Jšœžœ˜)Jšœžœ˜J˜Jšœ¢˜2J˜J˜Jšžœ&˜,Jšžœ˜J˜—š¡œ˜)Jš
ž˜Jšœžœ ˜*Jšžœžœžœž˜-šžœ˜Jšœžœ˜-Jšœžœžœ
žœ˜4Jšœžœ;˜AJš
žœ	žœ	žœžœžœ˜2Jšžœžœžœ˜VJšœ
žœ˜Jšœžœ
˜Jš
œ˜Jš
œ˜J˜
—Jšžœ
˜J˜—š¡œ˜*Jš
ž˜Jšœžœ˜-Jšœžœžœ
žœ˜2Jšžœžœ žœ ˜^Jšœ	žœ˜Jšœ
žœ
˜Jšœžœ
˜Jšœžœ
˜Jšžœ˜J˜—šŸ
œžœ¢œ˜@Jš
ž˜Jšœžœ	žœ
˜!Jšžœ	žœ
žœ%˜;Jšžœ
žœ$˜/Jšžœ
˜—J˜šŸœžœ¢œ˜=Jš
ž˜Jšžœ˜Jš
œ˜Jšžœ
˜—J˜š¡œ˜*Jš
ž˜Jš	œžœžœžœ
žœ˜=Jšœžœ˜,Jšœžœžœ
žœ˜2šžœžœ
˜Jšœ žœ"˜F—Jšœžœ˜Jšœ	žœ
˜Jš
žœžœžœ
žœžœ
˜DJšžœ
˜J˜—šŸœžœ žœžœ
˜dJšœžœ˜Jš
œ"™"Jš
ž˜šžœNžœ
˜UJš
ž˜Jšœžœ?˜DJ˜Jš
œ"˜"J˜:Jš
ž˜—Jšžœ˜J˜—Jš
œZ™ZJ˜Jšœžœ
žœ8˜MJšœžœ˜+J˜š
Ÿœžœ
žœžœžœ	˜6Jš
ž˜Jšœžœ˜&Jšœžœ˜)J˜Jš
œ˜J˜J˜ Jšžœ$˜*Jšžœ˜J˜—šŸœžœ¢œ˜BJš
ž˜Jšžœ˜Jšžœ
˜—J˜šŸœžœ¢œ˜?Jš
ž˜Jšžœ
˜—J˜šŸœžœ žœžœ
˜cJšœžœ˜Jš
ž˜J˜š	Ÿœžœžœžœ
ž˜2Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—š	Ÿœžœžœžœ
ž˜2Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—šžœNžœ
˜UJš
ž˜Jšœžœ4˜9Jšœžœ4˜:Jšœžœ˜#J˜
Jš
œ@˜@J˜;J˜AJ˜AJš
ž˜—Jšžœ˜J˜J˜—Jš¢	œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
¢œ
˜^J˜Jšœžœ
žœ3˜IJ˜Jšœ
žœ˜%Jšœ
žœ˜%Jš
œ-˜-Jš
œ;˜;Jšœžœ˜-J˜š
Ÿœžœ
žœžœžœ	˜1Jš
œ(™(Jš
ž˜Jšœžœ ˜'Jšœžœ˜)J˜J˜J˜J˜!Jšžœ%˜+Jšžœ˜J˜—šŸ
œžœ¢œ˜=Jš
ž˜Jšžœ˜Jšžœ
˜—J˜šŸœžœ¢œ˜:Jš
ž˜Jšžœ
˜—J˜šŸœžœ žœžœ
˜^Jšœžœ˜Jš
ž˜J˜š	Ÿœžœžœžœ
ž˜2Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—š	Ÿœžœžœžœ
ž˜2Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—Jš
œ™J˜Jš
œ&˜&Jš
œ.˜.Jš
œ>˜>š
œ.˜.Jš
œA˜A—Jšžœ˜J˜J˜—Jš
œa™aJ˜šœžœ
žœ3˜EJ™—šŸœžœ
žœžœ˜1Jšœžœ˜!Jšœžœžœžœ	˜6Jš
œ7™7Jšžœ
˜Jšœžœ ˜'Jšœžœ˜)Jšœžœ˜#Jšœžœ˜$Jšœžœ
˜Jšœžœ	˜š
œ˜Jš	œ
žœ
žœ
žœžœ˜7—Jšœžœ˜%Jš
œ˜šœžœ˜Jšœ
žœžœ
žœžœžœ˜XJš
œ˜—J˜J˜J˜Jš
œ˜J˜J˜Jšžœ%˜+Jšžœ
˜J˜—š¡
œžœ¢œ˜=Jš
ž˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšžœ!˜'Jšžœ
˜—J˜šŸœžœ¢œ˜:Jš
ž˜Jšœžœ˜(Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšžœ
˜—J˜šŸœžœ žœžœ
˜iJšœžœ˜Jš
ž˜J˜š	Ÿœžœžœžœ
ž˜2Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—š	Ÿœžœžœžœ
ž˜2Jš
œ™Jš
ž˜˜˜J˜Jš
œ˜J˜J˜—J˜J˜—Jšžœ
˜J˜—Jš
œ™Jšœžœ˜,Jšœžœ˜!Jšœžœ˜#šœ	žœ˜Jš	œžœžœ
žœžœ˜GJš	œžœžœ
žœžœ˜FJ˜—Jš
œB˜BJš
œJ˜JJš
œ]˜]Jšžœ˜J˜—š¡œ˜&Jš
ž˜Jšœžœ ˜*Jšžœžœžœž˜.šžœ˜Jšœžœ˜-Jšœžœžœ
žœ˜4š
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Jšœ	žœ˜Jšœ
žœ
˜Jšœžœ˜%Jšœžœ˜*J˜—Jšžœ
˜J˜—š¡œ˜-Jš
ž˜Jšœžœ ˜*Jšžœžœžœž˜.šžœ˜Jšœžœ˜-Jšœžœžœ
žœ˜2š
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Jšœ	žœ˜Jšœ
žœ
˜Jšœžœ˜%Jšœžœ˜*J˜
—Jšžœ
˜J˜—š¡œ˜'Jš
ž˜Jš	œžœžœžœ
žœ˜=Jšœžœ˜,Jšœžœ˜-Jšœžœžœ
žœ˜2J˜RJšœ	žœ˜Jšœ
žœ
˜Jš
žœžœžœ
žœžœ
˜HJšžœ
˜J˜—š¡œ˜'Jš
ž˜Jšœžœ˜-Jšœžœžœ
žœ˜2J˜QJšœžœ˜Jšœ	žœ
˜Jšœ
žœ
˜Jšœžœ
˜Jšžœ˜J˜—Jš
œ`™`J˜Jšœ	žœ
žœ2˜AJšœžœ˜%Jšœ	žœ˜$J˜šŸœžœ
žœžœ˜-Jšœžœ˜!Jšœžœžœžœ	˜6Jš
œ*™*Jš
œ™Jšžœ
˜Jšœžœ˜&Jšœžœ˜)Jšœžœ%˜-Jšœ	žœ1˜<Jšœžœ
˜J˜
Jš
œ
™
Jš
œ
™
Jš
œ˜šžœžœ
¢>œ
˜QJš
œ˜—šžœ
¢œ
˜Jš
œ˜—Jš
œ™Jšžœ$˜*Jšžœ
˜J˜—šŸœžœ¢œ˜:Jš
ž˜Jšžœ#˜)Jšžœ
˜—J˜šŸœžœ¢œ˜7Jš
ž˜Jš
œ˜Jšžœ
˜—J˜š¡	œ˜$Jš
ž˜Jšœžœ˜-Jšœžœžœ
žœ˜2J˜JJšœžœ˜Jšœ	žœ
˜Jšœ
žœ
˜Jšžœ
˜J˜—š¡œ˜&Jš
ž˜Jšœžœ ˜*Jšžœžœžœž˜-šžœ˜Jšœžœ˜-Jšœžœžœ
žœ˜2Jšœžœ;˜AJš
žœ	žœ	žœžœžœ˜0Jš
œ9˜9Jšœ	žœ˜Jšœ
žœ
˜Jš
œ˜Jšœž
œ˜J˜
—Jšžœ
˜J˜—š¡œ˜'Jš
ž˜Jš	œžœžœžœ
žœ˜=Jšœžœ˜,Jšœžœ˜-Jšœžœžœ
žœ˜2J˜>Jšœ	žœ˜Jšœ
žœ
˜Jš
žœžœžœ
žœžœ
˜HJšžœ
˜J˜—š¡œ˜'Jš
ž˜Jšœžœ˜-Jšœžœžœ
žœ˜2J˜=Jšœ	žœ˜Jšœ
žœ
˜Jšœžœ
˜Jšœžœ
˜Jšžœ˜J˜—šŸœžœ žœžœ
˜WJšœžœ˜Jš
œ"™"Jš
ž˜Jšœžœ%˜-Jšœžœ9˜>J˜J˜šžœžœ
¢œ
˜/Jšœ)¢œ
˜G—šž¢œ
˜Jš
œ7˜7—Jšžœ
˜J˜—Jš
œZ™ZJ˜šŸœžœ˜Jš
ž˜š
œH˜HJš
œB™BJš
œB™BJš
œD™DJš
œ+˜+Jš
œ-˜-Jš
œ"˜"Jš
œ;˜;—š
œD˜DJš
œ)˜)Jš
œ+˜+Jš
œ#˜#Jš
œ<˜<—š
œG˜GJš
œ<˜<Jš
œ<˜<Jš
œ>˜>Jš
œD˜DJš
œ%˜%Jš
œ'˜'Jš
œ˜Jš
œ8˜8—š
œ/˜/Jš
œ9™9Jš
œ9™9Jš
œ;™;Jš
œ˜Jš
œ!˜!Jš
œ˜Jš
œ5˜5—š
œG˜GJš
œ-˜-Jš
œ/˜/Jš
œ"˜"Jš
œ;˜;—Jšžœ˜J˜—J˜Jšžœ˜J˜—…—Bx_e