function ccylnrm(s)
% ccylnrm(s) - Fix the normals closed cylinder.
%              Called by eknot.m 

%   Copyright (c) 1984-98 by The MathWorks, Inc. All Rights Reserved
%   $Revision: 1.3 $
%   $Date: 1997/11/21 19:38:42 $

n = get(s, 'vertexn');

n(:,1,:) = ( n(:,1,:) + n(:,end,:) ) / 2;
n(:,end,:) = n(:,1,:);

n(1,:,:) = ( n(1,:,:) + n(end,:,:) ) / 2;
n(1,:,:) = n(1,:,:);

set(s, 'vertexn', n);
