input constantes;
input geometriepoint;
beginfig(1);
  affixe.F(u*(1,1))so;
  affixe.U(u*(6,1))se;
  path cc;
  cc=cercledia(F,U);
  affixe.M(1/2[z.F,z.U]);
  affixe.S(arccercle(F,U,M) intersectionpoint (z.U--(z.F rotatedabout(z.U,40))))s;
  affixe.R(arccercle(S,U,M) intersectionpoint (z.U--(z.F rotatedabout(z.U,70))))s;
  affixe.L(cc intersectionpoint (z.F--(z.U rotatedabout(z.F,65))))n;
  affixe.E(arccercle(U,F,M) intersectionpoint (z.F--(z.U rotatedabout(z.F,35))))n;
  draw triangle(F,L,U);
  draw z.F--z.E--z.U;
  draw z.F--z.S--z.U;
  draw z.F--z.R--z.U;
endfig;
end