size(7cm,0);
real h=5;
pair O=(0,0),A=(h,0),B=(-h,0);
// M(r=h,theta=70) point du cercle de diamètre [AB]
pair M=h*dir(70);
// H, projeté orthogonal de M sur l'axe (AB) des abscisses
pair H=(M.x,0);
// On définit le centre des demi-cercles.
pair A1=(A+H)/2, B1=(B+H)/2;
// On définit les stylos qui seront utilisés.
pen stylo=1bp+blue, pinceau=lightgrey;
// On définit les arcs de cercles.
path dc=arc(O,A,B),dca=arc(A1,A,H),dcb=arc(B1,H,B);
// ... et on trace le tout :
filldraw(buildcycle(dc,dca,dcb),pinceau,stylo);
dot(O); dot("$M$",M,dir(O--M));
draw(A--B^^O--M--H^^A--M--B,dashed);
// en ajoutant deux points d'intersection...
dot("$N$",intersectionpoint(reverse(dca),M--A),N);
dot("$P$",intersectionpoint(dcb,M--B),N);
// ... une bordure blanche de 3mm autour de l'image
shipout(bbox(3mm,white));