DIRECTORYCD USING [combined, Position, Rect, highLightError, Layer, ObjectClass, Object, Technology],Rope USING [ROPE];CDAtomicObjects: CEDAR DEFINITIONS =BEGINIsAtomicOb: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {RETURN [ISTYPE[ob.specificRef, AtomicObsPtr]]};CreateAtomicOb: PROC [classKey: ATOM, size: CD.Position, tech: CD.Technology, lev: CD.Layer_CD.combined] RETURNS [CD.Object];DrawRec: TYPE = RECORD [r: CD.Rect, lev: CD.Layer _ CD.highLightError];DrawList: TYPE = LIST OF DrawRec;AtomicObsPtr: TYPE = REF AtomicObsRec;AtomicObsRec: TYPE = RECORD [  --do not change directlyrList: DrawList_NIL,ir: CD.Rect];FillObjectProc: TYPE = PROC [ob: CD.Object] RETURNS [mustFail: BOOL _ FALSE];RegisterAtomicObClass: PROC [classKey: ATOM, fillProc: FillObjectProc, description: Rope.ROPE_NIL,tech: CD.Technology_NIL] RETURNS [type: REF CD.ObjectClass];Incorporate: PROC [ob: CD.Object, r: CD.Rect, lev: CD.Layer, inside: BOOL _ TRUE];END.      CDAtomicObjects.mesa        (part of ChipNDale)Copyright c 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi,  March 13, 1985 9:49:28 am PST last edited by Christian Jacobi,  May 29, 1985 11:38:08 am PDT--This module helps the implementation of a wide class of atomic ChipNDale--objects, which do not have children and are shared between designs.  Despite--its name this are not the only atomic object classes. --common proc's--NIL if not done--Reuses objects in cache if possible--class creator's proc's--read (and even rewrite) size, layer--calls IncorporateRect--do not read or write AtomicObsRec directly--rList will be initialized to NIL--drawMe, quickDrawMe are considered variables and should not --be changed by class implementor. ÊP  ˜ šœ/™/Jšœ
Ïmœ1™<Jšœ4™4Jšœ>™>—J˜ šÏk	˜	JšžœžœT˜\Jšœžœžœ˜J˜ —JšÏbœžœžœ˜$Jšž˜J˜ J™JJ™NJ™8J˜ J™ šŸ™J™ —š
Ïn
œžœžœ	žœžœ˜2Jšžœ˜Jšžœžœ˜-J˜—J˜ š Ðbnœžœžœžœžœžœžœžœžœ	˜}Jšœ™J™%—J˜ Jšœ	žœžœžœžœ	žœ˜GJšœ
žœžœžœ	˜!J˜ Jšœžœžœ˜&šœžœžœÏc˜7Jšœžœ˜Jšœžœ˜J˜J˜ —J™ šŸ™J™ —š œžœžœžœ	žœžœžœ˜MJšœ%™%Jšœ™Jšœ,™,Jšœ"™"—J˜ š œžœžœ˜-Jšœ˜Jšœžœžœ˜Jšœžœžœžœžœžœ˜<Jšœ>™>Jšœ"™"—J˜ Jš œžœžœžœžœžœžœ˜RJ˜ Jšžœ˜J˜ — …—    Ô  	4  