Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/value_pie.cdd-plot
There are 4 other files named value_pie.cdd-plot in the archive. Click here to see a list.
FDIFVG3HOF5FIINDEXF0FSTRINGSES 0FDFN0TITLE2 0FJFT0TITLE1F[FtG
FeFPF!Fi0F~GF!GP 0GBYGFJF!G XHIG'G- 0FDG+0THESTRING G'G1THEVALUEG8GSHHFDGAG'F
G'FH%H?F5FDH5G-F5FDIH}HSF!F
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