<> <> <<>> DIRECTORY Imager USING [Context, Color], ViewerClasses USING [Viewer], Vector2 USING [VEC], Rope USING [ROPE]; MintDisplay: CEDAR DEFINITIONS ~ BEGIN <> VEC: TYPE ~ Vector2.VEC; VecList: TYPE ~ LIST OF VEC; Viewer: TYPE ~ ViewerClasses.Viewer; DisplayList: TYPE = LIST OF DisplayListRec; DisplayListRec: TYPE = RECORD [ name: Rope.ROPE, analog: BOOLEAN _ TRUE, or: VEC, list: VecList ]; <> ViewerData: TYPE = REF ViewerDataRec; ViewerDataRec: TYPE = RECORD [ context: Imager.Context, xTranslation, yTranslation: REAL _ 0.0, xMax, yMax: REAL _ 100.0, xMin, yMin: REAL _ 0.0, scalex: REAL _ 0.01, scaley: REAL _ 0.005, magOn: BOOLEAN _ FALSE, magOr: REAL _ 0.0, magScale: REAL _ 0.08, inter: REAL _ 50.0, -- separation between curves displayList: DisplayList, magDisplayList: DisplayList ]; black: Imager.Color; white: Imager.Color; red: Imager.Color; green: Imager.Color; blue: Imager.Color; puce: Imager.Color; BuildViewer: PROC[viewerTitle: Rope.ROPE] RETURNS[viewer: Viewer]; <> DrawVect: PROC [or: VEC, ex: VEC, viewer: Viewer, color: Imager.Color]; DrawRope: PROC[pos: VEC, rope: Rope.ROPE, viewer: Viewer, color: Imager.Color]; TimeAxis: PROC [unit: REAL, viewer: Viewer, color: Imager.Color]; ReDraw: PROC [viewer: Viewer]; <> ProduceIPMaster: PROC [viewer: Viewer]; LoadDisplay: PROC [displayList: DisplayList, viewer: Viewer]; <> UpdateDisplay: PROC [displayList: DisplayList, viewer: Viewer]; <> END.