Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/pie.cdd-plot
There are 4 other files named pie.cdd-plot in the archive. Click here to see a list.
{\Iie\Z].^l0\O\M0TITLE10\C\S0TITLE2\5\HINDEX\v]

\i\p\!\m 0 0\sFREQUENCY]]\!] P 0]
OF]\U\!]X^g](0\I]-0STR]2]M^=\C]<](\^p\!\
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 (STR : STRING)
    BEGIN
	INDEX = SEARCH (STR, 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) = STR
	    END
	FREQS (INDEX) = FREQS (INDEX) + 1
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, FREQS)
    END
END_PLOT