
% plot boundary of triangle found by 'find_tri_boundary'
% x,y give vertex positions, B is list of boundary edges 

function  plot_tri_boundary(x,y,B)
   for k=1:size(B,1)
      x1=x(B(k,1));
      y1=y(B(k,1));
      x2=x(B(k,2));
      y2=y(B(k,2));
      plot([x1;x2],[y1;y2],'r','Linewidth',2);
   end
return
