input geometriesyr16;

verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex

figuremainlevee(-1u,-1u,7u,6u);
pair D,E,F,K;
E=u*(0,0);
F=u*(6,0);
D=u*(4.5,3);
K=milieu(E,F);
trace codesegments(E,K,K,F,2);
trace polygone(E,D,F);
trace segment(D,K);
trace Codeangle(F,E,D,0,btex 33\degres etex);
trace Codeangle(D,F,E,1,btex 57\degres etex);
trace cotation(E,F,-4mm,-2mm,btex 7~cm etex);
nomme.rt(F);
nomme.lft(E);
nomme.ulft(K);
nomme.top(D);
finmainlevee;

end