input geometriesyr;

figure(0,0,10.5u,4.5u);
papiercinq((0,0),(10.5,4.5),orange);
drawoptions(withpen pencircle scaled 1.5bp);
path cc[];
cc1=(u*(1,1))--(u*(1,3.5))--(u*(2,3.5))--(u*(2.5,1))--cycle;
cc2=(u*(3,2.5))--(u*(4.5,4))--(u*(5,3.5))--(u*(6,3.5))--(u*(6,2.5))--(u*(5.5,2.5))--(u*(5.5,3))--(u*(5,3))--(u*(5,2.5))--cycle;
cc3=(u*(6.5,1.5)--u*(6.5,2)--u*(8,2)--u*(8,1.5)--u*(8.5,1.5)--u*(8.5,0.5)--u*(7,0.5)--u*(7,1.5)--cycle) shifted (u*(-3.5,0));
path cd;
cd=cercle(u*(12,2),0.5u);
cc4=(u*(11,2)--u*(10.5,4)--u*(11,4)--u*(12.5,3)--arccercle(u*(12.5,3),u*(13,3.5),u*(12.5,3.5))--arccercle(u*(13,3.5),u*(13.5,3),u*(13.5,3.5))--u*(12.5,2)--reverse(subpath(length cd/2,length cd) of cd)--cycle) shifted (u*(-3.5,0));
cc5=(u*(15,1)--u*(14.5,2.5)--u*(15,3)--u*(16.5,2.5)--u*(16,1)--cycle) shifted (u*(-8.5,-1));
for k=1 upto5:
  trace cc[k];
endfor;
label(btex ${\cal F}_1$ etex,u*(1.5,2.5));
label(btex ${\cal F}_2$ etex,u*(4.5,3));
label(btex ${\cal F}_3$ etex,u*(4,1));
label(btex ${\cal F}_4$ etex,u*(8.5,2.5));
label(btex ${\cal F}_5$ etex,u*(7,1));
fin;
figure(0,0,15u,8u);
path ce,cf;
h=(sqrt3)/2;
ce=u*(0.5,9h)--u*(1.5,9h)--u*(1,8h)--cycle;
cf=u*(2.5,9h)--u*(3.5,9h)--u*(4,8h)--u*(3,8h)--cycle;
draw hachurage(ce,60,0.2,0);
draw ce withpen pencircle scaled 1.5bp;
draw hachurage(cf,60,0.2,0);
draw cf withpen pencircle scaled 1.5bp;
label(btex $u_1$ etex,u*(1.5,8.5h));
label(btex $u_2$ etex,u*(4,8.5h));
path cg[];
cg1=(0,0)--u*(2,0)--u*(3.5,3h)--u*(1.5,3h)--cycle;
cg2=u*(3,4h)--u*(1.5,5h)--u*(1,6h)--u*(2,8h)--u*(4,4h)--cycle;
cg3=u*(4.5,1h)--u*(4,2h)--u*(4.5,3h)--u*(5.5,3h)--u*(6,2h)--u*(5.5,1h)--cycle;
cg4=u*(4.5,5h)--u*(6,8h)--u*(7.5,5h)--cycle;
cg5=u*(7,0)--u*(8.5,3h)--u*(11.5,3h)--u*(11,2h)--u*(9,2h)--u*(9.5,1h)--u*(10.5,1h)--u*(10,0)--cycle;
cg6=u*(12,2h)--u*(12,6h)--reverse(arccercle(u*(14,6h),u*(12,6h),u*(13,6h)))--u*(14,2h)--arccercle(u*(14,2h),u*(12,2h),u*(13,2h))--cycle;
for k=1 upto 6:
  remplis cg[k] withcolor 0.9*white;
  draw cg[k] withpen pencircle scaled 1.5bp;
endfor;
draw u*(12.5,5h)--u*(13,6h)--u*(13.5,5h)--cycle;
fill (u*(12.5,5h)--u*(13,6h)--u*(13.5,5h)--cycle) withcolor blanc;
label(btex ${\cal F}_1$ etex,u*(2,1.5h));
label(btex ${\cal F}_2$ etex,u*(2,6h));
label(btex ${\cal F}_3$ etex,u*(5,2h));
label(btex ${\cal F}_4$ etex,u*(6,6.5h));
label(btex ${\cal F}_5$ etex,u*(8.5,1h));
label(btex ${\cal F}_6$ etex,u*(13,4h));
papiertriangle((0,0),(15,8),orange);
fin;
figure(0,0,7.5u,5u);
u:=0.8cm;
path cs;
cs=u*(0,0)--u*(1,0)--u*(1,1)--u*(0,1)--cycle;
draw cs;
draw hachurage(cs,60,0.1,0);
label.rt(btex Unit\'e d'aire etex,u*(1,0.5));
path cx,cv;
cx=arccercle(u*(3,5),u*(5,3),u*(5,5))--arccercle(u*(5,3),u*(3,1),u*(5,1))--reverse(arccercle(u*(3,5),u*(3,1),u*(3,3)))--cycle;
fill cx withcolor 0.9*white;
draw cx withpen pencircle scaled 1.5bp;
cv=arccercle(u*(7,3),u*(7,5),u*(7,4))--u*(9,5)--u*(9,1)--u*(7,1)--reverse(arccercle(u*(7,3),u*(7,1),u*(7,2)))--cycle;
fill cv withcolor 0.9*white;
draw cv withpen pencircle scaled 1.5bp;
u:=1cm;
papiercahier((0,0),(7.5,5),bleu);
fin;
figure(0,0,15u,9u);
papiercinq((0,0),(15,9),orange);
path cg;
cg=(0,0)--u*(0.5,0)--u*(0.5,0.5)--u*(0,0.5)--cycle;
draw cg;
draw hachurage(cg,60,0.1,0);
label.rt(btex Unit\'e d'aire etex,u*(0.5,0.25));
fin;
end