function [] = RingMesh(P)

n = length(P)/9;

X = List2Mat(P(:,1));
Y = List2Mat(P(:,2));
Z = List2Mat(P(:,3));

T = -2:4;
m = 15;
t = linspace(0,2,m);
hold on
for k=1:n
  [xx,yy,zz] = seval(X{k},Y{k},Z{k},T,T,t,t);
  mesh(xx,yy,zz);
end