%% Choix de LaTeX
verbatimtex
%&latex
\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage[frenchb]{babel}
\begin{document}
%\tiny
etex
%%essai
prologues:=2;
input geometrie2;
def rapport(expr r,q)=%segment sur lequel placer le rapporteur (centre du rapporteur en premier)
  begingroup;
  save $,cc,cd,v,w,t,ww,vv;
  picture $;
  path cc,cd;
  pair a[],b[],v,w,t,ww,vv;
  cc=cercle(r,0.75*abs(r-q));
  t=cc intersectionpoint (r--q);
  w=t-2*unitvector(q-r);v=symc(w,t);
  ww=t-5*unitvector(q-r);vv=symc(ww,t);
  a0=(ww-r) shifted r;
  b0=(vv-r) shifted r;
  for i=0 upto 35 :
    for j=1 upto 4 :
      a[5*i+j]=(w-r) rotated (5*i+j) shifted r;
      b[5*i+j]=(v-r) rotated (5*i+j) shifted r;
    endfor;
    a[5*(i+1)]=(ww-r) rotated (5*(i+1)) shifted r;
    b[5*(i+1)]=(vv-r) rotated (5*(i+1)) shifted r;
  endfor
  picture nomb[],nombre[];
    label.bot(btex $0$ etex,a0);
    nombre0=currentpicture rotatedabout(a0,angle(a0-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $10$ etex,a10);
    nombre10=currentpicture rotatedabout(a10,angle(a10-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $20$ etex,a20);
    nombre20=currentpicture rotatedabout(a20,angle(a20-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $30$ etex,a30);
    nombre30=currentpicture rotatedabout(a30,angle(a30-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $40$ etex,a40);
    nombre40=currentpicture rotatedabout(a40,angle(a40-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $50$ etex,a50);
    nombre50=currentpicture rotatedabout(a50,angle(a50-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $60$ etex,a60);
    nombre60=currentpicture rotatedabout(a60,angle(a60-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $70$ etex,a70);
    nombre70=currentpicture rotatedabout(a70,angle(a70-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $80$ etex,a80);
    nombre80=currentpicture rotatedabout(a80,angle(a80-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $90$ etex,a90);
    nombre90=currentpicture rotatedabout(a90,angle(a90-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $100$ etex,a100);
    nombre100=currentpicture rotatedabout(a100,angle(a100-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $110$ etex,a110);
    nombre110=currentpicture rotatedabout(a110,angle(a110-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $120$ etex,a120);
    nombre120=currentpicture rotatedabout(a120,angle(a120-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $130$ etex,a130);
    nombre130=currentpicture rotatedabout(a130,angle(a130-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $140$ etex,a140);
    nombre140=currentpicture rotatedabout(a140,angle(a140-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $150$ etex,a150);
    nombre150=currentpicture rotatedabout(a150,angle(a150-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $160$ etex,a160);
    nombre160=currentpicture rotatedabout(a160,angle(a160-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $170$ etex,a170);
    nombre170=currentpicture rotatedabout(a170,angle(a170-r)-90);
    currentpicture:=nullpicture;
    label.bot(btex $180$ etex,a180);
    nombre180=currentpicture rotatedabout(a180,angle(a180-r)-90);
    currentpicture:=nullpicture;
    $=currentpicture;
    for i=0 upto 18 :
      draw nombre[10*i];
    endfor    
    draw subpath((angle(q-r)*(length cc))/360,((length cc)/2)+(angle(q-r)*(length cc))/360) of cc;
    draw a0--b0 withpen pencircle scaled 1.25bp;    
  for i=0 upto 35 :
    for j=1 upto 4 :
      draw a[5*i+j]--b[5*i+j];
    endfor;
  endfor
  for i=1 upto 36:
    draw a[5*i]--b[5i] withpen pencircle scaled 1.25bp;
  endfor
  draw a0--a180;
  path centre;
  centre=cercle(r,0.05*u);
  fill centre withcolor red;
  $
endgroup;
enddef;
u=1cm;
lpage=20;
hpage=20;
pair p[];
p0=u*(0,hpage-0.5);
p1=u*(lpage,hpage-0.5);
p2=u*(0,hpage-2.5);
p3=u*(lpage,hpage-2.5);
p4=u*(8,5);
p5=u*(15,7);
p6=p5 rotatedabout(p4,50);
p7=u*(15,1);
picture combo[];
draw rapport(p4,p7);
combo1=currentpicture;
currentpicture:=nullpicture;
vues=5;
path rotationrapporteur,deplacementrapporteur;
rotationrapporteur=cercle(p4,abs(p4-p7));
l7=length rotationrapporteur+(angle(p7-p4)*length rotationrapporteur)/360;
p100=rotationrapporteur intersectionpoint demidroite(p4,p5,1.5);
l100=(angle(p100-p4)*length rotationrapporteur)/360;
deplacementrapporteur=subpath(l7,length rotationrapporteur+l100) of rotationrapporteur;
p9=rotationrapporteur intersectionpoint demidroite(p4,p6,1.5);
path cadre;
cadre=(0,0)--u*(lpage,0)--u*(lpage,hpage)--u*(0,hpage)--cycle;
for vue=1 upto vues:
  draw rapport(p4,point((vue/vues)*length deplacementrapporteur) of deplacementrapporteur);
  p[10*vue]=a50;p[10*vue+1]=b50;
  combo[1+vue]=currentpicture;
  currentpicture:=nullpicture;
endfor
beginfig(1);
  draw cadre;
  draw p0--p1;
  draw p2--p3;
  label(btex \bf\Large Mesure d'un angle $\widehat{ABC}$. etex,(milieu(p0,p1) shifted (u*(0,-1))));
endfig;
beginfig(2);
  draw cadre;
  draw p0--p1;
  draw p2--p3;
  label(btex \bf\Large Mesure d'un angle $\widehat{ABC}$ etex,(milieu(p0,p1) shifted (u*(0,-1))));
  label.llft(btex $B$ etex,p4);
  dotlabel.bot(btex $C$ etex,p5);
  dotlabel.ulft(btex $A$ etex,p6);
  draw demidroite(p4,p5,1.5);
  draw demidroite(p4,p6,1.5);
endfig;
beginfig(3);
  draw cadre;
  draw p0--p1;
  draw p2--p3;
  label(btex \bf\Large On place le centre du rapporteur au sommet de l'angle etex,(milieu(p0,p1) shifted (u*(0,-1))));
  label.llft(btex $B$ etex,p4);
  dotlabel.bot(btex $C$ etex,p5);
  dotlabel.ulft(btex $A$ etex,p6);
  draw demidroite(p4,p5,1.5);
  draw demidroite(p4,p6,1.5);
  draw combo1;
endfig;
beginfig(4);
  draw cadre;
  draw p0--p1;
  draw p2--p3;
  label(btex \bf\Large On place le centre du rapporteur au sommet de l'angle etex,(milieu(p0,p1) shifted (u*(0,-1))));
  label.llft(btex $B$ etex,p4);
  dotlabel.bot(btex $C$ etex,p5);
  dotlabel.ulft(btex $A$ etex,p6);
  draw demidroite(p4,p5,1.5);
  draw demidroite(p4,p6,1.5);
endfig;  
for vue=1 upto vues:
  beginfig(4+vue);
    draw cadre;
    draw p0--p1;
    draw p2--p3;
    label(btex \bf\Large On vient, ensuite, aligner le 0 du rapporteur sur un des côtés de l'angle etex,(milieu(p0,p1) shifted (u*(0,-1))));
    label.llft(btex $B$ etex,p4);
    dotlabel.bot(btex $C$ etex,p5);
    dotlabel.ulft(btex $A$ etex,p6);
    draw demidroite(p4,p5,1.5);
    draw demidroite(p4,p6,1.5);
    draw combo[1+vue];
  endfig;
endfor
beginfig(10);
  draw cadre;
  draw p0--p1;
  draw p2--p3;
  label(btex \bf\Large On lit la graduation qui correspond à l'autre côté de l'angle. etex,(milieu(p0,p1) shifted (u*(0,-1))));
  label.llft(btex $B$ etex,p4);
  dotlabel.bot(btex $C$ etex,p5);
  dotlabel.ulft(btex $A$ etex,p6);
  draw demidroite(p4,p5,1.5);
  draw demidroite(p4,p6,1.5);
  draw combo[6];
endfig;
beginfig(11);
  draw cadre;
  draw p0--p1;
  draw p2--p3;
  label(btex \bf\Large On lit la graduation qui correspond à l'autre côté de l'angle. etex,(milieu(p0,p1) shifted (u*(0,-1))));
  label.llft(btex $B$ etex,p4);
  dotlabel.bot(btex $C$ etex,p5);
  dotlabel.ulft(btex $A$ etex,p6);
  draw demidroite(p4,p5,1.5);
  draw demidroite(p4,p6,1.5);
  draw combo[6];
  drawarrow (p51 shifted (u*(2,1)))--p51;
  label.rt(btex \Large La graduation est $50°$. etex,(p51 shifted (u*(2,1))));
  draw p50--p51 withpen pencircle scaled 2bp withcolor red;
endfig;
end