DIRECTORYCD,CDDraw USING [CommandTable],CDBasics USING [empty],CDColors,CDVScale USING [ScaleRec],ViewerClasses USING [Viewer],Graphics USING [Context],PrincOps USING [BBptr],Rope USING [ROPE];CDVPrivate: CEDAR DEFINITIONS =BEGINcatchAny: BOOL; --catches low layer errors; set to false for debuggingcatchAnyWhichDeadlock: BOOL; --set to false for debuggingnotSupportedColorMode: ERROR; --catched by viewer paintprocSaveList: TYPE = LIST OF SavedRectArraySeq;saveListSize: INTEGER = 50;SavedRectArraySeq: TYPE = RECORD [next: [0..saveListSize]_0, x: ARRAY [0..saveListSize) OF SavedRect_TRASH];SavedRect: TYPE = RECORD [r: CD.DesignRect, l: CD.Layer];MyGraphicRef: TYPE = REF MyGraphicRec;   -- for NEW use only NewAndLinkMyGraphicRec: TYPE = RECORD [viewer: ViewerClasses.Viewer _ NIL,pBBptr: PrincOps.BBptr, -- used for painting and background exclusivelyxBBptr: PrincOps.BBptr, -- used for all other purposesscreen: LONG POINTER _ NIL,bpp: CARDINAL,   -- bits per pixel (1, 4, 8)logbpp: CARDINAL,personalColors: REF CDColors.ColorDefinition,display: CDColors.DisplayType,colorTable: REF CDColors.ColorTable, --switch between fore- and back- groundgreyTable: REF CDColors.ColorTable, scWidth: CARDINAL, -- Screen width in pixelsscHeight: CARDINAL, -- Screen height in pixels=linesscWidthWords: CARDINAL, -- Screen width in wordsvx: CARDINAL,  --distance from left of screen to left most pixelvy: CARDINAL,  --distance from top of screen to bottom most pixeldClip: CD.DesignRect _ CDBasics.empty, -- no point outside is visible on viewerentered: BOOL _ FALSE,viewContext: Graphics.Context_NIL, ct: CDDraw.CommandTable_NIL,saveList: SaveList _ NIL,deviceDrawRef: CD.DrawRef_NIL,actualDesign: CD.Design_NIL,stoprequest: REF BOOL,hurryUp: BOOL _ FALSE,running: BOOL _ FALSE,environment: BOOL _ TRUE,symbolics: BOOL _ TRUE,b1: BOOL _ TRUE,b2: BOOL _ TRUE,suppressFactorForCells: REAL _ 1.0,contextFilter: REF CD.ContextFilter,scale: CDVScale.ScaleRec,painterList: PainterList _ NIL,usedCursor: OutLineProc,startVC, stopVC: CD.DesignPosition,onVC: BOOL _ FALSE, cursorInhibitations: CARDINAL_0, -- MONITOREDfirstHorizontalVC: BOOL _ TRUE,defaultWidthVC: CD.Number, -- width of cursored wirelink: MyGraphicRef_NIL,designRec: REF PrivatePerDesign,properties: CD.Properties --these properties are not saved on files, but registration is expected];PainterList: TYPE = LIST OF REF PainterRec;PainterRec: TYPE = RECORD [rect: CD.DesignRect _ CDBasics.empty,proc: PainterProc _ NIL,  -- the painterprocdata: REF _ NIL];PainterProc: TYPE = PROC [me: MyGraphicRef, paintRef: REF PainterRec, interrestRect: CD.DesignRect];IncludeAPainterRec: PROC [me: MyGraphicRef, pr: REF PainterRec];RemoveAPainterRec: PROC [me: MyGraphicRef, pr: REF PainterRec];PrivatePerDesign: TYPE = RECORD [startLCValid: BOOL_FALSE,   -- Logical CursorsstartLC: CD.DesignPosition_[0,0],stopLC: CD.DesignPosition_[0,0],firstHLC: BOOL_FALSE,widthLC: CD.DesignNumber_0,currentLayer: CD.Layer,usedCursor: REF_NIL, --key designating outlineProcLCoutlineProcLC: OutLineProc,xMode: BOOL _ FALSE, -- usefull for wiring-, pendingdelete-mode, but only 1 per tip table...mark: CD.DesignPosition_[0,0] -- reserved for usage as logical mark, independent of visibility];linkBase: PRIVATE MyGraphicRef;NewAndLink: PROC [design: CD.Design] RETURNS [MyGraphicRef];UnLink: PROC [me: MyGraphicRef];--xx Drawing xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxCreateDrawInformation: PROC [me: MyGraphicRef];RepaintRectAreaInViewer: PROC[me: MyGraphicRef, rect: CD.DesignRect, eraseFirst: BOOL];RepaintBackground: PROC[me: MyGraphicRef, r: CD.DesignRect, eraseFirst: BOOL];DrawCommentForViewers: PROCEDURE[r: CD.DesignRect, comment: Rope.ROPE, pr: CD.DrawRef];cursoredCDViewer: READONLY ViewerClasses.Viewer;OutLineProc: TYPE = PROC[me: MyGraphicRef]; --type of cursoring procedureCursorModeProc: TYPE = PROC[me: MyGraphicRef, mode: REF];--type of procedure to install a cursor modeSetCursorMode: PRIVATE PROC[me: MyGraphicRef, mode: REF];ImplementACursor: PROC[mode: ATOM, proc: CursorModeProc];InvertArea: PROC[me: MyGraphicRef, x1, y1, x2, y2: INT];--xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxCreateViewer: PROC [design: CD.Design] RETURNS [ViewerClasses.Viewer];LastViewer: PROC[] RETURNS [ViewerClasses.Viewer];END.    ì  CDVPrivate.mesa        (Viewer definitions for ChipNDale)Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi, July 15, 1983 11:16 am last edited by Christian Jacobi, April 22, 1985 11:03:49 am PST-- Non public chipndale interface defining viewer handling.  --xx Data xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx------------------------scale--further drawings--cursor tracking information  (Visible Cursors)--book keeping--xx linkage xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx--callable from within viewer paintproc only--xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx--Cursor--does not need to have the inputfocus; but has the chipndale cursor  --sets outlineProcLC for the next time a cursor is fetched--teaches SetCursorMode to call proc if mode mode is set--x1, y1, x2, y2 in viewers coordinates; handy for cursor implementors--the data field has type MyGraphicRefÊœ  ˜ šœ9™9Jšœ
Ïmœ7™BJšœ,™,Jšœ?™?J˜ —šÏk	˜	Jšžœ˜Jšœžœ˜Jšœ	žœ	˜Jšœ	˜	Jšœ	žœ˜Jšœžœ
˜Jšœ	žœ˜Jšœ	žœ	˜Jšœžœžœ˜J˜ —JšÏn
œžœžœ˜Jšž˜J˜ Jšœ>™>Jšœ
žœÏc6˜FJšœžœ ˜9Jšœžœ ˜;J™ JšœL™LJ˜ Jšœ
žœžœžœ˜+Jšœžœ˜šœžœ˜Jšžœ žœžœžœ˜R—š	œžœžœžœžœ˜9J˜ —Jšœžœžœ ˜GJ˜ šœžœžœ˜Jšœžœ˜#J™ Jšœ™Jšœ /˜GJšœ ˜6Jšœžœžœžœ˜Jšœžœ ˜,Jšœžœ˜Jšœžœ˜-J˜Jšœžœ '˜LJšœžœ˜$Jšœ	žœ ˜,Jšœ
žœ  ˜4Jšœžœ ˜0Jšœž
œ 1˜@Jšœžœ 2˜AJšœžœ (˜OJ™ Jšœ™Jšœ	žœžœ˜Jšœžœ˜#Jšœžœ˜Jšœžœ˜Jšœžœ	žœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœ	žœžœ˜Jšœ	žœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœ˜#Jšœžœžœ˜$J™ Jšœ™Jšœ˜J™ Jšœ™Jšœžœ˜J™ Jšœ0™0J˜Jšœžœ˜#Jšœžœžœ˜Jšœžœ ˜-Jšœžœžœ˜Jšœžœ	 ˜4J™ Jšœ™Jšœžœ˜Jšœžœ˜ J™ Jšœžœ G˜aJ˜J˜ —Jš	œžœžœžœžœ˜+šœžœžœ˜Jšœžœ˜%Jšœžœ ˜,Jšœžœž˜J˜—J˜ Jš	œžœžœžœžœ˜dJ˜ JšŸœžœžœ˜@JšŸœžœžœ˜?J˜ šœžœžœ˜!Jšœžœžœ ˜.Jšœ	žœ˜!Jšœžœ˜ Jšœ
žœžœ˜Jšœ	žœ˜Jšœžœ˜Jšœžœžœ ˜4J˜J˜ Jšœžœžœ G˜\Jšœžœ @˜^J˜J˜ J˜ —JšœO™OJ˜ Jšœ
žœ˜J˜ JšŸ
œžœ
žœ	žœ˜<JšŸœžœ˜ J˜ JšœO˜OJ˜ šŸœžœ˜/Jšœ,™,—J˜ JšŸœžœžœžœ˜WJšŸœžœžœžœ˜NJ˜ JšŸœž	œ!žœ˜WJ˜ JšœD™DJšœ™J˜ šœžœ˜0JšœF™F—J˜ šœžœžœ˜,Jš ˜—J˜ šœžœžœžœ˜9Jš ,˜,J˜ —šŸœžœžœ˜9Jšœ:™:J™ —šŸœžœžœ˜9Jšœ8™8—J˜ šŸ
œžœ#žœ˜8JšœF™FJ˜ —JšœD˜DJ˜ šŸœžœ
žœ	žœ˜FJšœ&™&—J˜ JšŸ
œžœžœ˜2J˜ Jšžœ˜J˜ J˜ J˜ — …—    Z  â  