input geometriesyr16;

beginfig(1);
  pair A,B,C,O;
  B=u*(1,1);
  C=u*(5,1);
  A=u*(1,4);
  O=1/2[A,C];
  path lun[];
  path cc[];
  cc1=cercledia(A,B);
  lun1=A--(subpath(0.25*length cc1,0.75*length cc1) of cc1)--B--cycle;
  cc2=cercledia(B,C);
  lun2=B--(subpath(0.5*length cc2,length cc2) of cc2)--C--cycle;
  lun3=C--arccercle(C,A,O)--A--cycle;
  trace hachurage(lun1,60,0.3,0);
  trace hachurage(lun2,60,0.3,0);
  nomme.llft(B);
  nomme.lrt(C);
  nomme.ulft(A);
  trace triangle(A,B,C);
  trace codeperp(A,B,C,5);
  remplis lun3 withcolor 0.9*white;
  trace lun1;trace lun2;trace lun3;
endfig;

end