function [] = RingChar(V)

X = List2Mat(V(:,1));
Y = List2Mat(V(:,2));

n = length(V)/9;

T = -2:4;
m = 15;
t = linspace(0,2,m);
clf reset

hold on
for k=1:n
  [xx,yy,zz] = seval(X{k},Y{k},0*X{k},T,T,t,t);
  h = mesh(xx,yy,zz);
  set(h,'EdgeColor','b')
  h = mesh(X{k},Y{k},0*X{k});
  set(h,'EdgeColor','r')
end
view(0,90)
axis equal