Fichier figure021.mp (figure 1) — Modifié le 3 Avril 2008 à 22 h 16

figure021.mp (figure 1)
Source

input geometriesyr16;

figure(0,0,8u,8u);
pair A,N,M,H;
A=u*(1,1);
M-A=u*(1,5);
N-M=u*(5,1);
H=projection(M,A,N);
path cc;
cc=(1/5[M,A]+0.5*(M-N))..(1/5[M,A])..(6/10[N,A])..(6/10[N,A]+0.5*(N-M));
trace hachurage(cc--reverse(cc shifted(u*(0,-0.5)))--cycle,160,0.5,0);
trace cc;
trace cc shifted(u*(0,-0.5));
trace segment(N,M) withpen pensquare scaled1.5bp;
trace chemin(M,A,N) dashed evenly;
trace segment(M,H) dashed evenly;
trace codeperp(M,H,N,5);
trace appelation(A,M,2mm,btex $m$ etex);
trace appelation(A,9/10[A,N],-2mm,btex $n$ etex);
trace Codeangle(N,A,M,0,btex $\alpha$ etex);
nomme.bot(A);
nomme.lrt(H);
marque_p:="plein";
nomme.top(M);
nomme.top(N);
marque_p:="non";
fin;

end