input geometriesyr16;

figure(0,0,10u,8u);
trace feuillet withcolor gris;
pair F[],A[];
F1=u*(9,1);
F2=u*(2,5.75);
A1=u*(1,1);
A2=u*(8,7);
marque_p:="plein";
drawoptions(withcolor rouge);
pointe(F1,F2);
drawoptions(withcolor bleu);
pointe(A1,A2);
drawoptions();
path d[];
d1=perpendiculaire(F1,A1,iso(A1,F1));
d2=perpendiculaire(F2,A1,iso(A1,F2));
d3=perpendiculaire(F2,A2,iso(A2,F2));
d4=perpendiculaire(F1,A2,iso(A2,F1));
path cc,dd;
cc=buildcycle(d1,d3,d4,chemin(coinbg,coinbd,coinhd));
draw hachurage(cc,60,0.25,0) withcolor orange;
draw cc withcolor orange;
dd=buildcycle(chemin(coinhd,coinhg,coinbg),d2,d1,d3);
draw hachurage(dd,60,0.25,0) withcolor orange;
draw dd withcolor orange;
drawoptions(dashed evenly);
draw d1;draw d2;draw d3;draw d4;
drawoptions();
fin;

end