verbatimtex
%&latex
\documentclass{article}
\begin{document}
etex





input constantes;
input papiers;

%\begin{document}


def star (expr size, n, pos, color) =
  for a=0 step 360/n until 360 :
draw (origin -- (size/2,0))
rotatedaround (origin,a)
shifted pos withcolor color ;
  endfor ;
enddef ;

def gradcercle (expr n, unite) =  %gradue un cercle trigo, tous les n degrés.

  for a=0 step n  until 360 :     %n: nb de degrés; unite:unité de mesure
draw ((0.97,0)*unite -- (1.03,0)*unite)
rotatedaround (origin,a) ;
 endfor ;
enddef ;

def graddroite (expr n, unite) =  %gradue la tangente au cercle en (1,0) tous les n degrés
  for a=0 step n  until 180 :%n: nb de degrés; unite:unité de mesure
    draw ((0.97,0)*unite -- (1.03,0)*unite) shifted ((0,(6.283185)*a/360)*unite);
    draw ((0.97,0)*unite -- (1.03,0)*unite) shifted ((0,-(6.283185)*a/360)*unite);
 endfor ;
enddef ;

def gradaxe (expr pas,n, unite) =  %gradue l'axe Ox tous les n degrés
  for a=pas step pas  until n :  %n: nb de degrés; unite:unité de mesure
    draw ((0,0.02)*unite -- (0,-0.02)*unite) shifted ((2*pi*a/360,0)*unite);

 endfor ;
enddef ;

vardef enroulage (expr n ,unite) =
  %v = unite* unitvector(direction t of p) rotated 180;
    drawarrow (1,(6.283185)*n/360)*unite{left}..((1,0)*u rotatedaround (origin,n)){dir (-180+n)};
  enddef;

vardef mylabel(expr pic, p, t) =
    save A; pair A;
    A = point t of p +
        8bp * unitvector(direction t of p) rotated 90;
    label(pic, A);
  enddef;

 %  beginfig(0) %Essai pour placer des points sur un chemin
%  u:=1cm;
%  path p[];
%  pair A[], b[], I[];
%  numeric pas, L, t[];
%  A0=(0,0);
%  A1=(u, u);
%  A2=(-u,2u);
%  p0=A0..A1..A2;
%  draw p0;
%  p1=(-0.2u,0)--(0.2u,0);
%  pas=1;

% for i=0 step pas  until 3 :  %n: nb de degrés; unite:unité de mesure
% I[i]=point (arctime i*u of p0) of p0;
% %fill fullcircle scaled 2bp shifted (point (arctime i*u of p0) of p0);
% fill fullcircle scaled 2bp shifted I[i];
% endfor ;
%   endfig;

beginfig(1) %Enroulement de la droite sur le cercle
  u:=2cm;
  path p[];
  pair A[],B[], I[], J[];
  numeric pas;
 pickup pencircle scaled 0.2mm ;
% star(2u,12,origin, 0.5white) ; %12 rayons en gris
% star(2u,8,origin, 0.3white) ; %8 rayons gris foncé
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)   withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)   withpen pencircle scaled 1bp;
  %draw (0,0) withpen pencircle scaled 4bp;
  draw fullcircle scaled 2u;
  p1=(1,0)*u--(1,3.3)*u;
  p2=(1,0)*u--(1,-3.3)*u;
  draw p1 ;
  draw p2;
  pas=1;

for i=0 step pas  until 3 :
  A[i]=point (arctime i*u of p1) of p1;
  B[i]=point (arctime i*u of p2) of p2;

  fill fullcircle scaled 2.5bp shifted A[i];
  fill fullcircle scaled 2.5bp shifted B[i];
endfor ;
p0=A0{up}..(-0.2u,1.4u)..(-1.2u,0.8u);
p3=A0{up}..(-1u,3u);
draw p0 dashed  evenly;
draw p3 dashed  evenly;
draw p3 yscaled -1 dashed  evenly;
for i=0 step pas  until 3 :
  I[i]=point (arctime i*u of p3) of p3;
  J[i]=point (arctime i*u of p0) of p0;
  fill fullcircle scaled 2.5bp shifted I[i];
  fill fullcircle scaled 2.5bp shifted J[i];
  fill fullcircle scaled 2.5bp shifted ((u,0) rotatedaround (origin,i*360/(2*pi)));
draw A[i]{left}..I[i]..J[i]..((u,0) rotatedaround (origin,i*360/(2*pi))) dashed evenly;%{dir (-180+i*360/(2*pi))} ;
endfor ;


pickup pencircle scaled 1.2bp ;
  gradcercle (30,u);
  graddroite (30,u);
pickup pencircle scaled 0.5bp ;
  gradcercle (15,u);
  graddroite (15,u);
  enroulage (90 ,u);
  %enroulage (120 ,u);
  enroulage (-60 ,u);
  enroulage (-90 ,u);
 % enroulage (210 ,u);
  enroulage (-150 ,u);

  %label.bot(btex $pi$ etex,(-1,0)*u);
  %label.rt   (btex $0, I$ etex,(1,0)*u);
  % dotlabel.llft(btex $O$ etex, (0,0));
%   label.rt   (btex $1$ etex,(1,1)*u);
%   label.rt   (btex $2$ etex,(1,2)*u);
%   label.rt   (btex $3$ etex,(1,3)*u);
%   label.rt   (btex $-1$ etex,(1,-1)*u);
%   label.rt   (btex $-2$ etex,(1,-2)*u);
%   label.rt   (btex $-3$ etex,(1,-3)*u);



endfig;
beginfig(2) %Cercle trigo avec quadrillage
  u:=3cm;
 %pickup pencircle scaled 0.2mm ;

 % draw (-1u,0)--(1u,0);
 % draw (0,-u)--(0,u);

  %draw (0,0) withpen pencircle scaled 4bp;
  draw fullcircle scaled 2u withpen pencircle scaled 1bp;
  %pickup pencircle scaled 1.2bp ;
  %gradcercle (30,u);
  pickup pencircle scaled 0.1bp ;
for x=-1 step 0.25  until 1 :  %n: nb de degrés; unite:unité de mesure
  draw ((x,-1)*u -- (x,1)*u) dashed evenly;% withdots;% shifted ((2*pi*a/360,0)*unite);
  draw ((-1,x)*u -- (1,x)*u)dashed evenly;
endfor ;
drawarrow (0,0)--(1u,0)   withpen pencircle scaled 1.3bp;
drawarrow (0,0)--(0,1u)   withpen pencircle scaled 1.3bp;

  % gradcercle (15,u);
  label.bot("i",(0.4,0)*u);
  label.lft("j",(-0.08,0.4)*u);
  label.llft("O", (-0.02u,-0.02u));

endfig;

%%###############________________
	 end
%%###############________________

  beginfig(2)  %transfo -x
u:=2cm;
 pickup pencircle scaled 0.2mm ;
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)            withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)            withpen pencircle scaled 1bp;
  draw fullcircle scaled 2u;

pair o,A,B,C,D,E,S;
  o:=(0,0); A:=((sqrt 3)/2,0.5)*u; C:=((sqrt 3)/2,0)*u; S:=(0,0.5)*u; D:=-C; E:=-S;
draw o--A;  %rayon (Ox) à pi/6
draw A--C dashed evenly; draw A--S dashed evenly;
label.llft(btex $O$ etex,o);
  B:=((sqrt 3)/2,-0.5)*u;
  draw o--B ;
  draw B--C dashed evenly; draw B--E dashed evenly;
  path p;
  p = (0,0)..(-u,u)..(u,u);
  p:=fullcircle scaled 2.5u;
  i:=length(p)/12;   mylabel(btex $x$ etex,p,i);
  i:=-length(p)/12;   mylabel(btex $-x$ etex,p,i);
endfig;

beginfig(3)  %transfo pi-x
u:=2cm;
 pickup pencircle scaled 0.2mm ;
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)            withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)            withpen pencircle scaled 1bp;
  draw fullcircle scaled 2u;

pair o,A,B,C,D,E,S,BB;
  o:=(0,0); A:=((sqrt 3)/2,0.5)*u; C:=((sqrt 3)/2,0)*u; S:=(0,0.5)*u; D:=-C; E:=-S;
draw o--A;  %rayon (Ox) à pi/6
draw A--C dashed evenly; draw A--S dashed evenly;
label.llft(btex $O$ etex,o);
BB:=((sqrt 3)/2,-0.5)*u;
  B:=(-(sqrt 3)/2,0.5)*u;
  draw o--B ;
  draw B--D dashed evenly; draw B--S dashed evenly; draw o--BB dashed withdots;


  path p;



  p = (0,0)..(-u,u)..(u,u);
  p:=fullcircle scaled 2.5u;
  i:=length(p)/12;   mylabel(btex $x$ etex,p,i);
  i:=5length(p)/12;   mylabel(btex ${\pi}-x$ etex,p,i);


endfig;
 beginfig(4)  %transfo pi+x
u:=2cm;
 pickup pencircle scaled 0.2mm ;
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)            withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)            withpen pencircle scaled 1bp;
  draw fullcircle scaled 2u;

pair o,A,B,C,D,E,S,BB;
  o:=(0,0); A:=((sqrt 3)/2,0.5)*u; C:=((sqrt 3)/2,0)*u; S:=(0,0.5)*u; D:=-C; E:=-S;
label.ulft(btex $O$ etex,o);
  draw o--A;  %rayon (Ox) à pi/6
draw A--C dashed evenly; draw A--S dashed evenly;

  B:=(-(sqrt 3)/2,-0.5)*u;
  draw o--B ;
  draw B--D dashed evenly; draw B--E dashed evenly;



  path p;
  p = (0,0)..(-u,u)..(u,u);
  p:=fullcircle scaled 2.5u;
  i:=length(p)/12;   mylabel(btex $x$ etex,p,i);
  i:=7length(p)/12;   mylabel(btex ${\pi}+x$ etex,p,i);
endfig;

 beginfig(5)  %transfo pi/2-x
u:=2cm;
 pickup pencircle scaled 0.2mm ;
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)            withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)            withpen pencircle scaled 1bp;
  draw fullcircle scaled 2u;


pair o,A,B,C,D,E,S,BB;
  o:=(0,0); A:=((sqrt 3)/2,0.5)*u; C:=((sqrt 3)/2,0)*u; S:=(0,0.5)*u; D:=(0.5,0)*u; E:=(0,(sqrt 3)/2)*u;
draw o--A;  %rayon (Ox) à pi/6
draw A--C dashed evenly; draw A--S dashed evenly;
label.llft(btex $O$ etex,o);
BB:=((sqrt 3)/2,-0.5)*u;
  B:=(0.5,(sqrt 3)/2)*u;
  draw o--B ;
  draw B--D dashed evenly; draw B--E dashed evenly; draw o--BB dashed withdots;



    path p;
  p = (0,0)..(-u,u)..(u,u);
  p:=fullcircle scaled 2.5u;
  i:=length(p)/12;   mylabel(btex $x$ etex,p,i);
  i:=length(p)/6;   mylabel(btex ${{\pi} {2}}-x$ etex,p,i);
endfig;

beginfig(6)%Enroulement
  u:=2.3cm;
 pickup pencircle scaled 0.2mm ;
% star(2u,12,origin, 0.7white) ; %12 rayons en gris
% star(2u,8,origin, 0.5white) ; %8 rayons gris foncé
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)   withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)   withpen pencircle scaled 1bp;
  %draw (0,0) withpen pencircle scaled 4bp;
  draw fullcircle scaled 2u;
  draw (1,-3.3)*u--(1,3.3)*u;
pickup pencircle scaled 1.2bp ;
  gradcercle (30,u);
  graddroite (30,u);
pickup pencircle scaled 0.5bp ;
  gradcercle (15,u);
  graddroite (15,u);
  enroulage (90 ,u);
  enroulage (120 ,u);
  enroulage (-60 ,u);
 % enroulage (210 ,u);
  enroulage (-150 ,u);

  PI=3.1415926;
   label.rt(btex ${\pi} {6}$ etex,(1,PI/6)*u);
   label.rt(btex ${\pi} {4}$ etex,(1,PI/4)*u);
   label.rt(btex ${\pi} {3}$ etex,(1,PI/3)*u);
   label.rt(btex ${\pi} {2}$ etex,(1,PI/2)*u);
label.rt   (btex ${5 \pi} {6}$ etex,(1,5*PI/6)*u);
label.rt   (btex ${3 \pi} {4}$ etex,(1,3*PI/4)*u);
label.rt   (btex ${2 \pi} {3}$ etex,(1,2*PI/3)*u);
label.rt   (btex $-{{\pi} {6}}$ etex,(1,-PI/6)*u);
label.rt   (btex $-{{\pi} {4}}$ etex,(1,-PI/4)*u);
  label.rt (btex $-{{\pi} {3}}$ etex,(1,-PI/3)*u);
label.rt   (btex $-{{\pi} {2}}$ etex,(1,-PI/2)*u);
label.rt   (btex $-{{5 \pi} {6}}$   etex,(1,-5*PI/6)*u);
label.rt   (btex $-{{3 \pi} {4}}$ etex,(1,-3*PI/4)*u);
label.rt   (btex $-{{2 \pi} {3}}$ etex,(1,-2*PI/3)*u);
label.rt   (btex ${\pi}$ etex,(1,PI)*u);
label.rt   (btex $0, I$ etex,(1,0)*u);
  dotlabel.llft(btex $O$ etex, (0,0));
  dotlabel.lft   (btex $1$ etex,(1,1)*u);
  dotlabel.lft   (btex $2$ etex,(1,2)*u);
  dotlabel.lft   (btex $3$ etex,(1,3)*u);
  dotlabel.lft   (btex $-1$ etex,(1,-1)*u);
  dotlabel.lft   (btex $-2$ etex,(1,-2)*u);
  dotlabel.lft   (btex $-3$ etex,(1,-3)*u);
  label.lft   (btex $D$ etex,(0.9,1.4)*u);
  label.lft   (btex $C$ etex,(-0.65,0.9)*u);
label.bot   (btex $\vi$ etex,(0.4,0)*u);

 label.lft   (btex $\vj$ etex,(-0.08,0.5)*u);


 % endfor;
 endfig;
  beginfig(7)  %cercle trigo simple
u:=2cm;
 pickup pencircle scaled 0.2mm ;
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(0.97u,0)            withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,0.97u)            withpen pencircle scaled 1bp;
  draw fullcircle scaled 2u;
  pair M;
  M:=(1,0)*u rotated 60 ;
  draw origin--M withpen pencircle scaled 0.2bp;
label.bot   (btex $\vi$ etex,(0.45,0)*u);
   label.lft   (btex $\vj$ etex,(-0.1,0.5)*u);
    dotlabel.llft(btex $O$ etex, (0,0));
  dotlabel.urt(btex $M$ etex, M);
  label.lft   (btex $C$ etex,(-0.7,-0.8)*u);
label.rt   (btex $I$ etex,(1,0)*u);
label.lft   (btex $I'$ etex,(-1,0)*u);
label.top   (btex $J$ etex,(0,1)*u);
label.bot   (btex $J'$ etex,(0,-1)*u);

%path p;
  %p = (0,0)..(-u,u)..(u,u);
  %p:=quartercircle scaled 2.5u;
  %drawarrow p;

endfig;
beginfig(8)%Cercle gradué
  u:=3cm;
 pickup pencircle scaled 0.2mm ;
% star(2u,12,origin, 0.7white) ; %12 rayons en gris
% star(2u,8,origin, 0.5white) ; %8 rayons gris foncé
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
  drawarrow (0,0)--(1u,0)   withpen pencircle scaled 1bp;
  drawarrow (0,0)--(0,1u)   withpen pencircle scaled 1bp;
  %draw (0,0) withpen pencircle scaled 4bp;
  draw fullcircle scaled 2u;
  pickup pencircle scaled 1.2bp ;
  gradcercle (30,u);
   pickup pencircle scaled 0.3bp ;
   gradcercle (15,u);
   label.bot   (btex $\vi$ etex,(0.4,0)*u);
  label.lft   (btex $\vj$ etex,(-0.08,0.5)*u);
  dotlabel.llft(btex $O$ etex, (0,0));

endfig;
beginfig(9)%cercle trigo gradué tous les pi/12 sur fond de papier milli pour tracer la courbe de sin
  papiermillimetre((0,0),2,2,(-2,-2),(13,2),orange);
  u:=2cm;
 pickup pencircle scaled 0.2mm ;
% star(2u,12,origin, 0.7white) ; %12 rayons en gris
% star(2u,8,origin, 0.5white) ; %8 rayons gris foncé
  draw (-1u,0)--(1u,0);
  draw (0,-u)--(0,u);
 % drawarrow (0,0)--(1u,0)   withpen pencircle scaled 1bp;
 % drawarrow (0,0)--(0,1u)   withpen pencircle scaled 1bp;
  %draw (0,0) withpen pencircle scaled 4bp;
  draw fullcircle scaled 2u;
  pickup pencircle scaled 0.8bp ;
  gradcercle (30,u);
  pickup pensquare scaled 0.8bp ;
  gradaxe (30,360,u);
  pickup pencircle scaled 0.4bp ;
  gradcercle (15,u);
  pickup pensquare scaled 0.4bp ;
  gradaxe (15,360,u);
 % label.bot(btex ${\pi} {6}$ etex,(pi/6,0)*u);
  %label.bot(btex ${\pi} {4}$ etex,(pi/4,0)*u);
  %label.bot(btex ${\pi} {2}$ etex,(pi/2,0)*u);
  %label.bot(btex $p$ etex,(3.07,0)*u);
  %label.bot(btex ${3\pi} {2}$ etex,(3*pi/2,0)*u);
  %label.bot(btex $2p$ etex,(2*pi,0)*u);
  label.bot(btex p12 etex,(pi/(12)-0.1,0)*u);
  label.bot(btex p6 etex,(pi/(6)-0.1,0)*u);
  label.bot(btex p4 etex,(pi/(4)-0.1,0)*u);
  label.bot(btex p2 etex,(pi/2-0.05,0)*u);
  label.bot(btex $p$ etex,(3.07,0)*u);
  label.bot(btex 3p2 etex,(3*pi/2-0.1,0)*u);
  label.bot(btex 2p etex,(2*pi,0)*u);


  %label.bot   (btex $i$ etex,(0.4,0)*u);
  %label.lft   (btex $j$ etex,(-0.08,0.5)*u);
  %dotlabel.llft(btex $O$ etex, (0,0));
endfig;
end