%% Choix de LaTeX
verbatimtex
%&latex
\documentclass[a4paper]{article}
\usepackage[frenchb]{babel}
\begin{document}
etex
%%

input geometriesyr12;
figure(-5u,-5u,5u,5u);
  z0=(0,0);label.urt(btex $O$ etex,z0);
  label.bot(btex Terre etex,z0);
  path cc;
  cc=cercles(z0,u);
  draw cc;
  z1=point(0) of cc;label.rt(btex $T_2$ etex,z1);
  z2=point((length cc)/2) of cc;label.lft(btex $T_1$ etex,z2);
  z3=u*(0,3.5);label.top(btex $S$ etex,z3);
  draw z1--z2--z3--cycle;
  draw z3--z0;
  draw codeperp(z3,z0,z2,8);
fin;
figure(0,0,20u,10u);
u:=7.5mm;
  z0=u*(1,1);label.llft(btex $B$ etex,z0);
  z1=u*(4,1);label.lrt(btex $A$ etex,z1);
  z2=z1 rotatedabout(z0,60);label.top(btex $C$ etex,z2);
  draw marqueangle(z1,z0,z2,0);
  label.urt(btex 60\degres etex,w);
  draw z0--z1--z2--cycle;
  draw codesegments(z1,z0,z0,z2,2);
  z3=u*(5.5,1);label.llft(btex $B$ etex,z3);
  z4=u*(7.5,1); label.lrt(btex $A$ etex,z4);
  z5=perpendiculaire(z4,z3,z4) intersectionpoint cercles(z3,2*abs(z4-z3));
  label.top(btex $C$ etex,z5);
  draw z3--z4--z5--cycle;
  draw codeperp(z5,z4,z3,8);
  draw marqueangle(z4,z3,z5,0);
  label.urt(btex 60\degres etex,w);
  z6=u*(9,1);label.llft(btex $B$ etex,z6);
  z7=u*(15,1);label.lrt(btex $C$ etex,z7);
  z8=perpendiculaire(z6,z7,(u*(10.5,1))) intersectionpoint cercles(z6,(abs(z7-z6))/2);
  label.top(btex $A$ etex,z8);
  draw z6--z7--z8--cycle;
  draw codeperp(z7,z8,z6,8);
  draw marqueangle(z7,z6,z8,0);
  label.urt(btex 60\degres etex,w);
  z9=u*(16.5,1);label.llft(btex $B$ etex,z9);
  z10=u*(18.5,1);label.lrt(btex $A$ etex,z10);
  z12=z10 rotatedabout(z9,60);
  z11=1.5[z9,z12];label.top(btex $C$ etex,z11);
  draw z9--z10--z11--cycle;
  draw marqueangle(z10,z9,z11,0);
  label.urt(btex 60\degres etex,w);
  fin;
  u:=1cm;
  figure(0,0,20u,10u);
    z0=u*(1,1);label.llft(btex $B$ etex,z0);
  z1=u*(2.5,1);label.lrt(btex $A$ etex,z1);
  z2=perpendiculaire(z1,z0,z1) intersectionpoint droite(z0,z1 rotatedabout(z0,60));label.top(btex $C$ etex,z2);
  draw z0--z1--z2--cycle;
  draw codeperp(z0,z1,z2,8);
  draw marqueangle(z1,z0,z2,0);
  label.urt(btex 60\degres etex,w);
  z3=u*(4,1);label.llft(btex $B$ etex,z3);
  z4=u*(8,1);label.lrt(btex $A$ etex,z4);
  z5=perpendiculaire(z4,z3,z4) intersectionpoint droite(z3,z4 rotatedabout(z3,30));label.top(btex $C$ etex,z5);
  draw z3--z4--z5--cycle;
  draw codeperp(z3,z4,z5,8);
  draw marqueangle(z4,z3,z5,0);
  label.urt(btex 30\degres etex,w);
  z6=u*(9.5,1);label.llft(btex $B$ etex,z6);
  z7=u*(11,1);label.lrt(btex $A$ etex,z7);
  z8=perpendiculaire(z7,z6,z7) intersectionpoint droite(z6,z7 rotatedabout(z6,45));label.top(btex $C$ etex,z8);
  draw z6--z7--z8--cycle;
  draw codeperp(z6,z7,z8,8);
  draw marqueangle(z7,z6,z8,0);
  label.urt(btex 45\degres etex,w);
  fin;
figure(0,0,10u,10u);  
  z0=u*(1,1);label.llft(btex $B$ etex,z0);
  z1=u*(8,1);
  z2=z1 rotatedabout(z0,60);
  z50=0.6[z0,z1];
  draw z50--z0--z2;
  draw marqueangle(z1,z0,z2,0);
  label.urt(btex 60\degres etex,w);
  z3=0.25[z0,z1];label.bot(btex $A$ etex,z3);
  z4=perpendiculaire(z1,z0,z3) intersectionpoint (z0--z2);label.ulft(btex $C$ etex,z4);
  draw z3--z4;
  draw codeperp(z4,z3,z0,8);
  z5=0.45[z0,z1];label.bot(btex $A'$ etex,z5);
  z6=perpendiculaire(z1,z0,z5) intersectionpoint demidroite(z0,z2);label.ulft(btex $C'$ etex,z6);
  draw z5--z6;
  draw codeperp(z6,z5,z0,8);
fin
end