%%%%%%%%%%%%%%%%%%%%%%%%
 input boxes;
 
 midhsep:=3cm;
 hsepf:=1cm;
 
 vardef sepfamMid (suffix a,b) :=
     a.e=b.w-(midhsep,0);
 enddef;
 
 vardef lesboites (text t) :=
   forsuffixes $=t :
     boxit.$(str $);
   endfor;
 enddef;
 
 

 beginfig(1);
   lesboites(david,sarah,yann,elsa);
   elsa.e-david.w=yann.e-sarah.w=-(hsepf,0);
   sepfamMid(david,yann);
   %%
   %%drawboxed(yann,elsa);
   %%drawboxed(david,sarah);
   %%
   drawboxed(yann,elsa,david,sarah);
 endfig;
 end
 

 %%%%%%%%%%%%%%%%%%%%%%%%
 input boxes;
 
 midhsep:=3cm;
 hsepf:=1cm;
 
 vardef sepfamMid (suffix a,b) :=
     a.e=b.w-(midhsep,0);
 enddef;
 
 vardef lesboites (text t) :=
   forsuffixes $=t :
     boxit.$(str $);
   endfor;
 enddef;
 
 

 beginfig(1);
   lesboites(david,sarah,yann,elsa);
   elsa.e-david.w=yann.e-sarah.w=-(hsepf,0);
   sepfamMid(david,yann);
   %%
   drawboxed(yann,elsa);
   drawboxed(david,sarah);
   %%
   %%drawboxed(yann,elsa,david,sarah);
 endfig;
 end
 

 input boxes;
 
 vardef lesboites (text t) :=
    forsuffixes $=t :
      boxit.$(str $);
    endfor;
 enddef;
 
 

 beginfig(0);
    lesboites(elsa,david,yann,sarah);
    elsa.e-david.w=yann.e-sarah.w=-(1cm,0);
    david.e-yann.w=-(3cm,0);
    %%
    draw bpath yann withcolor red;
    draw pic elsa withcolor blue;
    draw pic david;
    draw bpath sarah withcolor .5white;
 endfig;
 end
 

 input boxes;
 
 vardef lesboites (text t) :=
    forsuffixes $=t :
      boxit.$(str $);
    endfor;
 enddef;
 
 vardef effacetout (text t) :=
    drawboxed(t);
    forsuffixes $=t :
 	undraw bpath $ withpen pencircle scaled 2bp;
 	unfill bpath $;
    endfor;
 enddef;
 
 

 beginfig(0);
    lesboites(elsa,david,yann,sarah);
    elsa.e-david.w=yann.e-sarah.w=-(1cm,0);
    david.e-yann.w=-(3cm,0);
    %%
    effacetout(elsa,david,yann,sarah);
    draw bpath yann withcolor red;
    draw pic elsa withcolor blue;
    draw pic david;
    draw bpath sarah withcolor .5white;
 endfig;
 end
 

 input boxes;
 
 vardef lesboites (text t) :=
    forsuffixes $=t :
      boxit.$(str $);
    endfor;
 enddef;
 
 vardef fixboites(text t) =
     fixsize(t);
     fixpos(t);
 enddef;
 
 

 beginfig(0);
    lesboites(elsa,david,yann,sarah);
    elsa.e-david.w=yann.e-sarah.w=-(1cm,0);
    david.e-yann.w=-(3cm,0);
    fixboites(elsa,david,yann,sarah);
    draw bpath yann withcolor red;
    draw pic elsa withcolor blue;
    draw pic david;
    draw bpath sarah withcolor .5white;
 endfig;
 end