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