function afficher_maillage(fic)
fichier = fic;
%fichier=strcat('~/MAILLAGES/',fic);
fid=fopen(fichier,'r');
figure;
hold on;
couleur=['k','r','g','b','y','m','c','k','r'];
  fscanf(fid,'%s %d \n %s \n %d \n %s',5);
  np=fscanf(fid,'%d',1);
  Coor=fscanf(fid,'%f %f %d\n',[3,np]);
  fscanf(fid,'%s',1);
  nbarete=fscanf(fid,'%d',1);
  Edge=fscanf(fid,'%d %d %d\n',[3,nbarete]);
  type=fscanf(fid,'%s',1);
  if (strcmp(type,'Triangles')==1)
    ne=fscanf(fid,'%d',1);
    for i=1:ne
      NODLE=fscanf(fid,'%d',3);
      ref=fscanf(fid,'%d',1);
      PT=Coor(1:2,NODLE(1:3));
      PT=[PT,Coor(1:2,NODLE(1))];
      plot(PT(1,:),PT(2,:),couleur(ref+1));
      % text(sum(PT(1,1:3))/3,sum(PT(2,1:3))/3,num2str(i))
    end
    type=fscanf(fid,'%s',1);
    if ((strcmp(type,'Quadrangles')==1)|(strcmp(type,'Quadrilaterals')==1))
      quad=1;
    else
      quad=0;
    end
  elseif ((strcmp(type,'Quadrangles')==1)|(strcmp(type,'Quadrilaterals')==1))
    quad=1;
  end
  if (quad==1)
    ne=fscanf(fid,'%d',1);
    for i=1:ne
      NODLE=fscanf(fid,'%d',4);
      ref=fscanf(fid,'%d',1);
      PT=Coor(1:2,NODLE(1:4));
      PT=[PT,Coor(1:2,NODLE(1))];
      % keyboard;
      plot(PT(1,:),PT(2,:),couleur(ref+1))
    end
    type=fscanf(fid,'%s',1);
  end
  clear PT;
  %for i=1:nbarete
  %  PT(:,1:2)=Coor(1:2,Edge(1:2,i));
  %  if (Edge(3,i)~=0)
  %    plot(PT(1,:),PT(2,:),couleur(Edge(3,i)+1))
  %  end
  %end
 

fclose(fid);

