clf

cgw=[.991 .991 .991];
cg1=[.9 .9 .9];
cg2=[.8 .8 .8];
cg3=[.6 .6 .6];
cg4=[.5 .5 .5];
cg5=[.4 .4 .4];
cg6=[.3 .3 .3];
cgb=[.0001 .0001 .0001];

axis([-76 -60 36 48])
set(gca,'AspectRatio',[NaN,cos(42*pi/180)])

hold on

fillseg(bathy(i4000,:),[cg5;cg4],[cg5;cg4]);
fillseg(bathy(i2000,:),cg3,cg3);
fillseg(bathy(i200,:),[cg2;cg3],[cg2;cg2]);
fillseg(bathy(i100,:),cg1,cg1);
fillseg(bathy(i60,:),cgw,cgw);
fillseg(coast,cgb,cgb);
hold off
figure(gcf)
