%@AUTEUR:Guillaume Connan

prologues:=2;

verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\begin{document}
etex

input geometriesyr16

typerepre:="persp";

figureespace(-10u,-10u,10u,10u);
 Initialisation(5,35,40,400);
 color D,A,B,C,M,N,P,K,R;
 A=(0,0,1/2);
 B=(1/2,0,0);
 D=(0,1/2,0);
 C=(1/2,1/4,0);
 M=5/8[B,D];
 N=1/2[C,A];
 P=5/7[D,A];
 K=IntersectionDroite(M,P,A,B);
 R=IntersectionDroite(K,N,B,C);
 label.urt(btex A etex,Projette(K))withcolor white;
 label.llft(btex A etex,Projette(R))withcolor white;
 trace demidroite(B,A) withcolor white;
 path section, prolongesection, fond;
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);
 trace segment(B,D)dashed evenly;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
 finespace;

end