# VMT_PlotShorelineFilled

## PURPOSE

Plots a shoreline map given the shoreline data structure 'Map' (see

## SYNOPSIS

function VMT_PlotShorelineFilled(Map)

## DESCRIPTION

     Plots a shoreline map given the shoreline data structure 'Map' (see
     VMT_LoadMap.m) on the current map

     Shoreline is is filled with channel cutout in this version.

     See Also: VMT_PlotShoreline

     P.R. Jackson, 12-9-08

## CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

## SOURCE CODE

    0001 function VMT_PlotShorelineFilled(Map)
    0002 % Plots a shoreline map given the shoreline data structure 'Map' (see
    0003 % VMT_LoadMap.m) on the current map
    0004 %
    0005 % Shoreline is is filled with channel cutout in this version.
    0006 %
    0007 % See Also: VMT_PlotShoreline
    0008 %
    0009 % P.R. Jackson, 12-9-08
    0010
    0011 brks = find(Map.UTMe == -9999);
    0012
    0013 for i = 1:length(brks)+1
    0014     if i == 1
    0015         ll = 1;
    0016         if ~isempty(brks)
    0017             ul = brks(i)-1;
    0018         else
    0019             ul = length(Map.UTMe);
    0020         end
    0021         indx =ll:ul;
    0022         figure(gcf); hold on
    0023         patch(Map.UTMe(indx),Map.UTMn(indx),'k','EdgeColor',[0.706 0.706 0.573],'LineWidth',1); hold on
    0024     elseif i == length(brks)+1
    0025         ll = brks(i-1)+1;
    0026         ul = length(Map.UTMe);
    0027         indx =ll:ul;
    0028         figure(gcf); hold on
    0029         patch(Map.UTMe(indx),Map.UTMn(indx),[0.8,0.733,0.533],'EdgeColor',[0.706 0.706 0.573],'LineWidth',1); hold on
    0030     elseif i > 1 & i < length(brks)+1
    0031         ll = brks(i-1)+1;
    0032         ul = brks(i)-1;
    0033         indx =ll:ul;
    0034         figure(gcf); hold on
    0035         patch(Map.UTMe(indx),Map.UTMn(indx),[0.8,0.733,0.533],'EdgeColor',[0.706 0.706 0.573],'LineWidth',1); hold on
    0036     end
    0037 end
    0038 %xlabel('UTM Easting (m)')
    0039 %ylabel('UTM Northing (m)')
    0040 set(gca,'DataAspectRatio',[1 1 1],'PlotBoxAspectRatio',[1 1 1])