input constantes;
input geometriepoint;
beginfig(1);
  affixe.D(u*(0,5))no;
  affixe.I(u*(2,0))s;
  affixe.A(u*(6,5))ne;
  draw triangle(D,I,A);
  affixe.E(1/3[z.D,z.A])n;
  affixe.F(1/3[z.D,z.I])so;
  affixe.G(2/7[z.I,z.D])so;
  affixe.H(2/7[z.I,z.A])se;
  drawarrow z.D--z.E withpen pencircle scaled 2bp;
  drawarrow z.E--z.F withpen pencircle scaled 2bp;
  drawarrow z.F--z.G withpen pencircle scaled 2bp;
  drawarrow z.G--z.H withpen pencircle scaled 2bp;
  drawarrow z.H--z.A withpen pencircle scaled 2bp;
endfig;
end