%@AUTEUR:Guillaume Connan
prologues:=2;

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);

% ARCTANGENTE TRIANGLE

beginfig(1);

  u:=1cm;
  pair a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,z,v,w,x,aa;
  
  a=(0,0);
  b=(2u,0); c=(u,u);d=(3u,3u); e=(12u,0);
  x=(4u,4u);
  f=(5u,3u);g=(6u,2u);h=(7u,3u);
  i=(8u,2u);j=(9u,u);k=(10u,2u);l=(11u,u);m=(11u,-u);n=(10u,-2u);o=(9u,-u);p=(8u,0);
  q=(7u,-u);r=(6u,0);s=(5u,-u);t=(4u,0);z=(3u,-u);v=(2u,-2u);w=(u,-u);aa=(2u,2u);
  
  fill a--b--c--cycle withcolor 0.6white;
  fill c--b--d--cycle withcolor bleu;
  fill b--e--d--cycle withcolor bleu_ciel;
  
  pickup pencircle scaled 2pt;
  draw a--b--c--cycle;
  draw c--b--d--cycle;
  draw b--d--e--cycle;
  
  pickup pencircle scaled 0.8pt;
  
  draw a--x; draw w--f;draw v--h;draw s--i;draw q--k;draw o--l;draw n--e;
  draw a--v;draw c--z;draw aa--s;draw d--q;draw x--n; draw h--m;draw k--e;
  
  draw halfcircle scaled 2u shifted(2*u,0);
endfig;
end