input geometriesyr12;
figure(0,0,10u,10u);
pair A,B,M,M';
A=u*(1,1);
B=u*(6,2);
marque_p:="croix";
nomme.bot(A);
nomme.bot(B);
trace A--B;
marque_p:="plein";
path FF;
FF=u*(2,2)--u*(3,2)--u*(3,3)--u*(4,3)--u*(4,4)--u*(3,4)--u*(3,5)--u*(5,5)--u*(5,6)--u*(2,6)--cycle;
trace FF;
trace FF shifted(B-A);
M=u*(2,6);
M'-M=B-A;
nomme.top(M);
nomme.top(M');
fin;
figure(0,0,10u,10u);
pair A,B,M,M';
A=u*(1,8);
B=u*(6,7);
M=u*(2,4);
M'-M=B-A;
trace A--B;
nomme.bot(M);
nomme.bot(M');
trace A--M--M'--B dashed evenly;
marque_p:="croix";
nomme.top(A);
nomme.top(B);
marque_p:="non";
fin;
figure(0,0,10u,10u);
pair A,B;
A=u*(1,7);
B=u*(6,8);
path cc;
cc=u*(1,4)--u*(3,5);
trace cc;
trace cc shifted(B-A) withpen pencircle scaled 2bp;
marque_p:="croix";
nomme.top(A);
nomme.top(B);
trace A--B;
fin;
figure(0,0,10u,10u);
path cc;
cc=cercles(u*(3,3),1.5u);
trace cc;
trace cc shifted(B-A) withpen pencircle scaled 2bp;
fin;
figure(0,0,10u,10u);
path cc;
cc=u*(1,1)--u*(4,2)--u*(2,3);
trace cc;
trace cc shifted(B-A) withpen pencircle scaled 2bp;
fin;
figure(0,0,10u,10u);
cadre((0,0),(10,10));
path cc;
cc=u*(1,1)--u*(5,1)--u*(5,2)--u*(4,4)--cycle;
picture img[];
img1=image(
  trace grille(0.5) withcolor gris;
  clip currentpicture to cc;
  );
img2=image(
  trace grille(0.5) withcolor gris;
  clip currentpicture to (cc shifted(B-A));
  );
remplis cc withcolor jaune;
trace img1;
trace cc;
remplis (cc shifted(B-A)) withcolor jaune;
trace img2;
trace cc shifted(B-A) withpen pencircle scaled 2bp;
fin;
figure(0,0,10u,8u);
pair A,B,E,F;
A=u*(1,1);
B=u*(2,5);
trace A--B;
nomme.lft(A);
nomme.lft(B);
E=u*(3,2);
F=u*(6,4);
trace droite(E,F) dashed evenly;
label.top(btex $(d)$ etex,F);
trace droite(E,F) shifted(B-A) withpen pencircle scaled 2bp;
trace marque_para(droite(E,F),droite(E,F) shifted(B-A),0.7) withcolor rouge;
fin;
end