%@AUTEUR:Guillaume Connan
prologues:=2;

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

input courbes;
input geo;

color vert_e, turquoise, orange, vert_fonce, rose, vert_mer, bleu_ciel, or, rouge_v,bleu_m,bleu,bleu_f;
vert_e:=(0,0.790002,0.340007);
turquoise:=(0.250999,0.878399,0.815699);
orange:=(0.589999,0.269997,0.080004);
vert_fonce:=(0,1.4*0.392193,0);
rose:=(1.0, 0.752907, 0.796106);
bleu_ciel:=(1.2*0.529405,1.2*0.807794,1);%.2*0.921598);
or:=(1,0.843104,0);
rouge_v:=(0.829997,0.099994,0.119999);
bleu_m:=(0.7*0.529405,0.7*0.807794,0.7);%*0.921598);
bleu_f:=(0.211762,0.3231176,0.3686392);
bleu:=(0.529405,0.807794,1);

%  P A T A T E S 

beginfig(1);
  x = 0.5000000cm; y = -.5000000cm;
  path p;
  p = (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle withpen pencircle scaled 0.1000x withcolor bleu;
  path p;
  p = (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.527647x,12.586423y)..(18.589187x,9.585848y)..(11.950000x,9.150000y) withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.814482x,12.827981y)--(24.270996x,12.697127y)--(24.527647x,12.586423y)--(24.593074x,12.314680y)--cycle;
  fill p withcolor bleu
    withpen pencircle scaled 0.1000x;
  draw (24.814482x,12.827981y)--(24.270996x,12.697127y)--(24.527647x,12.586423y)--(24.593074x,12.314680y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (11.950000x,11.050000y)..(17.644393x,14.480430y)..(24.065630x,16.201385y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;

  draw (12.150000x,15.000000y)..(17.815438x,17.852682y)..(24.063199x,18.948341y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,18.000000y)..(18.588983x,16.543340y)..(24.367735x,13.351415y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  label.urt(btex \textbf{X} etex ,(25.050000x,13.000000y));
  label.urt(btex \textbf{X} etex ,(25.050000x,16.350000y));
  label.urt(btex \textbf{X} etex ,(25.100000x,19.100000y));
  label.urt(btex  \textbf{X} etex ,(11.000000x,9.200000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,11.150000y));
  label.urt(btex  \textbf{X} etex ,(11.150000x,15.100000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,18.200000y));
  label.urt(btex \textbf{D\'EPART} etex   scaled 2 ,(9.750000x,21.250000y));
  label.urt(btex \textbf{ARRIV\'EE} etex    scaled 2,(23.850000x,21.350000y));
  label.urt(btex  \textbf{X} etex ,(24.850000x,9.400000y));
  label.urt(btex  \textbf{X} etex ,(24.950000x,7.650000y));
endfig;

beginfig(2);
  x = .5000000cm; y = -.5000000cm;
  path p;
  p = (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  path p;
  p = (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.527647x,12.586423y)..(18.589187x,9.585848y)..(11.950000x,9.150000y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.814482x,12.827981y)--(24.270996x,12.697127y)--(24.527647x,12.586423y)--(24.593074x,12.314680y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.814482x,12.827981y)--(24.270996x,12.697127y)--(24.527647x,12.586423y)--(24.593074x,12.314680y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (11.950000x,11.050000y)..(17.644393x,14.480430y)..(24.065630x,16.201385y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,15.000000y)..(17.815438x,17.852682y)..(24.063199x,18.948341y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,18.000000y)..(18.588983x,16.543340y)..(24.367735x,13.351415y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  label.urt(btex \textbf{X}etex ,(25.050000x,13.000000y));
  label.urt(btex  \textbf{X} etex ,(25.050000x,16.350000y));
  label.urt(btex  \textbf{X} etex ,(25.100000x,19.100000y));
  label.urt(btex  \textbf{X} etex ,(11.000000x,9.200000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,11.150000y));
  label.urt(btex  \textbf{X} etex ,(11.150000x,15.100000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,18.200000y));
  label.urt(btex \textbf{ D\'EPART} etex    scaled 2 ,(9.750000x,21.250000y));
  label.urt(btex \textbf{ ARRIV\'EE} etex    scaled 2,(23.850000x,21.350000y));
endfig;

beginfig(3);
  x = .5000000cm; y = -.5000000cm;
  path p;
  p = (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  path p;
  p = (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.167329x,9.326901y)..(18.077823x,7.915275y)..(11.950000x,9.150000y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.500629x,9.498761y)--(23.941655x,9.491815y)--(24.167329x,9.326901y)--(24.170802x,9.047414y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.500629x,9.498761y)--(23.941655x,9.491815y)--(24.167329x,9.326901y)--(24.170802x,9.047414y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (11.950000x,11.050000y)..(17.644393x,14.480430y)..(24.065630x,16.201385y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,15.000000y)..(17.815438x,17.852682y)..(24.063199x,18.948341y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,18.000000y)..(18.588983x,16.543340y)..(24.367735x,13.351415y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  label.urt(btex  \textbf{X} etex ,(25.050000x,13.000000y));
  label.urt(btex  \textbf{X} etex ,(25.050000x,16.350000y));
  label.urt(btex  \textbf{X} etex ,(25.100000x,19.100000y));
  label.urt(btex  \textbf{X} etex ,(11.000000x,9.200000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,11.150000y));
  label.urt(btex  \textbf{X} etex ,(11.150000x,15.100000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,18.200000y));
  label.urt(btex \textbf{ D\'EPART} etex    scaled 2 ,(9.750000x,21.250000y));
  label.urt(btex \textbf{ ARRIV\'EE} etex   scaled 2,(23.850000x,21.350000y));
  label.urt(btex  \textbf{X} etex ,(24.850000x,9.400000y));
  label.urt(btex  \textbf{X} etex ,(24.950000x,7.750000y));
endfig;

beginfig(4);
  x = .5000000cm; y = -.5000000cm;
  path p;
  p = (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (14.350000x,13.050000y)..(11.100000x,20.000000y)..(7.850000x,13.050000y)..(11.100000x,6.100000y)..cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  path p;
  p = (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle;
  fill p withcolor bleu_ciel;
  draw (28.350000x,13.050000y)..(25.100000x,20.100000y)..(21.850000x,13.050000y)..(25.100000x,6.000000y)..cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.167329x,9.326901y)..(18.077823x,7.915275y)..(11.950000x,9.150000y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.500629x,9.498761y)--(23.941655x,9.491815y)--(24.167329x,9.326901y)--(24.170802x,9.047414y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.500629x,9.498761y)--(23.941655x,9.491815y)--(24.167329x,9.326901y)--(24.170802x,9.047414y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (11.950000x,11.050000y)..(17.644393x,14.480430y)..(24.065630x,16.201385y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438756x,16.238835y)--(23.916289x,16.437652y)--(24.065630x,16.201385y)--(23.966221x,15.940152y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,15.000000y)..(17.815438x,17.852682y)..(24.063199x,18.948341y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.438197x,18.949619y)--(23.937348x,19.197913y)--(24.063199x,18.948341y)--(23.939052x,18.697916y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (12.150000x,18.000000y)..(18.588983x,16.543340y)..(24.367735x,13.351415y)
    withpen pencircle scaled 0.2000x withcolor bleu;
  path p;
  p = (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (24.662206x,13.119226y)--(24.424371x,13.625126y)--(24.367735x,13.351415y)--(24.114785x,13.232498y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  label.urt(btex  \textbf{X} etex ,(25.050000x,13.000000y));
  label.urt(btex  \textbf{X} etex ,(25.050000x,16.350000y));
  label.urt(btex  \textbf{X} etex ,(25.100000x,19.100000y));
  label.urt(btex  \textbf{X} etex ,(11.000000x,9.200000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,11.150000y));
  label.urt(btex  \textbf{X} etex ,(11.150000x,15.100000y));
  label.urt(btex  \textbf{X} etex ,(11.050000x,18.200000y));
  label.urt(btex \textbf{ D\'EPART} etex   scaled 2 ,(9.750000x,21.250000y));
  label.urt(btex \textbf{ ARRIV\'EE} etex   scaled 2 ,(23.850000x,21.350000y));
  label.urt(btex  \textbf{X} etex ,(24.850000x,9.400000y));
endfig;

beginfig(5);
 x = .5000000cm; y = -.5000000cm;
  label.urt(btex \textbf{\textit{x}} etex scaled 2.67988,(8.550000x,15.100000y));
  label.urt(btex \textbf{\textit{y}} etex scaled 2.67988,(25.400000x,15.100000y));
  draw (24.720520x,14.245086y)..(17.367168x,11.900985y)..(10.100000x,14.500000y)
    withpen pencircle scaled 0.3000x withcolor bleu;
  path p;
  p = (25.012845x,14.479971y)--(24.466488x,14.361675y)--(24.720520x,14.245086y)--(24.779668x,13.971908y)--cycle;
  fill p withpen pencircle scaled 0.1000x withcolor bleu;
  draw (25.012845x,14.479971y)--(24.466488x,14.361675y)--(24.720520x,14.245086y)--(24.779668x,13.971908y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu;
  draw (10.538264x,15.843647y)..(17.841698x,18.047470y)..(25.050000x,15.550000y)
    withpen pencircle scaled 0.3000x withcolor bleu_f;
  path p;
  p = (10.239172x,15.617441y)--(10.788765x,15.719654y)--(10.538264x,15.843647y)--(10.487158x,16.118443y)--cycle;
  fill p 
    withpen pencircle scaled 0.1000x withcolor bleu_f;
  draw (10.239172x,15.617441y)--(10.788765x,15.719654y)--(10.538264x,15.843647y)--(10.487158x,16.118443y)--cycle
    withpen pencircle scaled 0.1000x withcolor bleu_f;
  label.urt(btex \textbf{\textit{f}} etex scaled 2.67988,(17.050000x,11.050000y));
  label.urt(btex  $f^{-1}$ etex scaled 2.67988,(17.000000x,21.050000y));
endfig;
end