function T=maketip(x, y)
%MAKETIP Make the tip matrix from a profile

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

A=1;
B=length(x);
C=find(y==min(min(y)));

T=zeros(B);


for col=A:C
  for row=A:B
    l=sqrt((C-col)^2 + (row-B/2)^2);
      if l < C-A
        T(row,col)=y(C-l);
      else
        T(row,col)=y(A);
      end
  end
end

for col=C+1:B
  for row=A:B
    l=sqrt((C-col)^2 + (row-B/2)^2);
      if l < B-C
        T(row,col)=y(C+l);
      else
        T(row,col)=y(B);
      end
  end
end

return