% plot a triangulation

function plot_tri(x,y,tri)

%figure;
hold on;
axis equal;
axis off;
N=size(tri,1);
for k=1:N
x1=x(tri(k,1));
y1=y(tri(k,1));
x2=x(tri(k,2));
y2=y(tri(k,2));
x3=x(tri(k,3));
y3=y(tri(k,3));
plot([x1;x2;x3;x1],[y1;y2;y3;y1],'b','LineWidth',2)
end % for k

return