function plota_suporte(a,elem,tensorial,p,malha,pasta,plota,estagio)
%!!! plotar o suporte usando celulas_no_suporte em vez do vetor a
np = size(p,1);
assert(size(p,2) == 2);
assert(size(a,1) == np);
C = elem.centro;
R = elem.raio_abs;
assert(size(C,1) == 1);
assert(size(C,2) == 2);
assert(size(R,1) == 1);
assert(size(R,2) == 2);
eps = 0.001*max(malha.LD./malha.NC);
%meu: o pontinho eh aqui
plota_centro_e_raio(C(1,1),C(1,2),R(1,1),R(1,2),tensorial,eps)
for i = 1:np
    if a(i,1) ~= 0
        plot(p(i,1),p(i,2),'x');
        hold on
    end
end
title(sprintf('suporte do elemento %s',...
    estagio),'FontSize',20);
axis equal
pmin = malha.CD - 0.5*malha.LD;
pmax = malha.CD + 0.5*malha.LD;
xlim([pmin(1), pmax(1)]);
ylim([pmin(2), pmax(2)]);
if plota.salva_eps
    saveas(gcf,sprintf('%s/suporte.eps',pasta));
end

