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

%      C U B E S          R E C U R R E N C E

beginfig(1);
  numeric u;
  u:=0.5cm;

  pair a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,v,x,y,z;
  a=(0,0);
  b=a shifted (u,0);
  c=b shifted (u,0);
  d=c  shifted (u,0);
  e=d  shifted (u,0);
  f= e  shifted (u,0);
  
  g=(0,4*u);
  v=g  shifted (u,0);
  h=v  shifted (u,0);
  i=h  shifted (u,0);
  j= i  shifted (u,0);
  k= j  shifted (u,0);
  
  l= a shifted (0,u);
  m=l shifted (0,u);
  n=m shifted (0,u);
  o=f shifted (0,u);
  p=o shifted (0,u);
  q=p shifted (0,u);
  
  t=f shifted (-u,u);
  s=t shifted (-u,u);
  r=s shifted (-u,u);
  x=(u,3*u);
  y=(2*u,2*u);
  z=(3*u,u);
  path w;
  w=a--g--v--x--r--y--s--z--t--e--cycle;
  fill w withcolor bleu_ciel;
  
  pickup pencircle scaled 1.3bp;
  
  draw l--t--e--a--g--v--b withcolor bleu_m;
  draw n--r--c withcolor bleu_m; 
  draw m--s--d withcolor bleu_m;
  draw v--k--f--e dashed evenly;
  draw r--q  dashed evenly;
  draw s--p dashed evenly;
  draw j--t dashed evenly;
  draw i--s dashed evenly;
  draw h--r dashed evenly;
  draw t--o dashed evenly;
  label.lft(btex $1$ etex, (g+n)/2);
  label.lft(btex $2$ etex, (m+n)/2);
  label.lft(btex $3$ etex, (m+l)/2);
  label.lft(btex $4$ etex, (l+a)/2);
  label.bot(btex $1$ etex, (a+b)/2);
  label.bot(btex $2$ etex, (c+b)/2);
  label.bot(btex $3$ etex, (c+d)/2);
  label.bot(btex $4$ etex, (d+e)/2);
  label.bot(btex $5$ etex, (e+f)/2);
endfig;
end