function trace_maillage_2D(nex,ney,COOR,CONNEC)


   xbasc(0);
   xset("window",0);
   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);
   for i = 1:Nel 
       x3 = x(CONNEC(i,3)); y1 = y(CONNEC(i,1)); y9=y(CONNEC(i,9));
       x4 = x(CONNEC(i,4)); y4 = y(CONNEC(i,4));
       w = x3-x4; h = y4-y1;
       xrect(x4,y4,w,h);
       xx = (x3+x4)/2;  yy = (y4+y9)/2;
       xstring(xx,yy,string(i))
   end
//   xgrid();
endfunction;
