PDP-10 Archive: datatrieve/pc350/value_pie.cdd-plot from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/value_pie.cdd-plot

There are 4 other files named value_pie.cdd-plot in the archive. Click here to see a list.

{\Die\V]2^L\5\IINDEX\0\STRINGSES 0\D\N0TITLE2 0\J\T0TITLE1\[\t]
\e\P\!\i0\~]\!]P 0]BY]\J\!] X^G]'], 0\D]+0STR ]']1VALUE]7]Q^^\D]@]'\
]'\^#^=\5\D^3],\5\D^{^P\!\
DECLARE STRING VECTOR STRINGS, TITLES
DECLARE REAL VECTOR VALUES
DECLARE INDEX
ENTRY 0 (TITLE2 : STRING, TITLE1 : STRING)
    BEGIN
	TITLES (1) = TITLE1

	TITLES (2) = "BY"
	TITLES (3) = TITLE2
    END
ENTRY 1 (STR : STRING, VALUE)
    BEGIN
	INDEX = SEARCH (STR, STRINGS)
	IF INDEX EQ 0
	    INDEX = SIZE (VALUES) + 1

	STRINGS (INDEX) = STR
	VALUES (INDEX) = VALUES (INDEX) + VALUE
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, VALUES)
    END
END_PLOT