input geometriesyr16
figuremainlevee(0,0,14u,12u);
pair A,B,C,D,I,J;
D=u*(2,4);
C-D=u*(5,-1);
A=rotation(C,D,90);
B-A=C-D;
I=rotation(C,D,60);
J=rotation(C,B,60);
trace polygone(A,B,C,D);
trace chemin(D,I,C,J,B);
trace codeperp(A,B,C,5);
trace codeperp(B,C,D,5);
trace codeperp(C,D,A,5);
trace codeperp(D,A,B,5);
trace Codelongueur(A,B,B,C,C,D,D,A,D,I,I,C,C,J,J,B,2);
trace droite(A,J) dashed evenly;
nomme.ulft(A);
nomme.top(I);
nomme.urt(J);
finmainlevee;
end