verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex
input geometriesyr16;
figuremainlevee(0,0,10u,10u);
pair A,B,C;
A=u*(3,2);
C-A=u*(5,-1);
B-A=u*(-0.5,4);
path riv[];
riv1=u*(0,5)..B..u*(5,6)..u*(7,6.5)..u*(10,5.5);
riv2=u*(10,3)..u*(6,3.5)..A..u*(0,2);
trace hachurage(riv1--riv2--cycle,60,0.25,2) withcolor orange;
trace riv1;trace riv2;
trace chemin(A,C,B) dashed evenly;
drawarrow segment(A,B);
nomme.top(B);
nomme.bot(A);
nomme.rt(C);
trace Codeangle(C,A,B,0,btex \bf 110\degres etex);
trace Codeangle(B,C,A,0,btex \bf 30\degres etex);
trace appelation(A,C,-2mm,btex 60~m etex);
fin;
end