function ShowMeshAnimate(nodes,steps);
%ShowMesh(...)
%  shows a graph of the mesh
%
%ShowMesh(nodes,elem);
%nodes, elem contain information about the mesh
%         see ReadMesh() for the description of the format
%
%see also ReadMesh, FEMEquation, FEMSolve, ShowSolution, FEMValue")

if (nargin!=2) 
  help("ShowMeshAnimate");
  usage("ShowMeshAnimate(nodes,steps)");
endif


x=nodes(:,1);
y=nodes(:,2);

for k=1:steps:length(nodes)
  plot(x(1:k),y(1:k),"+");
  pause();
endfor
plot(x,y,"+");

endfunction
