Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/legend.cdd-plot
There are 3 other files named legend.cdd-plot in the archive. Click here to see a list.
FQ1WiFbG8JLPFWFVFLAGF\F[CNTF5FaMAXLABEL F;F:YF@F?YLENFFFEYBXFKFJYSPCFFfFmFuF| 0FiFp 0 0
GGGG!G'G,G2 FQG	X_REF GGY_REF G
GX_LEN GGY_LEN GGX_SCALE GG% Y_VALUE 0G!G+ 0HATCH G'G1 COLOR 0G,G6 0L_LABELG@GMG[GiGwI;FQGJFGV!TF@Gd!4FGr!FFG{!HpGG
GGGG!G'G,G2FQFF@FFF9HLEGEND		



KvIMIRIXI]IcIiIoItIz FQIQX_REF IMIWY_REF IRI\X_LEN IXIbY_LEN I]IgX_SCALE IcIm Y_VALUE IiIs CHR IoIy COLOR 0ItI~ 0L_LABELJJJ!J.J:KjFQJ 0FJ!F@J+!FJ7!FFJD!JGpIMIRIXI]IcIiIoItIzFQFF@FFF9JILEGEND


WRLLLLLLL#L(L.L4L9L?LDLJ FQLX_REF LL
YREF LLXLENGTH LLYLENGTH LLXSCALE LL! YVALUE LL' BOX L#L- COLOR 0L(L2 0LLABEL L.L8FLG L4L>XBOX L9LCYBOX L?LIXSPACE LDLOYSPACE
L[LeLrNN;NlOOZPPEPyP}T$T(T\UU!U-V]WNFKK|F\LoFWML.MMy

MML.FWM"M9FKM2FKM6 0M>M[MBF\MKL.FWF\MeMoL.FWF;N4N#N8NN*FKNL?LJN'LJ P!4FNbNQL9NGNXNDF\!NULD XF/ONyO
NvLD POO!O 0OLegendOO)FF/FF/O9O=OJOMOV 0O;@:B W(I0S1)P
OAF; 0OLV	F 0OYW(I3S0)O`OdOmOyP	P 0OcV
F;	OpF
PF;	F 0PP(B)PP:P>
P LJP-P)P1FO} P!R 0P<T[12,0]PA 0PDLegendPJPN 0PMP(E)
P[PrPRLDFPkPvLJPoP!2FWQQQ 0 XQT
QTQAL?Q:QKFWQ>0LJL?QgSSv 0R
RL?R R3R7RAR)L#FW 0R6)V	L9 0RDW(S0)VRKRWRdRn
RNL?	R[L9
L?	L9R}S 0RP
LDS
L?SLSqSS1S4SG
S!S*L?S. P 0S3W(IS=L(FW 0SJ)T(A2S[8,20])SQSdShSZL#FW 0SgP	LDS{TT 0S}W(I3)T(A0)[12,0]T	L.FW 0TP(E)T! 0T#@;F5TRTAF;T7TKLLLTO!F#Tf

U
UUToLFTyLT}x=F)F#FLUj!
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