Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/multi_shade.cdd-plot
There are 3 other files named multi_shade.cdd-plot in the archive. Click here to see a list.
{]&ie]zbcJ0]:]+0],LLABEL 0]N]? 0]@XALABELP ]] ]YMXP \i] ]COLORP \o\nCNT \u\sJTEMP \^\yK \c\bKOUNT \M\hOFFSET \S\QBARWIDTH \X\WBARX \*\]BARY \0\/YREF \6\4YLENGTH \;\:YMIN \A\@YMAX \G\EYSCALE \\KYLABEL \\XREF \\XLENGTH \\XMIN \$\#XMAX \)XSCALEaf]b]h]n]t 0]&]f0XLABEL 0]b]l0LABEL1 0]h]r0LABEL2 0]n]x0LABEL3
^^^^&^1^;^?^U^k/H^^t`9^HOUSEKEEP^0^ 0
^$L"X"8142241818244281^, 0
^.L"Y"8855225588552255^6 0
^9L"Z"1122448888442211^I^P]N^M00^SX^^f]^c00^u]h]&^y0]NV X 0\Zho]l X X`]t]&` X\`
!y\*`%"6@\`3"R`\0`B"5p`F0\\*\\0]b\G9`HLABEL

\ia1]&a5aP\^a\^ac 0cDataybb 0]&ax0X ata~Y1 aybY2 bb
Y3bb5bZb~c#bat]:b)bb-]:0b?ay\zbMbDbQ\z0bdb\zbrbhbv\z 0cb\zcc
\Md Pd(\i\*\M\u]:9dX_LABEL\6di\z\;d|	\ze\6\;9eLABEL	e$\z9e&LABEL\oeC\^k_ 0ff

gShhj=jCeLePe`ecf 0eNT(A0)PeY\*e] 0 0ebP	emey\eq
 0\*f 0 0fV\ig"]:ffEfug\cf;f4\of-f8\if1 0 X\Sf[fTfe\fX
 0\Mfn\ifr 0\Xg\z\cg	\S\Xg(g,g<gO 0g*T(A1)W(Sg5\*g9 0gE]N\o 0gR)gXg\gogsh 0g[W(RIge]\o 0gr)P	hh	\g|
0\*h 0hV\ij]:h+hRii,i0\chHhA\oh:hE\ih> 0 X\Shhhahr\he
 0\Mh|\ii 0\Xi\z\ci	\S\Xi4iXi>iN]	\i\z\cibir]	\i\z\ci|jjjj: 0iW(S0Ij]\o 0j)P	j&j3\j*
 0\*j7 0 0j<V\ikY]:jTj|k,kU\cjrjk\ojdjo\ijh 0 X\Skkk\k
 0\Mk%\ik) 0\Xk<\z\ckF	\S\Xkf 0khT(A0)kmH\\*\\0\M]	]N]]&9koLEGEND
k|9k~HOUSEKEEP

DEFINE PLOT MULTI_SHADE
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
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) = 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 : REAL ,
	Y2 : REAL ,
	Y3 : REAL )
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
    Y_MX(SIZE(Y_MX) + 1) = 5000
END
ENTRY 2
BEGIN
    BAR_WIDTH =       (X_LENGTH - 2) / (SIZE(X_LABEL) - 1)
    CNT = X_REF - BAR_WIDTH / 2
    PLOT X_LABEL 0 (CNT, Y_REF, BAR_WIDTH, K, X_LABEL)
VALUE)
VALUE)
    PLOT LABEL 3 (Y_MIN,Y_MAX)
    PLOT LABEL 8 (Y_VALUE)
    INCR J_TEMP FROM 1 TO KOUNT
    BEGIN
%        PRINT "T(A0)P", LY(Y_REF - 1), "P", LXY(X_REF + 1,Y_REF - 1), "V"
        INCR CNT OVER X_LABEL
        BEGIN
            OFFSET =       (CNT - 1) * 3 + J_TEMP
            BAR_X = X_REF + 1 + BAR_WIDTH * (CNT  - 1)
            BAR_Y = Y_VALUE(OFFSET)
            PRINT LXY(BAR_X,BAR_Y)
        END
"        PRINT "T(A1)W(S", LY(Y_REF - 1), QUOTE(HATCH(J_TEMP)), ")"
'        PRINT "W(RI", CVT(COLOR(J_TEMP)), ")P", LXY(X_REF + 1,Y_REF - 1), "V"
        INCR CNT OVER X_LABEL
        BEGIN
            OFFSET =       (CNT  - 1) * 3 + J_TEMP
            BAR_X = X_REF + 1 + BAR_WIDTH * (CNT  - 1)
            BAR_Y = Y_VALUE(OFFSET)
            PRINT LXY(BAR_X,BAR_Y)
            IF Y_MX(CNT) > Y_VALUE(OFFSET) THEN
                Y_MX(CNT) = Y_VALUE(OFFSET)
        END
	(        PRINT "W(S0I", CVT(COLOR(J_TEMP)), ")P", LXY(X_REF + 1,Y_REF  - 1), "V"
        INCR CNT OVER X_LABEL
        BEGIN
            OFFSET =       (CNT  - 1) * 3 + J_TEMP
            BAR_X = X_REF + 1 + BAR_WIDTH * (CNT  - 1)
            BAR_Y = Y_VALUE(OFFSET)
            PRINT LXY(BAR_X,BAR_Y)
        END
    END
	    PRINT "T(A0)"
	+    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