PDP-10 Archive: datatrieve/gigi/multi_bar_group.cdd-plot from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/multi_bar_group.cdd-plot

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

{^ie^)b:df ^^
YLEN]g^YASPECT]m]lSTRIDE]s]rPOINTS]y]xYORIGIN^]~YBASE],^YHIGH0]@]00]2LLABEL\o]" ]#COLORP \t\sCNT \z\yJTEMP \c\K \i\hKOUNT \M\mOFFSET \R\QINDEX \X\WBARWIDTH \^\]BARX \*\bBARY \0\/YREF \6\4YLENGTH \;\:YMIN \A\@YMAX \G\EYSCALE \\KYLABEL \\XREF \\XLENGTH \\XMIN \$\#XMAX \)XSCALEb^^^^# 0^^0XLABEL 0^^0LABEL1 0^^"0LABEL2 0^^(0LABEL3
^3^B^K^V^`^k^o___3_I___x``$`=`K`Y`haHaP^/9^1HOUSEKEEP^: 0^=S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66))^H 0^JL(A1)^Q 0
^SL"X"8142241818244281^[ 0
^^L"Y"8855225588552255^f 0
^hL"Z"1122448888442211^x_]T^} 0 0_X__]_ 0 P_$^],_) 0_=_D]T_A P 0_GY_S_Z]_W P P_i^],_m P``
]T_| X 0`

Z`` ]` X P`.^#],`3 X\`G!y\*`U"6@\`c"R`\0`r

"5p`v0\\*\\0^\G9`xLABEL

\oaa],aeb\cb\cb0db$b)b/b40^b(0Xb$b.Y1b)b3Y2b/b9Y3b@bYccc:chd#\MbI	b$]@b]bj	crd]c|\Md	 0d	b/]d\Md	 0d-dU]d7\Md;	 PdDb4]dN\MdR	 PnR

	djeete{ff;f}gg(gBg[hh+h[h`m3nEnN\Rdz
\ee
eee\ce 0]@ 0\oe.\c\R
e8(\\*\o\R]@9e:X_LABEL
\6f

]\;f9f$LABEL

f@(\6\;]m]g]y9fBLABEL

^gg]y]m]g^g8^]y^gR\0^

]sgk\*gu^]yhh^h]sh!\*\0

h/h<]yh9]s\*hL]9hNLABEL\om.]@hqii2hz\*]ihi

] 0\ii+	i$i/\oi( 0 X\ti=\cm( 0iFjj<lhm$\XiU
\i_\Rj
jjioj
ihiy\oil 0\ci} 0\tj 0 0\^j']j2\i\t	j@lb\^jO\*jS 0jrkkHll7l]jXj]jo 0jZPjf]sjj 0 0jqPjwkk	\X\^
 0k	V	\R
kkk0kE 0kT(A1)W(Sk']sk+ 0k9]T\t 0kG)kNkQkekjkzl 0kPW(IkZ]\t 0kg)P	\X\^
 0k}V	l	\Rl
 0lll*l. 0lW(S0)P	\X]s
 0l-V\^l<lM	lF\RlJ
 0lV]slZ 0lrm

]llvm] 0]m\i\t	m! 0m#T(A0)m=\*]mJmAmN] 0mWH\\*\\0\R]]T]],9mYLEGEND

m|9m~HOUSEKEEPDEFINE PLOT MULTI_BAR_GROUP
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX, X_SCALE
DECLARE Y_REF, Y_LENGTH, Y_MIN, Y_MAX, Y_SCALE, Y_LABEL
DECLARE INDEX, BAR_WIDTH, BAR_X, BAR_Y
DECLARE KOUNT, OFFSET

DECLARE CNT, J_TEMP, K
DECLARE VECTOR Y_VALUE, Y_MX, COLOR
DECLARE STRING VECTOR L_LABEL, X_LABEL, HATCH
DECLARE REAL STRIDE, POINTS, Y_ORIGIN, Y_BASE, Y_HIGH
DECLARE REAL Y_LEN, Y_ASPECT
ENTRY 0 (X_LABEL : STRING,
         LABEL_1 : STRING,
         LABEL_2 : STRING,
         LABEL_3 : STRING)
BEGIN
    PLOT HOUSEKEEP 0
    PRINT "S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66))"
	    PRINT "L(A1)"
    PRINT "L""X""8142241818244281"
    PRINT "L""Y""8855225588552255"
    PRINT "L""Z""1122448888442211"
    HATCH(1) = "X"   COLOR(1) = 2   L_LABEL(1) = LABEL_1
    HATCH(2) = "Y"   COLOR(2) = 2   L_LABEL(2) = LABEL_2
    HATCH(3) = "Z"   COLOR(3) = 2   L_LABEL(3) = LABEL_3
"    X_REF = 100    Y_REF = 360    X_LENGTH = 600    Y_LENGTH = 350
!    PLOT LABEL 0 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,X_LABEL,Y_LABEL)
LLABEL
        IF LENGTH(L_LABEL(CNT)) NE 0 THEN
            KOUNT = KOUNT + 1
END
ENTRY 1 (X : STRING, Y1, Y2, Y3)
BEGIN
    INDEX = SEARCH (X, X_LABEL)
	    IF INDEX EQ 0
	INDEX = SIZE (X_LABEL) + 1

    X_LABEL(INDEX) = X
EX * 3 - 2
    Y_VALUE(INDEX) = Y_VALUE(INDEX) + Y1
    Y_VALUE(INDEX + 1) = Y_VALUE(INDEX + 1) + Y2
    Y_VALUE(INDEX + 2) = Y_VALUE(INDEX + 2) + Y3
END
ENTRY 2
BEGIN
     BAR_WIDTH = X_LENGTH / (((KOUNT + 1) * SIZE(X_LABEL)) + 1)
    CNT = KOUNT * BAR_WIDTH
    PLOT X_LABEL 0 (X_REF, Y_REF, CNT, BAR_WIDTH, X_LABEL)
N(YVALUE)
VALUE)
    PLOT LABEL 3 (Y_MIN,Y_MAX)
    PLOT LABEL 10 (Y_MIN, Y_MAX, POINTS, STRIDE, Y_BASE)
    Y_HIGH = POINTS * STRIDE + Y_BASE
    Y_LEN = Y_HIGH - Y_BASE
    Y_ASPECT = Y_LENGTH / Y_LEN
    Y_ORIGIN = Y_REF + (Y_ASPECT * Y_BASE)

    IF Y_HIGH LE 0 THEN
	Y_ORIGIN = Y_REF - Y_LENGTH

    IF Y_BASE GE 0 THEN
		Y_ORIGIN = Y_REF
    PLOT LABEL 8 (Y_VALUE)
R XLABEL
    BEGIN
        Y_MX(SIZE(Y_MX) + 1) = Y_REF
        OFFSET =      (CNT - 1) * 3
        INCR J_TEMP FROM 1 TO KOUNT
        BEGIN
	,            BAR_X = X_REF + BAR_WIDTH * (((CNT - 1) * (KOUNT + 1)) + (J_TEMP - 1) + 1)
            BAR_Y = Y_VALUE(OFFSET + J_TEMP)
            IF BAR_Y LT (Y_REF - 1) THEN
	            BEGIN
                PRINT "P", LY(Y_ORIGIN - 1), "P"
                PRINT LXY(BAR_X,BAR_Y), "V", RX(BAR_WIDTH)
'                PRINT "T(A1)W(S", LY(Y_ORIGIN - 1), QUOTE(HATCH(J_TEMP)), ")"

1                PRINT "W(I", CVT(COLOR(J_TEMP)), ")P", LXY(BAR_X,BAR_Y), "V", RX(BAR_WIDTH  - 1)
"                PRINT "W(S0)P", LXY(BAR_X,Y_ORIGIN), "V", LY(BAR_Y)
                PRINT RX(BAR_WIDTH - 1), LY(Y_ORIGIN - 1)
            END
            Y_MX(SIZE(Y_MX) + 1) = Y_VALUE(OFFSET + J_TEMP)
"T(A0)"
        END
    END
    Y_MX(SIZE(Y_MX) + 1)=Y_REF

/    PLOT LEGEND 3 (X_REF, Y_REF, X_LENGTH, Y_LENGTH, BAR_WIDTH, Y_MX, HATCH, COLOR, L_LABEL)
    PLOT HOUSEKEEP 2
END
END_PLOT