verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\usepackage[latin1]{inputenc}
\begin{document}
etex
input geometriesyr13;
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°, 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 $\cal F$ etex,iso(A,E,F,G));
label.rt(btex \footnotesize centre $B$, d'angle 80°, 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°, 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.rt(P);
pointe(T);
label.rt(btex $\cal 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°, 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);
%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 gris;
fig=u*(2.5,1)--u*(3,1.5)--u*(3.5,1)--u*(3.5,2)--u*(2.5,2)--cycle;
remplis fig withcolor gris;
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);
%trace rotation(fig,O,90);
%trace fig shifted(B-A);
%trace symetrie(fig,E,F);
%trace symetrie(fig,P);
fin;
figure(0,0,10u,7u);
trace grille(0.5) withcolor gris;
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));
remplis fig withcolor gris;
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);
%trace rotation(fig,O,90);
%trace fig shifted(B-A);
%trace symetrie(fig,E,F);
%trace symetrie(fig,P);
fin;
end