Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt100/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]3^O\5\IINDEX\0\STRINGSES 0\D\N0TITLE2 0\J\T0TITLE1\[\t]
\e\P\!\i0\~]\!]P 0]BY]\J\!] X^I]']- 0\D]+0THESTRING ]']1THEVALUE]8]S^^\D]A]'\
]'\^%^?\5\D^5]-\5\D^}^S\!\
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 (THE_STRING : STRING, THE_VALUE)
    BEGIN
	INDEX = SEARCH (THE_STRING, STRINGS)
	IF INDEX EQ 0
	    INDEX = SIZE (VALUES) + 1
	STRINGS (INDEX) = THE_STRING
	VALUES (INDEX) = VALUES (INDEX) + THE_VALUE
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, VALUES)
    END
END_PLOT