verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex
%%
input geometriesyr12;
figure(-0.5u,0,8u,6u);
pair A,B,C,D,E;
C=u*(3,1.5);
D=u*(6,1);
A=3/5[C,rotation(D,C,90)];
E=rotation(A,D,-60);
B=iso(A,C) shifted(C-D);
trace A--B--C--D--E--cycle;
trace C--A--D;
trace codeperp(A,C,D,5);
trace codesegments(A,E,E,D,2);
trace codesegments(A,E,A,D,2);
trace codesegments(C,B,B,A,4);
trace codeangle.ulft(A,D,C,1,8mm,btex 60\degres etex);
trace cotationmil(C,D,-2mm,20,btex $4\,cm$ etex);
trace cotationmil(B,A,3mm,20,btex $5\,cm$ etex);
labeloffset:=labeloffset*2;
nomme.urt(A);
labeloffset:=labeloffset/2;
nomme.top(E);
nomme.lrt(D);
nomme.llft(C);
nomme.ulft(B);
fin;
end