function p = spline_plot(coefs,plotsymbol)

if nargin == 1,
  plotsymbol = 'r';
end;
L = size(coefs,2)-3;
npoints = 200;
s = linspace(3,L+3-L/npoints,npoints)';
[x,y] = evaluate_spline_curve(repmat(coefs,[1,1,npoints]),s);
if nargout == 0 || nargin == 2,
  p = plot([x;x(1)],[y;y(1)],plotsymbol);
else,
  p = [[x;x(1)],[y;y(1)]];
end;