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

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

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

wellSurround: CD.DesignNumber = 4*lambda;
wXExtension: CD.DesignNumber = 2*lambda;
lXExtension: CD.DesignNumber = 2*lambda;
butConSX: CD.DesignNumber = 4*lambda;
butConSY: CD.DesignNumber = 6*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];

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;

IF CDInline.Intersect[CDOrient.RectAt[pos, aptr.ob.size, orient], pr.worldClip] THEN 
BEGIN
rimWidth: CD.DesignNumber = lambda;
polySize: CD.DesignNumber = aptr.ob.size.y/2;
Draw[[0, 0, aptr.ob.size.x, aptr.ob.size.y], met];
Draw[[0, 0, aptr.ob.size.x, polySize], pol];
Draw[[0, polySize-lambda, aptr.ob.size.x, aptr.ob.size.y], aptr.ob.level];
Save[[rimWidth, rimWidth, aptr.ob.size.x-rimWidth, aptr.ob.size.y-rimWidth], cut];
END
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 = 2*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;
l _ MAX[l, mins];
cp.typ _ mm2;
cob.p _ pForVia; 
cob.size _ [mins, 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;   

DrawMeForMmNMosContacts: 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, met2, pr];
pr.saveRect[CDInline.Extend[r, -mmRimWidth], cut2, pr];
END
END;


Init: PROC [] =
BEGIN
pForDifPolCon.drawMe _ pForDifPolCon.quickDrawMe _ DrawDifAndPolContact;
CDCallSpecific.Register[$Lengthen, pForDifPolCon, LengthenDifPol];
CDCallSpecific.Register[$Default, pForDifPolCon, DefaultenDifPol];
CDCallSpecific.Register[$SetLength, pForDifPolCon, SetLengthDifPol];
pForDifPolCon.internalRead _ ReadDifPolCon;
pForDifPolCon.internalWrite _ WriteDifPolCon;
pForDifPolCon.describe _ Describe;
pForDifPolCon.match _ MatchContact;
pForButContact.drawMe _ pForButContact.quickDrawMe _ DrawButContact;
pForButContact.internalRead _ ReadButCon;
pForButContact.internalWrite _ WriteButCon;
pForButContact.describe _ Describe;
pForButContact.match _ 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;
pForBurCon.match _ MatchContact;
pForVia.drawMe _ pForVia.quickDrawMe _ DrawMeForMmNMosContacts;
CDCallSpecific.Register[$Lengthen, pForVia, LengthenVia];
CDCallSpecific.Register[$Default, pForVia, DefaultenVia];
CDCallSpecific.Register[$SetLength, pForVia, SetLengthVia];
pForVia.internalRead _ ReadVia;
pForVia.internalWrite _ WriteVia;
pForVia.describe _ Describe;
pForVia.match _ MatchContact;
pForDifShorts.drawMe _ pForDifShorts.quickDrawMe _ DrawDifShortContact;
pForDifShorts.internalRead _ ReadDifShortCon;
pForDifShorts.internalWrite _ WriteDifShortCon;
pForDifShorts.describe _ Describe;
pForDifShorts.match _ MatchContact;
END; 

Init[];
END. 

ºNMosContactsImpl.mesa  (part of Chipndale)
by Christian Jacobi   June 24, 1983 5:03 pm 
last edited Christian Jacobi   December 14, 1983 11:00 am
--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 !!!!!!
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
�ʘJš
œ*™*Jš
œ,™,Jš
œ9™9J˜š
Ïk	˜	J˜
Jš�œ
˜J˜J˜J˜	Jš
œ˜J˜	Jš
œ˜J˜J˜J˜—šÏnœ�œ
�œ
˜ Jš�œD˜KJš�œ˜—Jš�œ
�œ˜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˜š
žœ�œ
�œ�œ�œ	˜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š
œ™š�œN�œ
˜UJš
�˜Jšœ
�œ˜#Jšœ
�œ!˜-Jš
œ2˜2Jš
œ,˜,Jš
œJ˜JJš
œR˜RJš
�˜—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šœ�œ
˜J˜
Jš
œ
™
Jš
œ
™
Jš
œ˜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˜—šžœ�œ �œ�œ
˜gJšœ�œ˜Jš
œ"™"Jš
�˜š�œN�œ
˜UJš
�˜Jšœ�œ9˜>J˜J˜J˜7Jš
�˜—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š
œ ˜ —š
œ?˜?Jš
œ9˜9Jš
œ9˜9Jš
œ;˜;Jš
œ˜Jš
œ!˜!Jš
œ˜Jš
œ˜—š
œG˜GJš
œ-˜-Jš
œ/˜/Jš
œ"˜"Jš
œ#˜#—Jš�œ˜J˜—J˜Jš�œ˜J˜—…—B’]h