Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/x_label.cdd-plot
There are 3 other files named x_label.cdd-plot in the archive. Click here to see a list.
FFFCNTFFJCNTFLABELMAXJFF$F)F/F5FFBGHFG4H	G;GLG8GE!4FGI x!V@GPGUGmGrH 0GSP	FGdF$Gh P 0GoW(ES1)VG{F$H!  0H[+780]W(VS0)F

I^H{F)FH!I 0I
T(B)[10,6]IIYFI-II1I#F5FDIQF)F P 0IXT(B)IcIvIlF5F
DEFINE PLOT X_LABEL
DECLARE CNT, JCNT,  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
            JCNT = LENGTH(X_LABELS(CNT)) * 9
            PRINT "P", RX((X_STRIDE  - JCNT) / 2), "T(B)"
        END
        PRINT QUOTE(X_LABELS(CNT)), "(E)"
    END
END
END_PLOT