Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/multi_bar.cdd-plot
There are 3 other files named multi_bar.cdd-plot in the archive. Click here to see a list.
{^ie^#b3cP ^^Y_LEN ]a^
YASPECT]g]fSTRIDE]m]lPOINTS]s]rYORIGIN]y]xYBASE]&]~YHIGH0]:]*0],LLABEL\]\yK\c\bKOUNT\L\gOFFSET\R\QBAR^WIDTH\X\WBARX \*\\BARY \/\.YREF \5\4YLENGTH \;\:YMIN \@\?YMAX \F\EYSCALE \
^-^<^E^P^Z^e^i^__-_C_Y_r```6`D`R`aaAaI^)9^+HOUSEKEEP^4 0^7S(M 1(AH150L50S100)2(AH150L45S66)3(AH170L75S66))^B 0^DL(A1)^K 0
^ML"X"FFFFFFFFFFFFFFFF^U 0
^XL"Y"FFFFFFFFFFFFFFFF^` 0
^bL"Z"FFFFFFFFFFFFFFFF^r^z]N^w00^|X]\7`>]N;P0cAYMT]QPYPc^]&bgP{`]N`X0`Z``]`XX`'^]&`,X\

b(\zccc\z 0c0b-\zc>c5cB\z 0mO
cTd
d*dfdye%eheoff-fGfjggEgNgRl(lOm>mJ\Lcd	\dcuc|cncy\]cr 0]: 0\id\]\L	d#(\

\z\;e

\ze

\5\;9eLABEL



e+(\5\;]g]a]s9e-LABEL



]yf
f]s]g]a^f#]y]s^f=\/^]mfV\*f`^]sfof|]yfy]mg\*\/gg']sg$]m\*g6\z9g8LABELgJ 0gM@:A \il#]:gchh&gl\*]	gzgqh]	 0\ch	hh#\ih 0 X\nh1\]l 0h:i

i0k\l\RhI
\\Li	hti	hch~h\hm\ih` 0\]hq 0\ni 0 0\Xi
\zi&\c\n	i4kV\XiC
\*iG 0ifj	j=kk+kQiLiQic 0iNW(I0SiZ]mi^ 0 0ie)Pikizj	\R\X

 0i}V	\L	jjj$j9 0jT(A1)W(Sj]mj  0j-]N\n 0j<)jBjFjYj^jojt 0jEW(IjO]\n 0j\)P	\R\X

0jqV	j}\Lk	 0kkkk" 0k
 0k!V\X
k0kA	k:\Lk>	 0kJ]mkN 0kfkz]	kskjkw]	 0\zl

\c\n	l0lT(A0)l2\*]	l?l6lC]	 0lL 0lN@;@AlSH\
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 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
    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
     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