input constantes;
input geometriepoint;
beginfig(1);
  u:=0.75cm;
  affixe.C(u*(4,1))so;
  affixe.O(u*(4,3))no;
  draw droite(O,C,1.25) dashed evenly;
  affixe.K(u*(4,0));
  affixe.L(u*(3.5,-0.5));
  affixe.M(z.L reflectedabout(z.C,z.O));
  fill (z.K--z.L--z.M--cycle) withcolor noir;
  draw z.C--z.K;
  affixe.A(u*(1,3))no;
  affixe.B(z.A reflectedabout(z.C,z.O))ne;
  draw triangle(C,B,A);
  draw segment(A,B) dashed evenly;
  affixe.E(2/5[z.C,z.A])so;
  affixe.F(z.E reflectedabout(z.O,z.C))se;
  draw z.E--z.F;
  affixe.I(droite(O,C,1.25) intersectionpoint segment(E,F))so;
endfig;
beginfig(2);
  u:=1cm;
  affixe.F(u*(1,1))so;
  affixe.E(u*(4,1))se;
  affixe.D(u*(3,2))s;
  affixe.C(u*(1,4))o;
  affixe.A(z.D shifted(z.C-z.F))n;
  affixe.B(z.E shifted(z.C-z.F))e;
  draw z.C--z.F--z.E--z.B--z.A--cycle;
  draw z.C--z.B--z.F;
  draw z.A--z.D--z.F dashed evenly;
  draw z.B--z.D--z.E dashed evenly;
endfig;
end