Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt100/pie.cdd-plot
There are 4 other files named pie.cdd-plot in the archive. Click here to see a list.
{\Iie\Z].^m0\O\M0TITLE10\C\S0TITLE2\5\HINDEX\v]
\i\p\!\m 0 0\sFREQUENCY]]\!] P 0]
OF]\U\!]X^h](0\I]-0THE\STRING]3]N^>\C]<](\
!y^^0^%Morethan100Cslices,bepreparedtowait.^)](\e\5\C 0^q\!\
DECLARE STRING VECTOR STRINGS, TITLES
CTOR FREQS
DECLARE INDEX
DECLARE STRING TITLE1, TITLE2
TRING)
    BEGIN
QUENCY"

	TITLES (2) = "OF"

	TITLES (3) = TITLE
    END
ENTRY 1 (THE_STRING : STRING)
    BEGIN
	INDEX = SEARCH (THE_STRING, STRINGS)
	IF INDEX EQ 0
	    BEGIN
		INDEX = SIZE (STRINGS) + 1

		IF INDEX EQ 100 THEN
		    BEGIN
			PRINT "%More than 100 slices, be prepared to wait."
		    END
		STRINGS (INDEX) = THE_STRING
	    END
	FREQS (INDEX) = FREQS (INDEX) + 1
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, FREQS)
    END
END_PLOT