<> <> <> <<>> DIRECTORY Imager USING [Rectangle], TIPUser USING [TIPScreenCoords], Trc USING [TRC], Vector2 USING [VEC], ViewerClasses USING [Viewer, ViewerRec]; TrcViewers: CEDAR DEFINITIONS ~ BEGIN TRC: TYPE ~ Trc.TRC; Rectangle: TYPE ~ Imager.Rectangle; Viewer: TYPE ~ ViewerClasses.Viewer; ViewerRec: TYPE ~ ViewerClasses.ViewerRec; CreateTRCViewer: PROC [trc: TRC, rectangle: Rectangle, dx: REAL, info: ViewerRec, paint: BOOL _ TRUE] RETURNS [viewer: Viewer]; <> <> <> InfoFromTRCViewer: PROC [viewer: Viewer] RETURNS [trc: TRC, rectangle: Rectangle, dx: REAL, clientData: REF]; NewTrc: PROC [viewer: Viewer, trc: TRC, paint: BOOL _ TRUE]; <> ResetTRCViewer: PROC [viewer: Viewer, rectangle: Rectangle, dx: REAL, clientData: REF]; VecFromTIPCoords: PROC [viewer: Viewer, coords: TIPUser.TIPScreenCoords] RETURNS [vec: Vector2.VEC]; <> END.