Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/legend.cdd-plot
There are 3 other files named legend.cdd-plot in the archive. Click here to see a list.
{\Q2ie\b]8`bP\W\VFLAG\\\[CNT\5\aMAXLABEL \;\:Y\@\?YLEN\F\EYBX\K\JYSPC\\f\m\u\| 0\i\p 0 0
]]]]!]'],]2 \Q]	X_REF ]]Y_REF ]
]X_LEN ]]Y_LEN ]]X_SCALE ]]% Y_VALUE 0]!]+ 0HATCH ]']1 COLOR 0],]6 0L_LABEL]@]M][]i]w_;\Q]J\]V!T\@]d!4\]r!\F]{!^p]]
]]]]!]'],]2\Q\\@\\F9^LEGEND		



av_M_R_X_]_c_i_o_t_z \Q_QX_REF _M_WY_REF _R_\X_LEN _X_bY_LEN _]_gX_SCALE _c_m Y_VALUE _i_s CHR _o_y COLOR 0_t_~ 0L_LABEL```!`.`:aj\Q` 0\`!\@`+!\`7!\F`D!`Gp_M_R_X_]_c_i_o_t_z\Q\\@\\F9`ILEGEND


mRbbbbbbb#b(b.b4b9b?bDbJ \QbX_REF bb
YREF bbXLENGTH bbYLENGTH bbXSCALE bb! YVALUE bb' BOX b#b- COLOR 0b(b2 0LLABEL b.b8FLG b4b>XBOX b9bCYBOX b?bIXSPACE bDbOYSPACE
b[bebrdd;dleeZffEfyf}j$j(j\kk!k-l]mN\Ka|\\bo\Wcb.ccy

ccb.\Wc"c9\Kc2\Kc6 0c>c[cB\\cKb.\W\\cecob.\W\;d4d#d8dd*\Kdb?bJd'bJ P!4\dbdQb9dGdXdD\\!dUbD X\/edye
dvbD Pee!e 0eLegendee)\\/\\/e9e=eJeMeV 0e;@:B W(I0S1)P
eA\; 0eLV	\ 0eYW(I3S0)e`edemeyf	f 0ecV
\;	ep\
f\;	\ 0fP(B)ff:f>
f bJf-f)f1\e} P!R 0f<T[12,0]fA 0fDLegendfJfN 0fMP(E)
f[frfRbD\fkfvbJfoP!2\Wggg 0 Xgj
gTgAb?g:gK\Wg>0bJb?ggiiv 0h
hb?h h3h7hAh)b#\W 0h6)V	b9 0hDW(S0)VhKhWhdhn
hNb?	h[b9
b?	b9h}i 0hP
bDi
b?iLiqii1i4iG
i!i*b?i. P 0i3W(Ii=b(\W 0iJ)T(A2S[8,20])iQidihiZb#\W 0igP	bDi{jj 0i}W(I3)T(A0)[12,0]j	b.\W 0jP(E)j! 0j#@;\5jRjA\;j7jKbbbjO!\#jf

k
kkjob\jybj}x=\)\#\bkj!
DEFINE PLOT LEGEND
DECLARE X, X_LEN, X_BX, X_SPC, X_NEED, X_COUNT, X_LEN_MIN
DECLARE Y, Y_LEN, Y_BX, Y_SPC, Y_COUNT
DECLARE FLAG, CNT, MAX_LABEL
ENTRY 0 PRINT CLRSCR,
              ENTER_REGIS(1),
              "S(E)P[100,200]@B@:A@;@:B@;",
EXITREGIS
ENTRY 3 (X_REF,
         Y_REF,
         X_LEN,
         Y_LEN,
	         X_SCALE,
         Y_VALUE : VECTOR,
         HATCH	 : STRING VECTOR,

	 COLOR	 : VECTOR,
         L_LABEL : STRING VECTOR)
BEGIN
    FLAG = 0
    X_BX = 40
    Y_BX = 20
    X_SPC = 10
    Y_SPC = 10
!    PLOT LEGEND 5 (X_REF, Y_REF, X_LEN, Y_LEN, X_SCALE, Y_VALUE,
%                   HATCH, COLOR, L_LABEL, FLAG, X_BX, Y_BX, X_SPC, Y_SPC)
END
ENTRY 4 (X_REF,
         Y_REF,
         X_LEN,
         Y_LEN,
	         X_SCALE,
         Y_VALUE : VECTOR,


         CHR	 : VECTOR,

	 COLOR	 : VECTOR,
         L_LABEL : STRING VECTOR)
BEGIN
    FLAG = 1
    X_BX = 8
    Y_BX = 8
    X_SPC = 10
    Y_SPC = 15
!    PLOT LEGEND 5 (X_REF, Y_REF, X_LEN, Y_LEN, X_SCALE, Y_VALUE,
$                   CHR, COLOR, L_LABEL, FLAG, X_BX, Y_BX, X_SPC, Y_SPC)
END
ENTRY 5 (X_REF,
         Y_REF,

         X_LENGTH,

         Y_LENGTH,
	         X_SCALE,
         Y_VALUE : VECTOR,


         BOX	 : VECTOR,

	 COLOR	 : VECTOR,
         L_LABEL : STRING VECTOR,
	 FLG,
	 X_BOX,
	 Y_BOX,
	 X_SPACE,
	 Y_SPACE)
BEGIN
    Y_COUNT = 0
	    MAX_LABEL = 0
ER LLABEL
        IF LENGTH(L_LABEL(CNT)) NE 0 THEN
        BEGIN
            Y_COUNT = Y_COUNT + 1
            IF LENGTH(L_LABEL(CNT)) GT MAX_LABEL THEN
                MAX_LABEL = LENGTH(L_LABEL(CNT))
        END
"    Y_LEN =     (Y_COUNT * (Y_BOX + Y_SPACE)) + (2 * Y_SPACE) + 20
    X_LEN =     (12 * MAX_LABEL) + (3 * X_SPACE) + X_BOX
    X_LEN_MIN =     (2 * X_SPACE) + (12 * LENGTH("Legend"))
    IF X_LEN < X_LEN_MIN THEN
LENMIN
!    PRINT "@:B W(I0S1)P", RY( - Y_LEN), "V", RX(X_LEN), "W(I3S0)"
$    PRINT "V", RY(Y_LEN), RX( - X_LEN), RY( - Y_LEN), RX(X_LEN), "P(B)"
%    PRINT  RXY( - ((X_LEN / 2) + 36),Y_SPACE), "T[12,0]", QUOTE("Legend")
    PRINT "P(E)", RXY( - X_LEN + X_SPACE,(Y_SPACE * 2) + 18)
 1 TO 3
        IF LENGTH(L_LABEL(CNT)) NE 0 THEN
        BEGIN
#            PRINT "P(B)", RY((CNT  - 1) * (Y_SPACE + Y_BOX) + Y_BOX)
            IF FLG EQ 0 THEN
	            BEGIN
#                PRINT "T(A1)W(I", CVT(COLOR(CNT)), "S", RY( - Y_BOX)
!                PRINT QUOTE(BOX(CNT)), ")V", RX(X_BOX), "W(S0)V"
$                PRINT RY( - Y_BOX), RX( - X_BOX), RY(Y_BOX), RX(X_BOX)
                PRINT "P", RXY(X_SPACE,  - Y_BOX)
            END ELSE
	            BEGIN
	)                PRINT RY( - (Y_BOX + 2)), "W(I", CVT(COLOR(CNT)), ")T(A2S[8,20])"
                PRINT QUOTE(BOX(CNT)), "P", RX(X_SPACE)
            END
        PRINT "W(I3)T(A0)[12,0]", QUOTE(L_LABEL(CNT)), "P(E)"
        END
    PRINT "@;"
    Y =     (Y_REF - Y_LENGTH) + (Y_LENGTH / 12) + Y_LEN
!    X_NEED = INT(((X_LEN + (X_LENGTH / 6)) / X_SCALE) + .999999)
    X_COUNT = X_NEED
    X = 0
YVALUE
%        IF     (Y_VALUE(CNT) GT (Y + (Y_LENGTH / 12))) AND (X EQ 0) THEN
        BEGIN
            X_COUNT = X_COUNT - 1
            IF X_COUNT EQ 0 THEN
                X = CNT - X_NEED + 1
	        END ELSE
            X_COUNT = X_NEED

    IF X NE 0 THEN
    BEGIN
       X = X_REF + (X_LENGTH / 12) + (X_SCALE * (X - 1))
       PRINT "@:C P", LXY(X,Y), "@B@;"
    END
    PRINT "@C"
END
END_PLOT