%  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*}{trisemblableSym.mp}

input newcourbes;
%input couleur;
input geometriesyr16;
%input TEX;

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



numeric u;
u:=1cm;
numeric Z;
pair a[];
for Z:=0 upto 100 :
  a[Z]:=(0.01*Z)*u*(9,5);
endfor;


pair A,B,C,b,c,N;
path t;

A:=u*(0,0);
B:=u*(2.5,0);
C:=u*(.75,3);
N:=u*(2.5,10);
t:= polygone(A,B,C) reflectedabout(A,B) scaled 2.5 shifted a[100] rotatedaround (a[100],50);
b:= B scaled 2.5 shifted a[100] rotatedaround (a[100],50);
c:= C reflectedabout(A,B) scaled 2.5 shifted a[100] rotatedaround (a[100],50);



for Z:=0 upto 100 :

  beginfig(Z);
    
  pair A[],B[],C[];
  path T;
 
T:= polygone(A,B,C)  shifted a[Z]  ;

A[Z]:=A shifted a[Z];
B[Z]:=B shifted a[Z];
C[Z]:=C shifted a[Z];



drawarrow a[Z]--a[100] withcolor green withpen pencircle scaled 1.5bp;

trace polygone(A,B,C) withcolor white;

fillcolor:=orange;
transparence t ;
trace t withcolor red withpen pencircle scaled 1.5bp;

fillcolor:=ciel;
transparence T;
trace T withcolor blue withpen pencircle scaled 1.4bp;

label.lrt(btex A etex,A[Z] )  withcolor blue;
label.lrt(btex B etex,B[Z] )  withcolor blue;
label.top(btex C etex,C[Z] )   withcolor blue;
label.llft(btex a etex,a[100] )withcolor red;
label.lrt(btex b etex,b )withcolor red;
label.top(btex c etex,c )withcolor red;

 mark_angleg(B[Z],A[Z],C[Z],1,0.6*u);
 mark_angleg(A[Z],C[Z],B[Z],2,0.6*u);
 mark_angleg(C[Z],B[Z],A[Z],3,0.6*u);


 mark_angleg(c,a[100],b,1,0.6*u);
 mark_angleg(b,c,a[100],2,0.6*u);
 mark_angleg(a[100],b,c,3,0.6*u);



label.top(btex \textcolor{green}{Translation de vecteur $\ve{Aa}$} etex,u*(2,10) );

endfig;


endfor;

for Z:=101 upto 200 :
    beginfig(Z);
    
  pair A[],B[],C[];
  path T;
  numeric alpha;

  alpha:=0.01*(angle(C)-angle(b shifted -a[100]));
T:= polygone(A,B,C) shifted a[100] rotatedaround(a[100],-(Z-100)*alpha) ;

A[Z]:=a[100];
B[Z]:=B shifted a[100]  rotatedaround(a[100],-(Z-100)*alpha);
C[Z]:=C shifted a[100]  rotatedaround(a[100],-(Z-100)*alpha);



 

trace polygone(A,B,C) withcolor white;

fillcolor:=orange;
transparence t ;
trace t withcolor red withpen pencircle scaled 1.5bp;

fillcolor:=ciel;
transparence T;
trace T withcolor blue withpen pencircle scaled 1.4bp;

label.lrt(btex A etex,A[Z] )  withcolor blue;
label.lrt(btex B etex,B[Z] )  withcolor blue;
label.top(btex C etex,C[Z] )   withcolor blue;
label.llft(btex a etex,a[100] )withcolor red;
label.lrt(btex b etex,b )withcolor red;
label.top(btex c etex,c )withcolor red;

 mark_angleg(B[Z],A[Z],C[Z],1,0.6*u);
 mark_angleg(A[Z],C[Z],B[Z],2,0.6*u);
 mark_angleg(C[Z],B[Z],A[Z],3,0.6*u);



 mark_angleg(c,a[100],b,1,0.6*u);
 mark_angleg(b,c,a[100],2,0.6*u);
 mark_angleg(a[100],b,c,3,0.6*u);

mark_anglegg(b,a[100],C[Z],0,2*u,0.4white,1.5bp);

label.top(btex \textcolor{0.4white}{Rotation d'angle $\widehat{Cab}$, de centre a} etex,u*(2,10) );

endfig;

endfor;






for Z:=201 upto 250 :
  beginfig(Z);
    
  pair A[],B[],C[];
  path T;
 
  numeric alpha;

  alpha:=0.01*(angle(C)-angle(b shifted -a[100]));
T:= polygone(A,B,C) shifted a[100] rotatedaround(a[100],-(200-100)*alpha) ;

A[200]:=a[100];
B[200]:=B shifted a[100]  rotatedaround(a[100],-(200-100)*alpha);
C[200]:=C shifted a[100]  rotatedaround(a[100],-(200-100)*alpha);



 

trace polygone(A,B,C) withcolor white;

fillcolor:=orange;
transparence t ;
trace t withcolor red withpen pencircle scaled 1.5bp;

fillcolor:=ciel;
transparence T;
trace T withcolor blue withpen pencircle scaled 1.4bp;

label.lrt(btex A etex,A[200] )  withcolor blue;
label.lrt(btex B etex,B[200] )  withcolor blue;
label.top(btex C etex,C[200] )   withcolor blue;
label.llft(btex a etex,a[100] )withcolor red;
label.lrt(btex b etex,b )withcolor red;
label.top(btex c etex,c )withcolor red;

 mark_angleg(B[200],A[200],C[200],1,0.6*u);
 mark_angleg(A[200],C[200],B[200],2,0.6*u);
 mark_angleg(C[200],B[200],A[200],3,0.6*u);



 mark_angleg(c,a[100],b,1,0.6*u);
 mark_angleg(b,c,a[100],2,0.6*u);
 mark_angleg(a[100],b,c,3,0.6*u);

mark_anglegg(b,a[100],C[200],0,2*u,0.4white,1.5bp);


label.top(btex HEUM HEUM, ÇA NE COLLE PAS... etex,u*(2,10) );

endfig;

endfor;



  




for Z:=251 upto 270 :
    beginfig(Z);
    
  pair A[],B[],C[];
  path T;
  numeric alpha;

  alpha:=0.01*(angle(C)-angle(b shifted -a[100]));
T:= polygone(A,B,C)  shifted a[100] rotatedaround(a[100],-(200-100)*alpha) reflectedabout(a[100],b) ;

A[200]:=a[100];
B[200]:=B shifted a[100]  rotatedaround(a[100],-(200-100)*alpha) reflectedabout(a[100],b);
C[200]:=C shifted a[100]  rotatedaround(a[100],-(200-100)*alpha) reflectedabout(a[100],b);



 

trace polygone(A,B,C) withcolor white;

fillcolor:=orange;
transparence t ;
trace t withcolor red withpen pencircle scaled 1.5bp;

fillcolor:=ciel;
transparence T;
trace T withcolor blue withpen pencircle scaled 1.4bp;

label.lrt(btex A etex,A[200] )  withcolor blue;
label.lrt(btex B etex,B[200] )  withcolor blue;
label.top(btex C etex,C[200] )   withcolor blue;
label.llft(btex a etex,a[100] )withcolor red;
label.lrt(btex b etex,b )withcolor red;
label.top(btex c etex,c )withcolor red;

 mark_angleg(C[200],A[200],B[200],1,0.6*u);
 mark_angleg(B[200],C[200],A[200],2,0.6*u);
 mark_angleg(A[200],B[200],C[200],3,0.6*u);



 mark_angleg(c,a[100],b,1,0.6*u);
 mark_angleg(b,c,a[100],2,0.6*u);
 mark_angleg(a[100],b,c,3,0.6*u);

mark_anglegg(b,a[100],C[200],0,2*u,0.4white,1.5bp);

label.top(btex {UN DEMI-TOUR PEUT-ÊTRE...} etex,u*(2,10) );

endfig;



endfor;






for Z:=271 upto 370 :
    beginfig(Z);
    
  
  path T;
  numeric beta;

  beta:=-0.01*(angle(B[200] shifted -a[100])-angle(b shifted -a[100]));
T:= polygone(A,B,C)  shifted a[100] rotatedaround(a[100],-(Z-270)*beta-(200-100)*alpha) reflectedabout(a[100],b) ;

A[Z]:=a[100];
B[Z]:=B shifted a[100]  rotatedaround(a[100],-(Z-270)*beta-(200-100)*alpha) reflectedabout(a[100],b);
C[Z]:=C shifted a[100]  rotatedaround(a[100],-(Z-270)*beta-(200-100)*alpha) reflectedabout(a[100],b);



 

trace polygone(A,B,C) withcolor white;

fillcolor:=orange;
transparence t ;
trace t withcolor red withpen pencircle scaled 1.5bp;

fillcolor:=ciel;
transparence T;
trace T withcolor blue withpen pencircle scaled 1.4bp;

label.lrt(btex A etex,A[Z] )  withcolor blue;
label.lrt(btex B etex,B[Z] )  withcolor blue;
label.top(btex C etex,C[Z] )   withcolor blue;
label.llft(btex a etex,a[100] )withcolor red;
label.lrt(btex b etex,b )withcolor red;
label.top(btex c etex,c )withcolor red;

 mark_angleg(C[Z],A[Z],B[Z],1,0.6*u);
 mark_angleg(B[Z],C[Z],A[Z],2,0.6*u);
 mark_angleg(A[Z],B[Z],C[Z],3,0.6*u);



 mark_angleg(c,a[100],b,1,0.6*u);
 mark_angleg(b,c,a[100],2,0.6*u);
 mark_angleg(a[100],b,c,3,0.6*u);

mark_anglegg(b,a[100],B[Z],0,1.5*u,0.4white,1.5bp);

label.top(btex {UNE PETITE ROTATION...} etex,u*(2,10) );

endfig;





endfor;





for Z:=371 upto 400 :
    beginfig(Z);
    
  
  path T;
  numeric beta;

  beta:=-0.01*(angle(B[200] shifted -a[100])-angle(b shifted -a[100]));
T:= polygone(A,B,C)  shifted a[100] rotatedaround(a[100],-(370-270)*beta-(200-100)*alpha) reflectedabout(a[100],b) ;

A[370]:=a[100];
B[370]:=B shifted a[100]  rotatedaround(a[100],-(370-270)*beta-(200-100)*alpha) reflectedabout(a[100],b);
C[370]:=C shifted a[100]  rotatedaround(a[100],-(370-270)*beta-(200-100)*alpha) reflectedabout(a[100],b);



 

trace polygone(A,B,C) withcolor white;

fillcolor:=orange;
transparence t ;
trace t withcolor red withpen pencircle scaled 1.5bp;

fillcolor:=ciel;
transparence T;
trace T withcolor blue withpen pencircle scaled 1.4bp;

label.lrt(btex A etex,A[370] )  withcolor blue;
label.lrt(btex B etex,B[370] )  withcolor blue;
label.top(btex C etex,C[370] )   withcolor blue;
label.llft(btex a etex,a[100] )withcolor red;
label.lrt(btex b etex,b )withcolor red;
label.top(btex c etex,c )withcolor red;

 mark_angleg(C[370],A[370],B[370],1,0.6*u);
 mark_angleg(B[370],C[370],A[370],2,0.6*u);
 mark_angleg(A[370],B[370],C[370],3,0.6*u);



 mark_angleg(c,a[100],b,1,0.6*u);
 mark_angleg(b,c,a[100],2,0.6*u);
 mark_angleg(a[100],b,c,3,0.6*u);

mark_anglegg(b,a[100],B[370],0,1.5*u,0.4white,1.5bp);

label.top(btex {ET VOILÀ...} etex,u*(2,10) );

endfig;





endfor;




%fin;

end


\end{filecontents*}






\documentclass{article}
\usepackage{multido,calc}
\usepackage{graphicx,filecontents}
\usepackage[height=260mm,width=183mm,a4paper]{geometry}
%\graphicspath{{/home/moi/Figures/figuresTS/}}
\begin{document}
\multido{\i=0+1}{401}{\centering\includegraphics[width=\textwidth]{trisemblableSym.\i}\newpage}


\end{document}

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: 
