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. šTrcViewers.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Eric Nickell, April 9, 1986 2:40:48 pm PST Calling NotifyListeners on the trc will cause the viewer to repaint. rectangle is the Cartesian region of the trc which will be displayed. dx is the sampling frequency in the x direction. Plunks a new TRC into the Viewer. Convenience procedure which maps tip coords to [x,y] pairs. Κ€˜™Icodešœ Οmœ1™