verbatimtex
%&latex
\documentclass{article}
\usepackage{mathrsfs}
\begin{document}
etex
%%

input geometriesyr16;

figure(0,0,13u,14.5u);
trace grille(0.5) withcolor orange;
pair M[],A,B,C,D,E,F,G,H;
M1=pp(1,2);
M2=pp(7,3);
M3=pp(4,7);
path figu[];
figu1=triangle(M1,M2,M3);
remplis figu1 withcolor blanc;
trace figu1;
label(btex $\mathscr F$ etex,iso(M1,M2,M3));
A=pp(2,7);
B=pp(8,8);
drawarrow A--B withpen pencircle scaled 1.5bp;
nomme.llft(A);
nomme.lrt(B);
M1:=pp(15,2);
M2:=pp(18,2);
M3:=pp(21,5);
M4:=pp(15,5);
figu2=M1--M2--M3--arccercle(M3,M4,iso(M3,M4))--cycle;
remplis figu2 withcolor blanc;
trace figu2;
label(btex $\mathscr G$ etex,iso(M1,M2,M3,M4,pp(18,8)));
trace M3--M4 dashed evenly;
marque_p:="plein";
pointe(iso(M3,M4));
marque_p:="non";
trace codesegments(M3,iso(M3,M4),iso(M3,M4),M4,2);
C=pp(23,7);
D=pp(19,15);
drawarrow C--D withpen pencircle scaled 1.5bp;
nomme.lrt(C);
nomme.ulft(D);
M1:=pp(2,15);
M2:=pp(4,11);
M3:=pp(4,13);
M4:=pp(6,15);
M10:=pp(4,15);
M5:=symetrie(M1,M10);
M6:=symetrie(M2,M10);
M7:=symetrie(M3,M10);
M8:=symetrie(M4,M10);
figu3=M1--M2--M3--M4--M5--M6--M7--M8--cycle;
remplis figu3 withcolor blanc;
trace figu3;
label(btex $\mathscr H$ etex,M10);
E=pp(10,22);
F=pp(8,18);
marque_p:="croix";
nomme.bot(F);
nomme.top(E);
M1:=pp(8,27);
M2:=pp(8,24);
M3:=pp(10,23);
M4:=pp(12,24);
M5:=pp(14,23);
M6:=pp(16,24);
M7:=pp(16,27);
M8:=pp(14,27);
M9:=pp(14,28);
M10:=pp(10,28);
M11:=pp(10,27);
figu4=M1--M2--M3--M4--M5--M6--M7--M8--M9--M10--M11--cycle;
remplis figu4 withcolor blanc;
trace figu4;
G=pp(22,19);
H=pp(24,17);
nomme.top(G);
nomme.bot(H);
label(btex $\mathscr I$ etex,iso(M3,M5,M8,M9));
M1:=pp(9,21);
M2:=pp(12,18);
M3:=pp(16,18);
figu5=triangle(M1,M2,M3);
remplis figu5 withcolor blanc;
trace figu5;
label(btex $\mathscr J$ etex,iso(M1,M2,M3));
fin;

figure(0,0,13u,14.5u);
trace grille(0.5) withcolor orange;
drawoptions(dashed evenly);
trace figu1;
trace figu2;
trace figu3;
trace figu4;
trace figu5;
drawoptions();
trace figu1 shifted(B-A) withpen pencircle scaled 1.5bp;
trace figu2 shifted(D-C) withpen pencircle scaled 1.5bp;
trace figu3 shifted(E-F) withpen pencircle scaled 1.5bp;
trace figu4 shifted(H-G) withpen pencircle scaled 1.5bp;
trace figu3 shifted(D-A) withpen pencircle scaled 1.5bp;
trace figu5 shifted(E-D) withpen pencircle scaled 1.5bp;
fin;

figure(0,0,13u,14.5u);
trace feuillet withcolor blanc;
trace grille(0.5) withcolor blanc;
trace figu1 shifted(u*(1,0));
trace figu2;
trace figu3;
trace figu4;
trace figu5;
marque_p:="croix";
nomme.llft(A);
nomme.lrt(B);
nomme.lrt(C);
nomme.ulft(D);
nomme.top(E);
nomme.bot(F);
nomme.top(G);
nomme.bot(H);
M1:=pp(1,2);
M2:=pp(7,3);
M3:=pp(4,7);
label(btex $\mathscr F$ etex,iso(M1,M2,M3) shifted(u*(1,0)));
M1:=pp(15,2);
M2:=pp(18,2);
M3:=pp(21,5);
M4:=pp(15,5);
label(btex $\mathscr G$ etex,iso(M1,M2,M3,M4,pp(18,8)));
M1:=pp(2,15);
M2:=pp(4,11);
M3:=pp(4,13);
M4:=pp(6,15);
M10:=pp(4,15);
M5:=symetrie(M1,M10);
M6:=symetrie(M2,M10);
M7:=symetrie(M3,M10);
M8:=symetrie(M4,M10);
label(btex $\mathscr H$ etex,M10);
M1:=pp(8,27);
M2:=pp(8,24);
M3:=pp(10,23);
M4:=pp(12,24);
M5:=pp(14,23);
M6:=pp(16,24);
M7:=pp(16,27);
M8:=pp(14,27);
M9:=pp(14,28);
M10:=pp(10,28);
M11:=pp(10,27);
label(btex $\mathscr I$ etex,iso(M3,M5,M8,M9));
M1:=pp(9,21);
M2:=pp(12,18);
M3:=pp(16,18);
label(btex $\mathscr J$ etex,iso(M1,M2,M3));
fin;

figure(0,1u,13u,14.5u);
trace feuillet withcolor blanc;
drawoptions(dashed evenly);
trace figu1 shifted(u*(1,0));
trace figu2;
trace figu3;
trace figu4;
trace figu5;
drawoptions();
trace figu1 shifted(G-H+u*(1,0)) withpen pencircle scaled 1.5bp;
trace figu2 shifted(E-C) withpen pencircle scaled 1.5bp;
trace figu3 shifted(H-F) withpen pencircle scaled 1.5bp;
trace figu4 shifted(B-E) withpen pencircle scaled 1.5bp;
trace figu5 shifted(B-A) withpen pencircle scaled 1.5bp;
fin;

end