%@AUTEUR:Guillaume Connan

prologues:=2;

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

input geometriesyr16

figure(-10cm,-5cm,12cm,10cm); 
pair a,b,c,d,e,f;
path p;
a=origin;
b=(4u,0);
d=(u,3u);
c=b+d;
e=.5[b,c];
f=.5[d,c];
p=a--b--c--d--cycle;
fill p withcolor .9white;
trace p withpen pencircle scaled 1.8bp withcolor .4white;
trace codesegments(b,e,e,c,2);
trace codesegments(d,f,f,c,4);
label.bot(btex A etex,a);
label.bot(btex B etex,b);
label.top(btex C etex,c);
label.top(btex D etex,d);
dotlabel.rt(btex E etex,e);
dotlabel.top(btex F etex,f);
fin;

end