function trace_maillage_2D(CONNEC,COOR,no)

   xbasc(no);
   xset("window",no);
   xset("default")

   x = COOR(:,1); y = COOR(:,2);
   n = length(x);
   nums = (1:n)';
   e = .1;
   lx = max(x); ly = max(y);

   plot2d([0;lx;lx;0;0],[0;0;ly;ly;0],1,strf="020")
   xset("mark size",3);
   plot2d(x,y,style=[-1],strf="020");
   for i=1:n
     xstring(x(i),y(i),string(i))
   end;
   
   [Nel, Nno] = size(CONNEC);
   xset("pattern",5);
   xset("font",3,3);
   xset("use color",1);

   jmax = min([Nno 4]);
   for i = 1:Nel 
       xel = x(CONNEC(i,1:jmax));
       yel = y(CONNEC(i,1:jmax));

       xb = sum(xel)/jmax;
       yb = sum(yel)/jmax;

       xel = [xel;xel(1)];
       yel = [yel;yel(1)];

       plot2d(xel,yel,style=[7],strf="000")
       
       d = .3*(xb-xel(1))
       xstring(xb-d,yb-d,string(i))
   end
xrect(0,ly,lx,ly);

endfunction;
