function pinta_facetas(resolucion,grafica,xmax,ymax)
%Función que representa gráficamente el mapa de las facetas a la resolución
%especificada
global FACETAS;
mat=('krb'); %Color materiales
col='k';
[num_facetas ~]=size(FACETAS);
if(grafica==0)
    figure(1);
    title('Mapa de las facetas');
end
axis([0 xmax 0 ymax]);
hold on;
xlabel('x (metros)')
ylabel('y (metros)')
for num=1:num_facetas
    x1=FACETAS(num,1);
    y1=FACETAS(num,2);
    x2=FACETAS(num,3);
    y2=FACETAS(num,4);
    if(FACETAS(num,7)>3)
        col='k';    %Para materiales alternativos
    else
        col=mat(FACETAS(num,7));
    end
    
    if(x1~=x2)
        m=(y2-y1)/(x2-x1);
        xm=(min(x1,x2):resolucion:max(x1,x2));
        muro=m*(xm-x1)+y1;
        plot(xm,muro,col,'LineWidth',3);
    end
    if(x1==x2)
        ym=(min(y1,y2):resolucion:max(y1,y2));
        plot(x1*ones(1,length(ym)),ym,col,'LineWidth',3)
    end
end
end