DIRECTORY Plotter USING [Create], RealEvent USING [CreateTimerDrivenStream], SafeStorage USING [NWordsAllocated], Timer USING[Seconds]; Performers: PROGRAM IMPORTS Plotter, RealEvent, SafeStorage = BEGIN samplingInterval: Timer.Seconds = 5; nEvents: NAT = 100; WordsAllocatedSampler: PROC[s: REF ANY] RETURNS[REAL] = {RETURN[SafeStorage.NWordsAllocated[]]; }; [] _ Plotter.Create[label: "wordsPerSecHistory", autoRepaint: TRUE, nEvents: nEvents, plotValueDifferences: TRUE, plotValuePerSecond: TRUE, eventSource: RealEvent.CreateTimerDrivenStream[interval: samplingInterval, sampler: WordsAllocatedSampler]]; END. †Performers.mesa Edited by Paul Rovner on December 16, 1983 2:29 pm SAMPLING PROCEDURES START HERE...Create performance plotters Ę˜Jšœ™Jšœ2™2J˜šĪk ˜ Jšœœ ˜Jšœ œ˜*Jšœ œ˜$Jšœœ ˜J˜—Jšœ ˜J˜Jšœ ˜'J˜Jšœ˜˜J˜$Jšœ œ˜J˜J˜—Jšœ™J˜š Īnœœœœœœ˜7Jšœœ ˜'J˜J˜—Jšœ(™(J˜˜˜0Jšœ œ˜J˜Jšœœ˜Jšœœ˜J˜l——Jšœ˜J˜—…—t