DIRECTORYCD, CDBasics;CDX: CEDAR DEFINITIONS IMPORTS CDBasics =BEGIN ClientPosition: TYPE = CD.Position;ClientRect: TYPE = CD.Rect;ClientOrigin: PROC [ob: CD.Object] RETURNS [pos: CD.Position] = INLINE {RETURN [ob.class.origin[ob]]};ClientIRect: PROC [ob: CD.Object] RETURNS [ClientRect];ClientORect: PROC [ob: CD.Object] RETURNS [ClientRect];CDToClientPos: PROC [ob: CD.Object, pos: CD.Position_[0, 0]] RETURNS [cPos: ClientPosition] =INLINE {RETURN [CDBasics.SubPoints[pos, ClientOrigin[ob]]]};ClientToCDPos: PROC [ob: CD.Object, cPos: ClientPosition_[0, 0]] RETURNS [pos: CD.Position] =INLINE {RETURN [CDBasics.AddPoints[cPos, ClientOrigin[ob]]]};CDToClientRect: PROC [ob: CD.Object, rect: CD.Rect] RETURNS [cRect: ClientRect] =INLINE BEGINco: CD.Position = ClientOrigin[ob];RETURN [ClientRect[x1: rect.x1-co.x, y1: rect.y1-co.y, x2: rect.x2-co.x, y2: rect.y2-co.y]]END;ClientToCDRect: PROC [ob: CD.Object, cRect: ClientRect] RETURNS [rect: CD.Rect] =INLINE BEGINco: CD.Position = ClientOrigin[ob];RETURN [CD.Rect[x1: cRect.x1+co.x, y1: cRect.y1+co.y, x2: cRect.x2+co.x, y2: cRect.y2+co.y]]END;MapClientPos: PROC [cPos: ClientPosition_[0, 0], inst: CD.Instance] RETURNS [globPos: CD.Position];DeMapClientPos: PROC [globPos: CD.Position, inst: CD.Instance] RETURNS [cPos: ClientPosition];MapClientRect: PROC [cRect: ClientRect, inst: CD.Instance] RETURNS [globRect: CD.Rect];DeMapClientRect: PROC [globRect: CD.Rect, inst: CD.Instance] RETURNS [cRect: ClientRect];PositionFromPairO: PROC [ob: CD.Object, cPos: ClientPosition_[0,0], correspondingGlobPos: CD.Position_[0,0], orientation: CD.Orientation_0] RETURNS [appPos: CD.Position]; PositionFromPairI: PROC [ob: CD.Object, cPos: ClientPosition_[0,0], correspondingGlobPos: CD.Position_[0,0], orientation: CD.Orientation_0] RETURNS [iPos: CD.Position]; END.    ¬  CDX.mesa  (part of ChipNDale)Copyright c 1984, 1985 by Xerox Corporation.  All rights reserved.by Ch. Jacobi, September 10, 1984 9:20:09 am PDTlast edited by Ch. Jacobi, May 29, 1985 11:03:42 am PDT--Public interface between ChipNDale and outside clients.--Returns the position of the client's object origin in objects internal cd coords--Returns the interest rect in client's relative coords--Returns the real outside (cd coords) rect in client's relative coords--Transfer between ChipNDale and client coordinates, both relative to the object--Transfer between client object relative coordinates and ChipNDale global coordinates--Computes a position useable for an application, such that the --client-origin relative point cPos is at the global position correspondingGlobPos--Computes the position of the interest rect, such that the client-origin --relative point cPos is at the global position correspondingGlobPosÊ9  ˜ šœ™Jšœ
Ïmœ7™BJšœ0™0Jšœ7™7—J˜ šÏk	˜	Jšžœ˜J˜ —šÐbkœžœžœ˜Jšžœ˜Jšžœ˜J˜ Jšœ9™9J™ J˜ Jšœžœžœ
˜#Jšœžœžœ˜J˜ š
Ðbnœžœžœ	žœžœ˜HJšœR™RJšžœ˜˜J™ ——J˜ šÏnœžœžœ	žœ˜7Jšœ7™7J˜ —š¡œžœžœ	žœ˜7JšœG™G—J˜ J˜ JšœP™PJ™ š
¡œžœžœžœžœ˜]šžœžœ.˜<J˜ ——š
¡œžœžœ&žœžœ˜]Jšžœžœ/˜=—J˜ š
¡œžœžœžœžœ˜QJšžœž˜Jšœžœ˜#JšžœU˜[Jšžœ˜J˜ —š
¡œžœžœžœžœ˜QJšžœž˜Jšœžœ˜#JšžœžœR˜\Jšžœ˜J˜ J˜ —JšœV™VJ˜ Jš
¡œžœ$žœžœžœ˜cJ˜ Jš
¡œžœ
žœžœžœ˜^J˜ Jš
¡œžœžœžœžœ˜WJ˜ š
¡œžœžœžœžœ˜YJ˜ —š¡œžœžœ	˜(Jšœ˜Jšœžœ˜)Jšœžœ˜Jšœžœ
žœ˜!Jšœ@™@JšœR™R—J˜ š¡œžœžœ	˜(Jšœ˜Jšœžœ˜)Jšœžœ˜Jšœžœžœ˜JšœJ™JJšœD™D—J˜ Jšžœ˜J˜ —— …—    T  9  