Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/x_label.cdd-plot
There are 3 other files named x_label.cdd-plot in the archive. Click here to see a list.
{\
ie\<\\CNT\\J\TEMP\LABELMAX`\\$\*\0\6\\B]^\]4^	];]L]8]E!4\]I x!V@]Q]V]m]s^ 0]SP	\]e\$]i P 0]pW(ES1)V]|\$^!  0^[+780]W(VS0)\

__^{\*\^!_ 0_
T(B)[10,6]Z\-1#\6\DR\*\ P 0YT(B)dwm\6\
DEFINE PLOT X_LABEL
DECLARE CNT, J_TEMP,  LABEL_MAX
ENTRY 0 (X_REF,
         Y_REF,

         X_STRIDE,
	         X_SKIP,
         X_LABELS : STRING VECTOR)
BEGIN
    INCR CNT OVER X_LABELS
        IF LENGTH(X_LABELS(CNT)) GT LABEL_MAX THEN
            LABEL_MAX = LENGTH(X_LABELS(CNT))
    IF LABEL_MAX * 9 GT X_STRIDE THEN
        IF 20 + LABEL_MAX * 6 GT 45 THEN
            PRINT "P", LXY(X_REF,Y_REF + 2), "W(ES1)V",
		LY(Y_REF + 125), "[+780]W(VS0)"
    INCR CNT OVER X_LABELS
    BEGIN
        PRINT "P", LXY(X_REF + X_SKIP + (CNT  - 1) *
	    (X_STRIDE + X_SKIP),Y_REF + 15)
        IF LABEL_MAX * 9 GT X_STRIDE THEN
            PRINT "T(B)[10,6]" ELSE
        BEGIN
            J_TEMP = LENGTH(X_LABELS(CNT)) * 9
            PRINT "P", RX((X_STRIDE  - J_TEMP) / 2), "T(B)"
        END
        PRINT QUOTE(X_LABELS(CNT)), "(E)"
    END
END
END_PLOT