input geometriesyr16;

figure(-u,-u,10u,10u);
coinbd:=(8u,0);
coinhd:=(8u,7u);
coinhg:=(0,7u);
coinbg:=(0,0);
path cc;
cc=coinhd--coinhg--1/4[coinhg,coinbg]..u*(1,4)..(u*(1.25,2))%
..u*(1.5,0.5)..2/5[coinbg,coinbd]..3/5[coinbg,coinbd]%
..u*(5,1)..u*(5.5,3)..u*(7,4.5)..3/4[coinbd,coinhd]..cycle;
picture im;
im=image(
  trace papiercahier withcolor bleu;
  clip currentpicture to cc;
  );
trace im;
pair A,B,C,I,J;
B=u*(1,1.5);
C-B=u*(6,-0.75);
A-B=u*(3,5);
I=iso(A,B);
J=iso(A,C);
trace cc;
trace demidroite(A,I) cutafter cc;
trace demidroite(A,J) cutafter cc;
nomme.ulft(A);
marque_p:="plein";
nomme.lrt(I);
nomme.urt(J);
fin;

end