%% Choix de LaTeX
verbatimtex
%&latex
\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage[frenchb]{babel}
\begin{document}
etex
%%[geometrie]
input geometriepoint;
input constantes;
beginfig(1);
  affixe.O(u*(0,0));
  affixe.A(u*(3,3));label.top(btex $A$ etex,z.A);
  affixe.B(z.A shifted (u*(10,1)));label.top(btex $B$ etex,z.B);
  affixe.C(z.A shifted (u*(0,2)));
  affixe.D(z.B shifted (u*(0,2)));
  affixe.E(z.A shifted (u*(0,-2)));
  affixe.F(z.B shifted (u*(0,-2)));
  affixe.G(z.C shifted (u*(0,0.5)));
  affixe.H(z.D shifted (u*(0,0.5)));
  croix(A);croix(B);
  path cerc,cer,elli,ellip;
  cerc=cercle(O,2*u);  elli=cerc xscaled 0.5 shifted z.A;
  ellip=cerc xscaled 0.5 shifted z.B;
  %draw cerc;draw cer;
  draw elli;
  draw z.A--z.B dashed evenly;
  draw z.C--z.D;
  draw z.E--z.F;
  draw subpath((length ellip)/4,0.75*(length ellip)) of ellip dashed evenly;
  draw subpath(0.75*(length ellip),(length ellip)) of ellip;
  draw subpath(0,(length ellip)/4) of ellip;
  drawdblarrow z.G--z.H;
  affixe.I(z.G shifted (u*(5,0)));
  label.top(btex $l$ etex,z.I);
endfig;
end