Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/stacked_bar.cdd-plot
There are 3 other files named stacked_bar.cdd-plot in the archive. Click here to see a list.
G%W|GyLM(0G9G*0G+LLABEL 0GMG>0G?XALABEL GFx FzYVALUEP GG GYMXP FXG GCOLORP F]F\CNT FcFbJT FhFgK FnFmKOUNT FGFrOFFSET FLFKBARY FRFQBARX F*FVBARBOTTOM F0F/YREF F6F4YLENGTH F;F:YMIN FAF@YMAX FFEYLABEL FFXREF FFXLENGTH FFXMIN F$F#XMAX F)XWIDTHKfGaGgGmGs 0G%Ge0XLABEL 0GaGk0LABEL1 0GgGq0LABEL2 0GmGw0LABEL3
HHHH&H1H;H?HUHkIII/IHI^ItJ9HHOUSEKEEPH0H 0
H$L"X"FFFFFFFFFFFFFFFFH, 0
H.L"Y"FFFFFFFFFFFFFFFFH6 0
H9L"Z"FFFFFFFFFFFFFFFFHIHPGMHM00HSXHHfGHc00HuGgG%Hy0GMIV X 0I\ZIhIoGIl X XJGsG%J XFJ
!yF*J%"6@FJ3"R`F0JB"5pJF0FF*FF0GaFA9JHLABEL

FXK1G%K5KPFhKFhKc 0M#KtKyLL 0G%Kx0X KtK~Y1 KyLY2 LL
Y3LL5LZL~LKtG9L)LL-G9 0L?KyFtLMLDLQFt 0LdLFtLrLhLvFt 0MLFtMM
M,NYOBObOwPPTNTRTvUU1UHUaVVV2VSWWWcFXNTG9M=MZN2F]MSMLMWFXMP 0 XFcNM{N!MjNFtMtF]Mx 0FtNF]N PFtN+F]N/ XN6NEFcF;	F;Fc	F$Ni

FN~NpONmNt PG9 0O(FF*F$F$G99OX_LABEL




OIF6F;9OKLABEL		OhFt9OjLABELO|0O~@:AFXTDG9PP8PVQ XFLPeFPo
F$Q

PQ
PxQFXP| 0 P 0FGF*F]Q'FhT 0QGQLQ0Q3QC 0Q2W(I0SQ<FGQ@ 0 0QF)QPTQZF*FtQeFnF]QtRR[S

SJSqTFRFGFGRFGRF*R(FtR2FnF]R<R?RNRR 0R>P	FLFG 0RQV	F$

RaReRuS 0RcT(A1)W(SRnFRRr 0R~GMF] 0S)SSS(S+S<SA 0SW(ISGF] 0S*)P	FLFG 0S>V	F$

SQSUSdSh 0SSW(S0)P	FLFR 0SgVFGSvT	F$

T	FRTT*FGGT7T.T;G 0TJ 0TMT(A0)@;@AT\F*GTiT`TmG 0G UG%FhUU)G%FhG%U. 0U;G G%U? 0FXUWGFhUjUzGFhGV 0V

FXGV 0G V(GMFhV<VKGMFhGMVP 0V\G GMVa 0ViHFF*FF0F$GGMGG%9VkLEGEND


W`9WbHOUSEKEEP

DEFINE PLOT STACKED_BAR
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX, X_WIDTH
DECLARE Y_REF, Y_LENGTH, Y_MIN, Y_MAX, Y_LABEL
DECLARE BAR_Y, BAR_X, BAR_BOTTOM
DECLARE CNT, JT, K, KOUNT, OFFSET
DECLARE VECTOR Y_VALUE, Y_MX, COLOR

DECLARE STRING STNG
DECLARE STRING VECTOR L_LABEL, X_LABEL, HATCH
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""FFFFFFFFFFFFFFFF"
    PRINT "L""Y""FFFFFFFFFFFFFFFF"
    PRINT "L""Z""FFFFFFFFFFFFFFFF"
    HATCH(1) = "X"   COLOR(1) = 1   L_LABEL(1) = LABEL_1
    HATCH(2) = "Y"   COLOR(2) = 2   L_LABEL(2) = LABEL_2
    HATCH(3) = "Z"   COLOR(3) = 3   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
    X_LABEL(SIZE(X_LABEL) + 1) = X
    Y_VALUE(SIZE(Y_VALUE) + 1) = Y1
    Y_VALUE(SIZE(Y_VALUE) + 1) = Y2
    Y_VALUE(SIZE(Y_VALUE) + 1) = Y3
END
ENTRY 2
BEGIN
 XLABEL
    BEGIN
        JT =  (CNT - 1) * 3
         K = Y_VALUE(JT + 1) + Y_VALUE(JT + 2) + Y_VALUE(JT + 3)
        IF K GT Y_MAX THEN
            Y_MAX = K
    END
    X_WIDTH = X_LENGTH / ((2 * SIZE(X_LABEL)) + 1)
    PLOT X_LABEL 0 (X_REF, Y_REF, X_WIDTH, X_WIDTH, X_LABEL)
    PLOT LABEL 3 (Y_MIN, Y_MAX)
    PLOT LABEL 8 (Y_VALUE)
    PRINT "@:A"
 XLABEL
    BEGIN
        Y_MX(SIZE(Y_MX) + 1) = Y_REF
        OFFSET =  (CNT - 1) * 3
        BAR_X = X_REF + X_WIDTH * (((CNT - 1) * 2) + 1)
        BAR_Y = Y_REF
        INCR JT FROM 1 TO KOUNT
        BEGIN
            PRINT "W(I0S", LY(BAR_Y - 1), ")"
            IF Y_VALUE(OFFSET + JT) LT Y_REF THEN
	            BEGIN
                BAR_BOTTOM = BAR_Y
                 BAR_Y = BAR_Y - (Y_REF - Y_VALUE(OFFSET + JT))
                 PRINT "P", LXY(BAR_X, BAR_Y), "V", RX(X_WIDTH)
&                PRINT "T(A1)W(S", LY(BAR_BOTTOM - 1), QUOTE(HATCH(JT)), ")"
	+                PRINT "W(I", CVT(COLOR(JT)), ")P", LXY(BAR_X,BAR_Y), "V", RX(X_WIDTH)
#                PRINT "W(S0)P", LXY(BAR_X,BAR_BOTTOM), "V", LY(BAR_Y)
                PRINT RX(X_WIDTH), LY(BAR_BOTTOM - 1)
            END
        END
        Y_MX(SIZE(Y_MX) + 1) = BAR_Y
    END
    PRINT "T(A0)@;@A"
    Y_MX(SIZE(Y_MX) + 1) = Y_REF
&    STNG = L_LABEL(KOUNT)   L_LABEL(KOUNT) = L_LABEL(1)   L_LABEL(1) = STNG
$    CNT = COLOR(KOUNT)     COLOR(KOUNT) = COLOR(1)       COLOR(1) = CNT
%    STNG = HATCH(KOUNT)     HATCH(KOUNT) = HATCH(1)       HATCH(1) = STNG
	*    PLOT LEGEND 3 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,X_WIDTH,Y_MX,HATCH,COLOR,L_LABEL)
    PLOT HOUSEKEEP 2
END
END_PLOT