DIRECTORY IO USING [PutFR, int], MintDisplay, Rope USING [ROPE, Cat]; MintDisplayTestImpl: CEDAR PROGRAM IMPORTS MintDisplay, IO, Rope ~ BEGIN viewer: MintDisplay.Viewer; displayList: MintDisplay.DisplayList; m: INT; DataGenerator: PUBLIC PROC [numberOfItems: INT _ 1, length: INT _ 32, x0: REAL _ 0.0, analog: BOOLEAN _ TRUE, yMult: REAL _ 1.0, oldDisplayList: MintDisplay.DisplayList _ NIL] RETURNS [displayList: MintDisplay.DisplayList] ~ { displayList _ oldDisplayList; FOR n: INT IN [0..numberOfItems) DO displayList _ CONS[[ name: Rope.Cat["n", IO.PutFR["%d", IO.int[n]]], analog: analog, or: [0.0, 0.0], list: NIL], displayList]; FOR i: INT IN [0..length) DO m _ (i /(3+n)) MOD 2; displayList.first.list _ CONS[[x: i*2000.0 + x0, y: 5000.0*yMult*m], displayList.first.list]; ENDLOOP; ENDLOOP; }; viewer _ MintDisplay.BuildViewer["Test"]; displayList _ DataGenerator[8]; displayList _ DataGenerator[numberOfItems: 4, analog: FALSE, yMult: 256.0, oldDisplayList: displayList] ; displayList _ DataGenerator[numberOfItems: 4, oldDisplayList: displayList] ; MintDisplay.LoadDisplay[displayList, viewer]; END. þMintDisplayTestImpl.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Christian LeCocq, July 31, 1986 6:29:18 pm PDT Test of the MintDisplay oscilloscope. Generates data generate numberOfItems lists of values named n0, n1...np. Ê“˜codešœ™Kšœ Ïmœ1™