verbatimtex
%&latex
\documentclass[12pt]{article}
\usepackage{fourier}
\usepackage{amsmath}
\begin{document}
etex

input geometriesyr16;

figure(0,0,7u,7u);
pair A,B,C,D;
A=u*(1,1);
B-A=u*(5,0);
D-A=u*(0,3);
C-D=B-A;
trace polygone(A,iso(A,B),iso(C,D),D);
trace hachurage(polygone(iso(A,B),B,C,iso(C,D)),60,0.25,1);
trace chemin(iso(A,B),B,C,iso(C,D)) dashed evenly;
trace cotationmil(A,D,2mm,10,btex $\ell$ etex);
trace cotationmil(A,iso(A,B),-5mm,10,btex $\dfrac L2$ etex);
fin;

end