Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/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(AH150L50S100)2(AH150L45S66)3(AH170L75S66))^H 0^JL(A1)^Q 0
^SL"X"FFFFFFFFFFFFFFFF^[ 0
^^L"Y"FFFFFFFFFFFFFFFF^f 0
^hL"Z"FFFFFFFFFFFFFFFF^x_]T^} 0 0_X__]_ 0 0_$^],_) 0_=_D]T_A P 0_GY_S_Z]_W P P_i^],_m P``
]T_| X 0`

Z`` ]` X X`.^#],`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	 Png
djeete{ff;f}gg(gBg[hh+h[hchgm>menVnc\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]9hNLABELh` 0hb@:A \om9]@hxii9i\*]iii] 0\ii2	i+i6\oi/ 0 X\tiE\cm3 0iMj jDlsm/\Xi\
\if\Rj
jjiwjipi{\oit 0\cj 0\tj 0 0\^j0]j:\i\t	jIll\^jX\*j\ 0j|kkRllAlhjbjgjy 0jdW(I0Sjp]sjt 0 0j{)Pkkk	\X\^
 0kV	\R
k$k(k:kO 0k&T(A1)W(Sk1]sk5 0kC]T\t 0kQ)kXk[koktll
 0kZW(Ikd]\t 0kq)P	\X\^
 0lV	l\Rl
 0l!l%l5l8 0l$W(S0)P	\X]s
 0l7V\^lGlW	lP\RlT
 0la]sle 0l|m]m
mm] 0]m!\i\t	m+ 0m.T(A0)mG\*]mUmLmY] 0ma 0md@;@AmiH\\*\\0\R]]T]],9mkLEGEND


n_9naHOUSEKEEPDEFINE 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(AH150L50S100)2(AH150L45S66)3(AH170L75S66))"
	    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
    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)
	    PRINT "@:A "
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 "W(I0S", 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)), ")"
%                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
	    PRINT "@;@A"
     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