%@AUTEUR:Guillaume Connan

prologues:=2;

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

input geometriesyr16

figure(0,0,11u,5u);

trace grille(0.5);

marque_p:="plein";

pair A,B,C,D,E,J,I,O,h,v;

E=u*(1,0.5);
h=u*(4,0); v=u*(0,4);
O=E shifted h;A=O shifted h;
D=E shifted v;C=O shifted v;B=A shifted v;
I=0.5[D,C]; J=0.5[O,C];
trace polygone(E,D,B,A)withpen pencircle scaled 1.3bp;;
draw C--O withpen pencircle scaled 1.3bp;;
nomme.bot(E);
nomme.bot(O);
nomme.bot(A);
nomme.rt(J);
nomme.top(B);
nomme.top(C);
nomme.top(I);
nomme.top(D);

fin;

end