/* ----------------------------------------------------   */
/*                      FILL.G                            */
/*  proc fill to put series of different lengths on graph */
/* ----------------------------------------------------   */

proc(1) = fill(x,y);
    if rows(x) < rows(y);
        retp( (x|(ones(rows(y)-rows(x),1).*x[rows(x),.]))~y);
    endif;
    if rows(x) > rows(y);
        retp( x~(y|(ones(rows(x)-rows(y),1).*y[rows(y),.])));
    endif;
    if rows(x) == rows(y);
        retp(x~y);
    endif;
endp;