DIRECTORYAtom,CD,CDStretchyExtras,CMos,CDAtomicObjects,Rope;CMosBuriedContactsImpl: CEDAR PROGRAM IMPORTS CDAtomicObjects, CDStretchyExtras, CMos  =   BEGIN lambda: CD.Number = CMos.lambda;MatchContact: PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL] =BEGINRETURN [ layer=CMos.ndif OR layer=CMos.pol ]END;FillBuried: PROC [ob: CD.Object] =BEGINCDAtomicObjects.Incorporate[ob: ob, r: [x1: 0, x2: ob.size.x,y1: 0, y2: ob.size.y], lev: CMos.bur];ob.layer _ CMos.ndif;END;FillConS: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] =  BEGINob.size.x _ MAX[4*lambda, ob.size.x];ob.size.y _ MAX[5*lambda, ob.size.y];FillBuried[ob];CDAtomicObjects.Incorporate[ob: ob, r: [x1: 0, x2: ob.size.x,y1: 2*lambda, y2: ob.size.y-lambda], lev: CMos.pol];CDAtomicObjects.Incorporate[ob: ob, r: [x1: lambda, x2: ob.size.x-lambda,y1: 0,y2: ob.size.y], lev: CMos.ndif];END;FillConPS: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] =BEGINob.size.x _ MAX[5*lambda, ob.size.x];ob.size.y _ MAX[4*lambda, ob.size.y];FillBuried[ob];CDAtomicObjects.Incorporate[ob: ob, r: [x1: 0, x2: ob.size.x-2*lambda,y1: 0, y2: ob.size.y], lev: CMos.pol];CDAtomicObjects.Incorporate[ob: ob, r: [x1: lambda, x2: ob.size.x,y1: lambda,y2: ob.size.y-lambda], lev: CMos.ndif];END;FillConDL: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] =BEGINob.size.x _ MAX[4*lambda, ob.size.x];ob.size.y _ MAX[5*lambda, ob.size.y];FillBuried[ob];CDAtomicObjects.Incorporate[ob: ob, r: [x1: 0, x2: ob.size.x-lambda,y1: 2*lambda, y2: ob.size.y-lambda], lev: CMos.pol];CDAtomicObjects.Incorporate[ob: ob, r: [x1: lambda, x2: ob.size.x,y1: lambda,y2: ob.size.y], lev: CMos.ndif];END;FillConDI: PROC [ob: CD.Object] RETURNS [mustFail: BOOL_FALSE] =BEGINob.size.x _ MAX[5*lambda, ob.size.x];ob.size.y _ MAX[4*lambda, ob.size.y];FillBuried[ob];CDAtomicObjects.Incorporate[ob: ob, r: [x1: 0, x2: ob.size.x-2*lambda,y1: lambda, y2: ob.size.y-lambda], lev: CMos.pol];CDAtomicObjects.Incorporate[ob: ob, r: [x1: lambda, x2: ob.size.x-lambda,y1: 0,y2: ob.size.y], lev: CMos.ndif];END;Register: PROC [key: ATOM, creator: CDAtomicObjects.FillObjectProc, desc: Rope.ROPE] =BEGINclass: REF CD.ObjectClass _ CDAtomicObjects.RegisterAtomicObClass[key, creator, desc, CMos.cmos];IF class=NIL THEN ERROR;CDStretchyExtras.InstallMatch[class, MatchContact];END;Init: PROC [] =BEGINRegister[$CBurContS, FillConS, "buried contact (simple)"];Register[$CBurContPS, FillConPS, "buried contact (poly sur)"];Register[$CBurContDI, FillConDI, "buried contact (dif I)"];Register[$CBurContDL, FillConDL, "buried contact (dif L)"];END; Init[];END.    ц  CMosBuriedContactsImpl.mesa  (part of ChipNDale)Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.Christian Jacobi,  June 24, 1983 5:03 pm last edited Christian Jacobi,  September 19, 1985 3:00:16 pm PDT Э╩╦  Ш ЪЬ0Щ0JЪЬ
╧mЬ7ЩBJЪЬ)Щ)JЪЬ@Щ@JШ ЧЪ╧k	Ш	JЪЬШJЪЮЬШJЪЬШJШJЪЬШJЪЬШJШ ЧЪ╧bЬЮЬЮЬШ&JЪЮЬ.Ш5ЧJЪЮЬШJШ JЪЬЮЬШ JШ Ъ╨bnЯЮЬЮЬЮЬШ/JЪЬЮЬЮЬЮЬЮЬЮЬШ9JЪЮШJЪЮЬЮЬШ,JЪЮЬШJШ ЧЪ╧n
ЬЮЬЮЬ
Ш"JЪЮШЪЬ$Ш$ЪЬШJЪЬШJЪЬШJЪЬШЧJЪЬШJЪЬШЧJЪЬШJЪЮЬШЧJШ ЪбЬЮЬЮЬ	ЮЬЮЬЮЬШAJЪЮШ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ЪЬШ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ЪЬЮЬШ%JЪЬШЪЬ$Ш$ЪЬШJЪЬШJЪЬШJЪЬШЧJЪЬШJЪЬШЧЪЬ$Ш$ЪЬШJЪЬШJЪЬШJЪЬШЧJЪЬШJЪЬШЧJЪЮЬШЧJШ ЪбЬЮЬЮЬ6ЮЬШVJЪЮШJЪЬЮЬЮЬTШaJЪЮЬЮЬЮЬЮЬШJЪЬ3Ш3JЪЮЬШЧJШ ЪбЬЮЬШJЪЮШJЪЬ:Ш:JЪЬ>Ш>JЪЬ;Ш;JЪЬ;Ш;JЪЮЬШJШ ЧJШJЪЮЬШJШ Ч ЕЧ    
╕  i  