% Fit a spline to a vector of points<BR>
function [xi,yi] = MySpline(x,y,n)
<P>
d = sqrt(diff(x).^2 + diff(y).^2);<BR>
m = length(x);<BR>
t = zeros(1,m);<BR>
for i = 2:m<BR>
   t(i) = t(i-1) + d(i-1);<BR>
end
<P>
base = linspace(0,t(m),n);<BR>
xi = spline(t,x,base);<BR>
yi = spline(t,y,base);