%@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;
path p;
a=origin;
b=(4u,0);
d=(u,3u);
c=b+d;
p=a--b--c--d--cycle;
fill p withcolor .9white;
trace p withpen pencircle scaled 1.8bp withcolor .4white;
label.bot(btex A etex,a);
label.bot(btex B etex,b);
label.top(btex C etex,c);
label.top(btex D etex,d);
fin;

figure(-10cm,-5cm,12cm,10cm); 
pair a,b,c,d,i,e,f;
path p;
a=origin;
b=(4u,0);
d=(u,3u);
c=b+d;
i=.5[a,b];
e=(2/3)[d,i];
f=.5[d,e];

p=a--b--c--d--cycle;
fill p withcolor .9white;
trace d--i;
trace a--c;
trace p withpen pencircle scaled 1.8bp withcolor .4white;
trace Codelongueur(d,f,f,e,e,i,2);
label.bot(btex A etex,a);
label.bot(btex B etex,b);
label.top(btex C etex,c);
label.top(btex D etex,d);
label.bot(btex I etex,i);
label.lft(btex E etex,e);
dotlabel.rt(btex  etex,f);
fin;

end