%@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,L,J;
 A=(0,0,1/2);
 B=(1/2,0,0);
 D=(0,1/2,0);
 C=(1/2,1/4,0);
 M=(1/8,1/6,5/24);
 N=1/4[C,A];
 R=1/2[D,C];
 K=IntersectionDroite(N,R,A,D);
 J=IntersectionDroite(K,M,B,A);
 L=IntersectionDroite(K,M,B,D);
 
 path section, face, fond, prolongesection;
 fond=polygone(A,B,D);
 face=polygone(A,C,R,K);
 section=polygone(N,J,L,R);
 prolongesection=polygone(L,R,K);
 fillcolor:=jaune;
 transparence fond;
 fillcolor:=ciel;
 transparence face;
 fillcolor:=rouge;
 transparence section;
 fillcolor:=orange;
 transparence prolongesection;
 
 trace chemin(J,N,R) withcolor red withpen pencircle scaled 1.2bp ;
 trace segment(J,L)  withcolor red withpen pencircle scaled 1.2bp dashed evenly;
 trace segment(R,L)  withcolor red withpen pencircle scaled 1.2bp dashed evenly;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);
 trace segment(B,D)dashed evenly;
 trace demidroite(A,D);
 trace demidroite(N,R);
 trace segment(K,J) dashed evenly;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.bot(R);
 nomme.ulft(J);
 nomme.urt(K);
 nomme.top(L);
 finespace;

end