G& V Gy L MJ 0 G: G* 0 G,L LABEL 0 GN G> 0 G@XALABEL P G G Ft Fs JCNT F^ Fy K Fc Fb TALLY FM Fh OFFSET FS FQ BARWIDTH FX FW BARX F* F] BARY F0 F/ YREF F6 F4 YLENGTH F; F: YMIN FA F@ YMAX FG FE YSCALE F FK YLABEL F F XREF F F XLENGTH F F XMIN F$ F# XMAX F) XSCALE Kf Ga Gg Gm Gs 0 G& Gf 0 XLABEL 0 Ga Gl 0 LABEL1 0 Gg Gr 0 LABEL2 0 Gm Gx 0 LABEL3
H H H H& H1 H; H? HU Hk I I I/ IH I^ It J 9 H HOUSEKEEP H 0 H 0
H$ L"X"FFFFFFFFFFFFFFFF H, 0
H. L"Y"FFFFFFFFFFFFFFFF H6 0
H9 L"Z"FFFFFFFFFFFFFFFF HI HP GN HM 0 0 HS X H Hf G Hc 0 0 Hu Gg G& Hy 0 GN IV X 0 I\ Z Ih Io G Il X X J Gs G& J X F J
!y F* J% "6@ F J3 "R` F0 JB "5p JF 0 F F* F F0 Ga FG 9 JH LABEL
Fi K1 G& K5 KP F^ K F^ Kc 0 MD Kt Ky L L 0 G& Kx 0 X Kt K~ Y1 Ky L Y2 L L
Y3 L L5 LZ L~ M# L Kt G: L) L L- G: 0 L? Ky Fz LM LD LQ Fz 0 Ld L Fz Lr Lh Lv Fz 0 M L Fz M M
FM N P N ( Fi F* FM Ft G: 9 N X_LABEL F6 Ni Fz F; N| Fz O F6 F; 9 O LABEL O$ Fz 9 O& LABEL O8 0 O: @:A Fo OJ F^ Ud 0 P
P QW R R TC TI OS OW Og Oj P 0 OU T(A0)W(I0S O` F* Od 0 0 Oi )P Ot O{ F Ox
0 F* P 0 0 P V Fi Q' G: P# PJ Pz Q# Fc P@ P9 Fo P2 P= Fi P6 0 X FS P` PY Pj F P]
0 FM Ps Fi Pw 0 FX Q
Fz Fc Q FS FX Q- Q1 QA QT 0 Q/ T(A1)W(S Q: F* Q> 0 QJ GN Fo 0 QV ) Q] Q` Qs Qw R 0 Q_ W(I Qi G Fo 0 Qv )P Q{ R F R
0 F* R 0 0 R V Fi T G: R/ RV S S0 S4 Fc RM RF Fo R? RJ Fi RC 0 X FS Rl Re Rv F Ri
0 FM S Fi S 0 FX S Fz Fc S! FS FX S8 S\ SB SR G Fi Fz Fc Sf Sv G Fi Fz Fc Sz T
T T" T? 0 S} W(S0I T G Fo 0 T! )P T, T8 F T0
0 F* T< 0 0 TB V Fi U^ G: TZ U U1 UZ Fc Tw Tp Fo Ti Tt Fi Tm 0 X FS U U U! F U
0 FM U* Fi U. 0 FX UA Fz Fc UK FS FX Uk 0 Um T(A0)@;@A Us H F F* F F0 FM G GN G G& 9 Uu LEGEND
U| 9 U~ 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 TALLY, OFFSET
DECLARE CNT, JCNT, 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
TALLY = TALLY + 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)