Source

verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\usepackage[latin1]{inputenc}
\usepackage{mathrsfs}
\begin{document}
etex

input geometriesyr16;

figure(0,0,6u,6u);
trace feuillet;
pair O,A,B;
O=u*(1,1);
A=u*(2,1);
B=u*(5,2);
label.rt(btex \footnotesize centre $O$, d'angle 40\degres,
dans le sens positif etex,u*(0,5.5));
marque_p:="croix";
nomme.llft(O);
nomme.llft(A);
nomme.urt(B);
trace A--B;
fin;

figure(0,0,6u,6u);
trace feuillet;
pair B,A,E,F,G;
A=u*(1,3);
E=u*(3,3.5);
F=2/5[E,rotation(A,E,-90)];
G-F=A-E;
B=u*(4.25,4.25);
trace A--E--F--G--cycle;
trace codeperp(A,E,F,5);
trace codeperp(E,F,G,5);
trace codeperp(F,G,A,5);
label(btex $\mathscr F$ etex,iso(A,E,F,G));
label.rt(btex \footnotesize centre $B$, d'angle 80\degres,
dans le sens positif etex,u*(0,5.5));
nomme.top(B);
fin;

figure(0,0,6u,6u);
trace feuillet;
label.rt(btex \footnotesize centre $P$, d'angle 110\degres,
dans le sens négatif etex,u*(0,5.5));
pair A,B,P,R,T;
A=u*(3.5,2);
B=u*(4.5,4);
R=u*(4.25,1.5);
T=iso(B,R);
trace A--R--arccercle(R,B,T)--B--cycle;
P=u*(3.25,4.25);
nomme.urt(P);
pointe(T);
label.rt(btex $\mathscr F$ etex,T);
trace B--R dashed evenly;
fin;

figure(0,0,6u,6u);
trace feuillet;
label.rt(btex \footnotesize centre $J$, d'angle 53\degres,
dans le sens négatif etex,u*(0,5.5));
pair J,A,B,C,D,E,F;
J=u*(1,1);
nomme.llft(J);
A=u*(1.5,4);
B=u*(1.5,5);
C=u*(2.5,4.5);
D=u*(4,4.5);
F=iso(C,D);
E=u*(4,4);
trace A--E--D--arccercle(D,C,F)--B--cycle;
trace C--D dashed evenly;
pointe(F);
label.llft(btex $\mathscr F$ etex,F);
fin;

figure(0,0,10u,7u);
pair E,F,P,A,B,O;
path fig;
trace grille(0.5) withcolor orange;
fig=u*(2.5,1)--u*(3,1.5)--u*(3.5,1)--u*(3.5,2)--%
u*(2.5,2)--cycle;
transparence fig;
trace fig withpen pencircle scaled 1.5bp;
E=u*(1.5,4);
F=u*(5,4);
P=u*(6,2);
A=u*(1,2);
B=u*(4,1.5);
O=u*(4,5.5);
pointe(E,F,P,A,B,O);
nomme.top(E);
nomme.top(F);
nomme.top(P);
nomme.lft(A);
nomme.lrt(B);
nomme.top(O);
fin;

figure(0,0,10u,7u);
trace grille(0.5) withcolor orange;
path fig;
fig=(arccercle(u*(1,1.5),u*(1,0.5),u*(1,1))--u*(4,0.5)--%
u*(1.5,1)--u*(1.5,1.5)--cycle) shifted(u*(0,4));
transparence fig;
trace fig withpen pencircle scaled 1.5bp;
pair E,F,P,A,B,O;
E=u*(1,3);
F=u*(7,5);
P=u*(5,4);
A=u*(1,4);
B=u*(3.5,0.5);
O=u*(6,6);
pointe(E,F,P,A,B,O);
nomme.top(E);
nomme.top(F);
nomme.top(P);
nomme.lft(A);
nomme.lrt(B);
nomme.top(O);
fin;
%correction

figure(0,0,6u,6u);
trace feuillet;
pair O,A,B;
O=u*(1,1);
A=u*(2,1);
B=u*(5,2);
label.rt(btex \footnotesize centre $O$, d'angle 40\degres,
dans le sens positif etex,u*(0,5.5));
marque_p:="croix";
nomme.llft(O);
nomme.llft(A);
nomme.urt(B);
trace A--B;
trace rotation(A--B,O,40) withcolor orange;
trace arccercle(A,rotation(A,O,40),O) dashed evenly;
trace arccercle(B,rotation(B,O,40),O) dashed evenly;
fin;

figure(0,0,6u,6u);
trace feuillet;
pair B,A,E,F,G;
A=u*(1,3);
E=u*(3,3.5);
F=2/5[E,rotation(A,E,-90)];
G-F=A-E;
B=u*(4.25,4.25);
trace A--E--F--G--cycle;
trace codeperp(A,E,F,5);
trace codeperp(E,F,G,5);
trace codeperp(F,G,A,5);
label(btex $\mathscr F$ etex,iso(A,E,F,G));
label.rt(btex \footnotesize centre $B$, d'angle 80\degres,
dans le sens positif etex,u*(0,5.5));
nomme.top(B);
trace rotation(A--E--F--G--cycle,B,80) withcolor orange;
fin;

figure(0,0,6u,6u);
trace feuillet;
label.rt(btex \footnotesize centre $P$, d'angle 110\degres,
dans le sens négatif etex,u*(0,5.5));
pair A,B,P,R,T;
A=u*(3.5,2);
B=u*(4.5,4);
R=u*(4.25,1.5);
T=iso(B,R);
trace A--R--arccercle(R,B,T)--B--cycle;
P=u*(3.25,4.25);
nomme.urt(P);
pointe(T);
label.rt(btex $\mathscr F$ etex,T);
trace B--R dashed evenly;
trace rotation(A--R--arccercle(R,B,T)--B--cycle,P,-110)
withcolor orange;
fin;

figure(0,0,6u,6u);
trace feuillet;
label.rt(btex \footnotesize centre $J$, d'angle 53\degres,
dans le sens négatif etex,u*(0,5.5));
pair J,A,B,C,D,E,F;
J=u*(1,1);
nomme.llft(J);
A=u*(1.5,4);
B=u*(1.5,5);
C=u*(2.5,4.5);
D=u*(4,4.5);
F=iso(C,D);
E=u*(4,4);
trace A--E--D--arccercle(D,C,F)--B--cycle;
trace C--D dashed evenly;
pointe(F);
label.llft(btex $\mathscr F$ etex,F);
trace rotation(A--E--D--arccercle(D,C,F)--B--cycle,J,-53)
withcolor orange;
fin;

figure(0,0,10u,7u);
pair E,F,P,A,B,O;
path fig;
trace grille(0.5) withcolor orange;
fig=u*(2.5,1)--u*(3,1.5)--u*(3.5,1)--u*(3.5,2)--%
u*(2.5,2)--cycle;
transparence fig;
trace fig withpen pencircle scaled 1.5bp;
E=u*(1.5,4);
F=u*(5,4);
P=u*(6,2);
A=u*(1,2);
B=u*(4,1.5);
O=u*(4,5.5);
pointe(E,F,P,A,B,O);
nomme.top(E);
nomme.top(F);
nomme.top(P);
nomme.lft(A);
nomme.lrt(B);
nomme.top(O);
drawoptions(withcolor bleu);
trace rotation(fig,O,90);
trace fig shifted(B-A);
trace symetrie(fig,E,F);
trace symetrie(fig,P);
drawoptions();
fin;

figure(0,0,10u,7u);
trace grille(0.5) withcolor orange;
path fig;
fig=(arccercle(u*(1,1.5),u*(1,0.5),u*(1,1))--u*(4,0.5)--%
u*(1.5,1)--u*(1.5,1.5)--cycle) shifted(u*(0,4));
transparence fig;
trace fig withpen pencircle scaled 1.5bp;
pair E,F,P,A,B,O;
E=u*(1,3);
F=u*(7,5);
P=u*(5,4);
A=u*(1,4);
B=u*(3.5,0.5);
O=u*(6,6);
pointe(E,F,P,A,B,O);
nomme.top(E);
nomme.top(F);
nomme.top(P);
nomme.lft(A);
nomme.lrt(B);
nomme.top(O);
drawoptions(withcolor bleu);
trace rotation(fig,O,90);
trace fig shifted(B-A);
trace symetrie(fig,E,F);
trace symetrie(fig,P);
drawoptions();
fin;
end