Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/multi_shade.cdd-plot
There are 3 other files named multi_shade.cdd-plot in the archive. Click here to see a list.
G&VGyLMJ0G:G*0G,LLABEL 0GNG>0G@XALABELPGG FtFsJT F^FyK FcFbKOUNT FMFhOFFSET FSFQBARWIDTH FXFWBARX F*F]BARY F0F/YREF F6F4YLENGTH F;F:YMIN FAF@YMAX FGFEYSCALE FFKYLABEL FFXREF FFXLENGTH FFXMIN F$F#XMAX F)XSCALEKfGaGgGmGs 0G&Gf0XLABEL 0GaGl0LABEL1 0GgGr0LABEL2 0GmGx0LABEL3
HHHH&H1H;H?HUHkIII/IHI^ItJ9HHOUSEKEEPH0H 0
H$L"X"FFFFFFFFFFFFFFFFH, 0
H.L"Y"FFFFFFFFFFFFFFFFH6 0
H9L"Z"FFFFFFFFFFFFFFFFHIHPGNHM00HSXHHfGHc00HuGgG&Hy0GNIV X 0I\ZIhIoGIl X XJGsG&J XFJ
!yF*J%"6@FJ3"R`F0JB"5pJF0FF*FF0GaFG9JHLABEL

FiK1G&K5KPF^KF^Kc 0MDKtKyLL 0G&Kx0X KtK~Y1 KyLY2 LL
Y3LL5LZL~M#LKtG:L)LL-G:0L?KyFzLMLDLQFz0LdLFzLrLhLvFz0MLFzMM
FMN PN(FiF*FMFtG:9NX_LABELF6NiFzF;N|	FzOF6F;9OLABEL	O$Fz9O&LABELO8 0O:@:AFoOJF^Ud 0P

PQWRRTCTIOSOWOgOjP 0OUT(A0)W(I0SO`F*Od 0 0Oi)P	OtO{FOx
 0F*P 0 0PVFiQ'G:P#PJPzQ#FcP@P9FoP2P=FiP6 0 XFSP`PYPjFP]
 0FMPsFiPw 0FXQ
FzFcQ	FSFXQ-Q1QAQT 0Q/T(A1)W(SQ:F*Q> 0QJGNFo 0QV)Q]Q`QsQwR 0Q_W(IQiGFo 0Qv)P	Q{RFR
 0F*R 0 0RVFiTG:R/RVSS0S4FcRMRFFoR?RJFiRC 0 XFSRlReRvFRi
 0FMSFiS 0FXSFzFcS!	FSFXS8S\SBSRG	FiFzFcSfSvG	FiFzFcSzT

TT"T? 0S}W(S0ITGFo 0T!)P	T,T8FT0
 0F*T< 0 0TBVFiU^G:TZUU1UZFcTwTpFoTiTtFiTm 0 XFSUUU!FU
 0FMU*FiU. 0FXUAFzFcUK	FSFXUk 0UmT(A0)@;@AUsHFF*FF0FMG	GNGG&9UuLEGEND
U|9U~HOUSEKEEP

DEFINE PLOT MULTI_SHADE
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX, X_SCALE
DECLARE Y_REF, Y_LENGTH, Y_MIN, Y_MAX, Y_SCALE, Y_LABEL
DECLARE BAR_WIDTH, BAR_X, BAR_Y
DECLARE KOUNT, OFFSET

DECLARE CNT, JT, K
DECLARE VECTOR Y_VALUE, Y_MX, COLOR
DECLARE STRING VECTOR L_LABEL, X_LABEL, HATCH
ENTRY 0 (X_LABEL : STRING,
         LABEL_1 : STRING,
         LABEL_2 : STRING,
         LABEL_3 : STRING)
BEGIN
    PLOT HOUSEKEEP 0
    PRINT "S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66))"
	    PRINT "L(A1)"
    PRINT "L""X""FFFFFFFFFFFFFFFF"
    PRINT "L""Y""FFFFFFFFFFFFFFFF"
    PRINT "L""Z""FFFFFFFFFFFFFFFF"
    HATCH(1) = "X"   COLOR(1) = 1   L_LABEL(1) = LABEL_1
    HATCH(2) = "Y"   COLOR(2) = 2   L_LABEL(2) = LABEL_2
    HATCH(3) = "Z"   COLOR(3) = 3   L_LABEL(3) = LABEL_3
"    X_REF = 100    Y_REF = 360    X_LENGTH = 600    Y_LENGTH = 350
!    PLOT LABEL 0 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,X_LABEL,Y_LABEL)
LLABEL
        IF LENGTH(L_LABEL(CNT)) NE 0 THEN
            KOUNT = KOUNT + 1
END
ENTRY 1 (X : STRING, Y1 : REAL ,
	Y2 : REAL ,
	Y3 : REAL )
BEGIN
    X_LABEL(SIZE(X_LABEL) + 1) = X
    Y_VALUE(SIZE(Y_VALUE) + 1) = Y1
    Y_VALUE(SIZE(Y_VALUE) + 1) = Y2
    Y_VALUE(SIZE(Y_VALUE) + 1) = Y3
    Y_MX(SIZE(Y_MX) + 1) = 5000
END
ENTRY 2
BEGIN
    BAR_WIDTH =  (X_LENGTH - 2) / (SIZE(X_LABEL) - 1)
    CNT = X_REF - BAR_WIDTH / 2
    PLOT X_LABEL 0 (CNT, Y_REF, BAR_WIDTH, K, X_LABEL)
VALUE)
VALUE)
    PLOT LABEL 3 (Y_MIN,Y_MAX)
    PLOT LABEL 8 (Y_VALUE)
    PRINT "@:A"
    INCR JT FROM 1 TO KOUNT
    BEGIN
(        PRINT "T(A0)W(I0S", LY(Y_REF - 1), ")P", LXY(X_REF + 1,Y_REF - 1), "V"
        INCR CNT OVER X_LABEL
        BEGIN
            OFFSET =  (CNT - 1) * 3 + JT
            BAR_X = X_REF + 1 + BAR_WIDTH * (CNT  - 1)
            BAR_Y = Y_VALUE(OFFSET)
            PRINT LXY(BAR_X,BAR_Y)
        END
         PRINT "T(A1)W(S", LY(Y_REF - 1), QUOTE(HATCH(JT)), ")"
%        PRINT "W(I", CVT(COLOR(JT)), ")P", LXY(X_REF + 1,Y_REF - 1), "V"
        INCR CNT OVER X_LABEL
        BEGIN
            OFFSET =  (CNT  - 1) * 3 + JT
            BAR_X = X_REF + 1 + BAR_WIDTH * (CNT  - 1)
            BAR_Y = Y_VALUE(OFFSET)
            PRINT LXY(BAR_X,BAR_Y)
            IF Y_MX(CNT) > Y_VALUE(OFFSET) THEN
                Y_MX(CNT) = Y_VALUE(OFFSET)
        END
&        PRINT "W(S0I", CVT(COLOR(JT)), ")P", LXY(X_REF + 1,Y_REF  - 1), "V"
        INCR CNT OVER X_LABEL
        BEGIN
            OFFSET =  (CNT  - 1) * 3 + JT
            BAR_X = X_REF + 1 + BAR_WIDTH * (CNT  - 1)
            BAR_Y = Y_VALUE(OFFSET)
            PRINT LXY(BAR_X,BAR_Y)
        END
    END
    PRINT "T(A0)@;@A"
	+    PLOT LEGEND 3 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,BAR_WIDTH,Y_MX,HATCH,COLOR,L_LABEL)
    PLOT HOUSEKEEP 2
END
END_PLOT