%@AUTEUR:Guillaume Connan

prologues:=2;

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

input geometriesyr16

figure(-2cm,-1cm,20cm,5cm);
pair a[],u,v;path p;
a[1]=origin;
u=(2cm,0); v=(0.5cm,1cm);
a[2]=a[1] shifted u;
a[3]=a[2] shifted u;
a[4]=a[1] shifted v;
a[5]=a[2] shifted v;
a[6]=a[3] shifted v;
a[7]=a[4] shifted v;
a[8]=a[5] shifted v;
a[9]=a[6] shifted v;

p=polygone(a[1],a[2],a[5],a[4]);
trace p;
trace p shifted u;
trace p shifted v;
trace p shifted (u+v);

drawarrow a[1]--a[2] withpen pencircle scaled 1.6bp withcolor 0.7white;

drawarrow a[4]--a[5] withpen pencircle scaled 1.6bp;

drawarrow a[8]--a[9] withpen pencircle scaled 1.6bp;

label.bot(btex A etex,a[1]);
label.bot(btex B etex,a[2]);
label.bot(btex C etex,a[3]);
label.lrt(btex D etex,a[4]);
label.lrt(btex E etex,a[5]);
label.lrt(btex F etex,a[6]);
label.top(btex G etex,a[7]);
label.top(btex H etex,a[8]);
label.top(btex I etex,a[9]);
label.top(btex $\ve{d}$ etex,.5(a[1]+a[2])) withcolor 0.6white;
label.top(btex $\ve{d}$ etex,.5(a[4]+a[5]));
label.top(btex $\ve{d}$ etex,.5(a[8]+a[9]));
fin; 

end