0001 function VMT_PlotShorelineFilled(Map)
0002
0003
0004
0005
0006
0007
0008
0009
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
0039
0040 set(gca,'DataAspectRatio',[1 1 1],'PlotBoxAspectRatio',[1 1 1])