input geometriesyr;
figure(0,0,13u,9u);
pair C,D,E,F,R,S,K,H,G,O,I,J;
papierun((0,0),(13,9),gris);
O=u*(6,5);
C-O=u*(1,3);
D-O=u*(3,-1);
E-O=u*(-2,-1);
F-O=u*(-5,-2);
G-O=u*(5,1);
H-O=u*(4,2);
I-O=u*(1,0);
J-O=u*(0,1);
R-O=u*(-4,1);
S-O=u*(-2,2);
K-O=u*(-2,1);
drawarrow u*(0,5)--u*(13,5);
drawarrow u*(6,0)--u*(6,9);
trace codeperp(I,O,J,5);
drawarrow R--S;
drawarrow R--K;
drawarrow K--S;
drawarrow E--F;
drawarrow C--D;
drawarrow G--H;
marque_p:="croix";
nomme.llft(F);
nomme.ulft(E);
nomme.llft(O);
nomme.bot(I);
nomme.lft(J);
nomme.llft(R);
nomme.lrt(K);
nomme.urt(S);
nomme.ulft(C);
nomme.lrt(D);
nomme.lrt(G);
nomme.ulft(H);
fin;
end