%@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,o;
path p;
a:=origin;
b:=(4u,0);
d:=(u,3u);
c:=b+d;
o:=.5c;
p:=a--b--c--d--cycle;
fill p withcolor .9white;
trace p withpen pencircle scaled 1.8bp withcolor .4white;
trace codesegments(a,o,o,c,2);
trace codesegments(b,o,o,d,4);
trace a--c;
trace b--d;
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.lft(btex O etex,o);
fin;

end