Source : lectureangles.mp

verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex
input geometriesyr16;
input outilssyr;
picture dep;
dep=image(
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  pair A,B,C,E,F,D;
  %angle BAC
  A=u*(5,3);
  B=u*(10,4);
  C=rotation(B,A,43);
  trace demidroite(A,B);
  trace demidroite(A,C);
  nomme.bot(A);
  marque_p:="croix";
  nomme.lrt(B);
  nomme.ulft(C);
  marque_p:="non";
  fin;
  );
_nfig:=0;
vues:=5;
for k=0 upto vues:
  figure(0,0,11u,8u);
  trace dep;
  trace rotation(rapporteurdouble(A,1.15[A,B],1),A,30) shifted((vues-k)*u*(-4,3)/vues);
  fin;
endfor;
for k=0 upto vues:
  figure(0,0,11u,8u);
  trace dep;
  trace rotation(rapporteurdouble(A,1.15[A,B],1),A,30*(vues-k)/vues);
  fin;
endfor;
for k=1 upto vues:
  figure(0,0,11u,8u);
  trace dep;
  trace rapporteurdouble(A,1.15[A,B],1);
  drawarrow arccercle(a0,a[3+8*k],A) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
endfor;
for k=0 upto vues:
  figure(0,0,11u,8u);
  trace dep;
  trace rapporteurdouble(A,1.15[A,B],1);
  drawarrow arccercle(a0,a43,A) withpen pencircle scaled 1.5bp withcolor bleu;
  label(btex \Large L'angle $\widehat{BAC}$ mesure 43\degres. etex,u*(5.5,1));
  fin;
endfor;
end
%angle EDF
E=u*(6,7);
D=u*(5,5);
F=rotation(E,D,-104);
trace demidroite(D,E);
trace demidroite(D,F);
trace rapporteurdouble(D,3[D,F],1);