input geometriesyr16;

figuremainlevee(0,0,10u,10u);
pair A,B,C,D;
A=u*(1,1);
D-A=u*(6,0);
B-A=u*(0.1,4);
C-B=u*(5,1);
trace polygone(A,B,C,D);
trace codeperp(B,A,D,8);
trace appelation(B,C,2mm,btex 817 etex);
trace appelation(C,D,2mm,btex 744 etex);
trace appelation(A,D,-2mm,btex 884 etex);
trace appelation(A,B,2mm,btex 663 etex);
nomme.llft(A);
nomme.top(B);
nomme.rt(D);
nomme.urt(C);
finmainlevee;

end