PDP-10 Archive: datatrieve/vt125/legend.cdd-plot from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/legend.cdd-plot

There are 3 other files named legend.cdd-plot in the archive. Click here to see a list.

hBQ0BbC8TVPBWBVFLAGB\B[CNTB5BaMAXLABEL B;B:YB@B?YLENBFBEYBXBKBJYSPCBBfBmBuB| 0Bi[2JBp 0 0BwS(E)P[100,200]@B@Z@:A@;@:B@;EFCC
CCCC!C'C,C2 BQC	X_REF CCY_REF C
CX_LEN CCY_LEN CCX_SCALE CC% Y_VALUE 0C!C+ 0HATCH C'C1 COLOR 0C,C6 0L_LABELC@CMC[CiCwE;BQCJBCV!TB@Cd!4BCr!BFC{!DpCC
CCCC!C'C,C2BQBB@BBF9DLEGEND

UvEMEREXE]EcEiEoEtEz BQEQX_REF EMEWY_REF ERE\X_LEN EXEbY_LEN E]EgX_SCALE EcEm Y_VALUE EiEs CHR EoEy COLOR 0EtE~ 0L_LABELTTT!T.T:UjBQT 0BT!B@T+!BT7!BFTD!TGpEMEREXE]EcEiEoEtEzBQBB@BBF9TILEGEND


aRVVVVVVV#V(V.V4V9V?VDVJ BQVX_REF VV
YREF VVXLENGTH VVYLENGTH VVXSCALE VV! YVALUE VV' BOX V#V- COLOR 0V(V2 0LLABEL V.V8FLG V4V>XBOX V9VCYBOX V?VIXSPACE VDVOYSPACE
V[VeVrXX;XlYYZZZEZyZ}^$^(^\!-`]aNBKU|B\VoBWWV.WWy

WWV.BWW"W9BKW2BKW6 0W>W[WBB\WKV.BWB\WeWoV.BWB;X4X#X8XX*BKXV?VJX'VJ P!4BXbXQV9XGXXXDB\!XUVD XB/YXyY
XvVD PYY!Y 0YLegendYY)BB/BB/Y9Y=YJYMYV 0Y;@:B W(I0S1)P
YAB; 0YLV	B 0YYW(I3S0)Y`YdYmYyZ	Z 0YcV
B;	YpB
ZB;	B 0ZP(B)ZZ:Z>
Z VJZ-Z)Z1BY} P!R 0Z<T[12,0]ZA 0ZDLegendZJZN 0ZMP(E)
Z[ZrZRVDBZkZvVJZoP!2BW[[[ 0 X[^
[T[AV?[:[KBW[>0VJV?[g]]v 0\
\V?\ \3\7\A\)V#BW 0\6)V	V9 0\DW(S0)V\K\W\d\n
\NV?	\[V9
V?	V9\}] 0\P
VD]
V?]L]q]]1]4]G
]!]*V?]. P 0]3W(I]=V(BW 0]J)T(A2S[8,20])]Q]d]h]ZV#BW 0]gP	VD]{^^ 0]}W(I3)T(A0)[12,0]^	V.BW 0^P(E)^! 0^#@;B5^R^AB;^7^KVVV^O!B#^f

_
^oVB^yV^}x=B)B#BVj!
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@Z@:A@;@:B@;",
TREGIS
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