function []=dofoo(c);
hold off
axis('square')
ax=[210 260 130 180];   % dimensions of plot in Stae Plane Coords (km)
axis(ax)
buoyb=[242.4574  152.7128];  % Buoy B location in State Plane Coords (km)
origin=buoyb;
%
load mbay.sp
plot(mbay(:,1)/1000,mbay(:,2)/1000)      % convert to km
xlabel('km')
ylabel('km')
%
hold on
[mc,nc]=size(c);
    k1=1;
    while (k1<nc),
      lev=c(1,k1);
      len=c(2,k1);
      k2=k1+len;
      c(:,k1)=c(:,k1)*NaN;
      k1=k2+1;
    end
    c(1,:)=c(1,:)+origin(1);
    c(2,:)=c(2,:)+origin(2);
    mplot(c','g-');
    hold on
end
%
plot([ax(1) ax(2)],[origin(2) origin(2)],'c6')  % draw crosshairs on origin
plot([origin(1) origin(1)],[ax(3) ax(4)],'c6')
