%  En pr�ambule,  les  sources metapost.  Si  vous lancez  latex  sur ce  fichier,  il vous  placera
% automatiquement le fichier .mp dans le r�pertoire courant. 


\begin{filecontents*}{tetra.mp}
 

input geometriesyr16;


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



pickup pencircle scaled 1.2bp;


typerepre:="persp";



%fig1

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);
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
% trace demidroite(B,A);
% trace demidroite(M,P);
% trace demidroite(K,N);
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
% nomme.llft(R);
% nomme.urt(K); 
 finespace;



 

%fig2

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;
 path section, prolongesection, fond;
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
% trace demidroite(M,P);
% trace demidroite(K,N);
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
% nomme.llft(R);
% nomme.urt(K); 
 finespace;












%fig3

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;
 path section, prolongesection, fond;
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P)withcolor red;
% trace demidroite(K,N);
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
% nomme.llft(R);
% nomme.urt(K); 
 finespace;





%fig4

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;
 path section, prolongesection, fond;
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 fillcolor:=orange;
 transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P)withcolor red;
% trace demidroite(K,N);
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
% nomme.llft(R);
 nomme.urt(K); 
 finespace;



%fig5

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;
 path cote,section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 fillcolor:=ciel;
% transparence cote;
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P) withcolor red;
 trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
% nomme.llft(R);
 nomme.urt(K); 
 finespace;





%fig6

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;
 path cote,section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 fillcolor:=ciel;
 transparence cote;
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P) withcolor red;
 trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
% nomme.llft(R);
 nomme.urt(K); 
 finespace;







%fig7

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;
 path cote,section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=polygone(N,P,M,R);
 fillcolor:=ciel;
 transparence cote;
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
% trace section withcolor red;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P) withcolor red;
 trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
 nomme.llft(R);
 nomme.urt(K); 
 finespace;


%fig8

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;
 path cote,section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=chemin(R,N,P,M);
 fillcolor:=ciel;
% transparence cote;
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
% transparence section;
 
 trace section withcolor red;trace segment(R,M) withcolor red dashed evenly;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P) withcolor red;
 trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
 nomme.llft(R);
 nomme.urt(K); 
 finespace;



%fig9

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;
 path cote,section, Section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=chemin(R,N,P,M);Section=polygone(R,N,P,M);
 fillcolor:=ciel;
% transparence cote;
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
 transparence prolongesection;
 fillcolor:=.9jaune;
 transparence Section;
 
 trace section withcolor red;trace segment(R,M) withcolor red dashed evenly;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
 trace demidroite(B,A);
 trace demidroite(M,P) withcolor red;
 trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
 nomme.llft(R);
 nomme.urt(K); 
 finespace;









 






%fig10

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(btex  etex,projette(K))withcolor white;
 label.llft(btex  etex,projette(R))withcolor white;
 trace demidroite(B,A) withcolor white;
 trace demidroite(M,P) withcolor white;
 path cote,section, Section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,A,D);
 section=chemin(R,N,P,M);Section=polygone(R,N,P,M);
 fillcolor:=ciel;
 %transparence cote;
 fillcolor:=orange;
 transparence fond;
 fillcolor:=jaune;
 transparence prolongesection;
 fillcolor:=.9jaune;
 transparence Section;
 
 trace section withcolor red;trace segment(R,M) withcolor red dashed evenly;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
% trace demidroite(B,A);
% trace demidroite(M,P) withcolor red;
% trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
 nomme.llft(R);
 nomme.urt(K); 
 finespace;





%fig11

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(btex  etex,projette(K))withcolor white;
 label.llft(btex  etex,projette(R))withcolor white;
 trace demidroite(B,A) withcolor white;
 trace demidroite(M,P) withcolor white;
 path cote,section, Section, prolongesection, fond;
 cote=polygone(B,K,N,C);
 prolongesection=polygone(K,N,P);
 fond=polygone(B,K,P,D);
 section=chemin(R,N,P,M);Section=polygone(R,N,P,M);
 fillcolor:=ciel;
% transparence cote;
 fillcolor:=orange;
% transparence fond;
 fillcolor:=jaune;
% transparence prolongesection;
 fillcolor:=.9jaune;
 transparence Section;
 
 trace section withcolor red;trace segment(R,M) withcolor red dashed evenly;
 trace polygone(C,A,B);
 trace segment(A,D);
 trace chemin(A,C,D);% dashed evenly;
 trace segment(B,D)dashed evenly;
% trace demidroite(B,A);
% trace demidroite(M,P) withcolor red;
% trace segment(K,R) withcolor blue;
 nomme.top(A);
 nomme.lft(B);
 nomme.bot(C);
 nomme.rt(D);
 marque_p:="plein";
 nomme.urt(M);
 nomme.lft(N);
 nomme.urt(P);
 nomme.llft(R);
% nomme.urt(K); 
 finespace;






 end



\end{filecontents*}







% DEBUT DU SOURCE LATEX




\documentclass[xcolor={hyperref,dvips,ps2pdf},dvips]{beamer} 
\usepackage{filecontents}
\fvset{xrightmargin=0cm,gobble=2,formatcom=color{blue}}
\graphicspath{{/home/moi/Figures/FigEspace/tetra/}}
\usepackage{BeamerPolymaths}
\renewcommand\FancyVerbFormatLine[1]{\colorbox{green}{#1}}

\mode<presentation>
{
  \usetheme[secheader]{Madrid}
  % or ...Warsaw

  \setbeamercovered{highly dynamic}
  % or whatever (possibly just delete it)
}


\title[SECTION D'UN TETRA�DRE] % (optional, use only with long paper titles)
{SECTION D'UN TETRA�DRE}

\subtitle{}

\author[] % (optional, use only with lots of authors)
{Guillaume CONNAN }
% - Give the names in the same order as the appear in the paper.
% - Use the inst{?} command only if the authors have different
%   affiliation.

\institute{Lyc�e Jean PERRIN}% (optional, but mostly needed)


\date[] % (optional, should be abbreviation of conference name)
{}
% - Either use conference name or its abbreviation.
% - Not really informative to the audience, more for people (including
%   yourself) who are reading the slides online

\subject{}

\AtBeginSubsection[]
{
  \begin{frame}<beamer>
    \frametitle{Sommaire}
     
    \tableofcontents[currentsection,currentsubsection]
       
  \end{frame}
}


% If you wish to uncover everything in a step-wise fashion, uncomment
% the following command: 

\beamerdefaultoverlayspecification{<+->}
\usepackage{multido}

\begin{document}

\begin{frame}
  \titlepage
\end{frame}

%\begin{frame}
%  \frametitle{Sommaire}
%  \tableofcontents
  % You might wish to add the option [pausesections]
%\end{frame}

\multido{\i=1+1}{11}{
\begin{frame}
  \begin{center}
  \includegraphics[width=\textwidth,totalheight=.9\textheight,keepaspectratio=true]{tetra.\i}
\end{center}
\end{frame}
}

\end{document}

%\caption{geo3d.\i}}
%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: 
