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

input geometriesyr13;
figure(0,0,6u,5u);
pair A,B,C;
A=u*(0.75,0.75);
B=u*(0.75,4.25);
C=u*(5.25,0.75);
trace triangle(A,B,C);
remplis codeperp(B,A,C,8)--A--cycle withcolor noir;
trace codeperp(B,A,C,8);
trace appelation(A,B,2mm,btex C\^ot\'e oppos\'e etex);
trace appelation(A,C,-2mm,btex C\^ot\'e adjacent etex);
rayon:=30;
trace marqueangle(B,C,A,0);
nomme.llft(A);
nomme.lrt(C);
nomme.top(B);
fin;
figure(0,0,8u,8u);
pair O,L,K,M,M',N,N';
O=u*(0.75,0.75);
L=u*(7.5,0.75);
K=u*(7,7.5);
trace demidroite(O,L);
trace O--K;
M=2/5[O,L];
N=2/5[O,K];
M'=5/7[O,L];
N'=5/7[O,K];
nomme.bot(O);
nomme.bot(M);
nomme.bot(M');
nomme.top(N);
nomme.top(N');
label.top(btex $x$ etex,L);
label.top(btex $y$ etex,K);
trace M--N;
trace M'--N';
trace codeperp(N,M,O,8);
trace codeperp(N',M',O,8);
fin;
figure(0,0,6u,6u);
pair A,B,C;
A=u*(0.75,0.75);
B=u*(0.75,4.25);
C=u*(5.25,0.75);
trace triangle(A,B,C);
remplis codeperp(B,A,C,8)--A--cycle withcolor noir;
trace codeperp(B,A,C,8);
trace appelation(A,B,2mm,btex ? etex);
trace appelation(A,C,-2mm,btex $4\,cm$ etex);
rayon:=30;
trace marqueangle(B,C,A,0);
label.lft(btex 30\degres etex,w);
nomme.llft(A);
nomme.lrt(C);
nomme.top(B);
fin;
figure(0,0,6u,6u);
pair S,R,T;
R=u*(5.25,0.75);
S=pointarc(cercles(R,4.1u),100);
T=demidroite(R,rotation(S,R,27)) intersectionpoint perpendiculaire(S,R,S);
trace triangle(R,S,T);
nomme.lrt(R);
nomme.top(S);
nomme.llft(T);
trace codeperp(T,S,R,8);
trace appelation(T,R,-2mm,btex ? etex);
trace appelation(S,R,2mm,btex $4,1\,cm$ etex);
trace marqueangle(R,T,S,0);
label.rt(btex 63\degres{} etex,w);
fin;
figure(0,0,6u,6u);
u:=2u;
pair L,O,A;
L=u*(0.75,2);
O=pointarc(cercles(L,1.3u),300);
A=reverse(cercles(L,2u)) intersectionpoint perpendiculaire(L,O,O);
trace triangle(L,O,A);
trace codeperp(L,O,A,8);
trace appelation(O,L,2mm,btex $1,3\,cm$ etex);
trace appelation(L,A,2mm,btex $2\,cm$ etex);
trace marqueangle(L,A,O,0);
label.lft(btex ? etex,w);
nomme.bot(O);
nomme.top(L);
nomme.rt(A);
fin;
u:=u/2;
figure(0,0,6u,6u);
pair I,J,K;
J=u*(0.75,0.75);
I=pointarc(cercles(J,2u),60);
K=reverse(cercles(I,3u)) intersectionpoint perpendiculaire(I,J,I);
trace triangle(I,J,K);
trace codeperp(J,I,K,8);
trace appelation(J,I,2mm,btex $2\,cm$ etex);
trace appelation(I,K,2mm,btex $3\,cm$ etex);
trace marqueangle(K,J,I,0);
label.rt(btex ? etex,w);
nomme.llft(J);
nomme.lrt(K);
nomme.top(I);
fin;
figure(0,0,6u,6u);
pair O,A,B,M,N;
O=u*(3,3);
path cc;
cc=cercles(O,2.25u);
trace cc;
M=pointarc(cc,60);
N=pointarc(cc,100);
A=pointarc(cc,200);
B=pointarc(cc,300);
trace A--M--B;
trace A--O--B;
trace M--N--B dashed evenly;
trace arccercle(A,B,O) withpen pencircle scaled 2bp;
marque_p:="plein";
nomme.top(M);
nomme.top(N);
nomme.llft(A);
nomme.lrt(B);
nomme.top(O);
fin;
end