Source : rectanglev2.mp

prologues:=2;
input geometriesyr16;
input outilssyr;
picture depart;
depart=image(
  figuremainlevee(0,0,12u,8u);
  %trace feuillet withcolor blanc;
  pair E,F,G,H;
  E=u*(1,6);
  F-E=u*(2.25,0);
  G-F=u*(0,1.5);
  H-G=E-F;
  trace polygone(E,F,G,H);
  trace codeperp(E,F,G,5);
  trace codeperp(F,G,H,5);
  trace codeperp(H,E,F,5);
  trace segment(E,G) dashed evenly;
  trace appelation(E,G,-2mm,btex 6~cm etex);
  trace appelation(F,G,-2mm,btex 3,5~cm etex);
  finmainlevee;
  );
depart:=rotation(depart,iso(E,F,G,H),-15);
_nfig:=0;
figure(0,0,12u,8u);
trace feuillet withcolor blanc;
trace depart;
pair A,B,C,D;
A=u*(4,2);
B=pointarc(cercles(A,3.5u),340);;
D=6/3.5[A,rotation(B,A,90)];
D-C=A-B;
marque_p:="croix";
nomme.llft(A);
trace crayon(A,B,0,1);
fin;
vues:=4;
for k=0 upto vues:
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  trace regle(A,1.25[A,B],1);
  trace segment(A,(k/vues)[A,B]) withpen pencircle scaled 1.5bp;
  trace crayon(A,B,k/vues,1);
  fin;
endfor;
figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace crayon(A,B,1,1);
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  trace equerre(A,B,A,1,1.85);
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  fin;
  for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  trace equerre(A,B,A,1,1.85);
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,(1.25*k/vues)[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(1.25[A,D],A,1-k/vues,1);
  fin;
endfor;
path angledroit[];
angledroit1=codeperp(D,A,B,10);
figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(A,point(0) of angledroit1,1,1);
  fin;
figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(point(0) of angledroit1,point(1) of angledroit1,1,1);
  trace subpath(0,1) of angledroit1;
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(B,point(2) of angledroit1,1,1);
  trace angledroit1;
  fin;
  pair I,J;
  I=u*(11,1);
  J-I=u*(0,6);
  for k=0 upto 2:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace regle(I,J,1);
  trace compas(I,J,1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  fin;
endfor;
path cc;
cc=coupdecompas(B,D,10);
for k=0 upto 2:
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace compas(B,point(k*length cc/2) of cc,1);
  trace subpath(0,k*length cc/2) of cc withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  fin;
endfor;
figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  trace cc withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace crayon(D,A,0,1);
  fin;
  for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  trace equerre(D,A,D,1,1.25);
  trace segment(D,(1.25*k/vues)[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(1.25[D,C],D,1-k/vues,1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  fin;
endfor;
angledroit2=codeperp(A,D,C,10);
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace crayon(A,point(0) of angledroit2,1,1);  
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace crayon(point(0) of angledroit2,point(1) of angledroit2,1,1);
  trace subpath(0,1) of angledroit2;
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace crayon(point(1) of angledroit2,point(2) of angledroit2,1,1);
  trace angledroit2;
  fin;
for k=0 upto vues:
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  trace equerre(B,C,B,1,2);
  trace segment(B,(1.25*k/vues)[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(1.25[B,C],B,1-k/vues,1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace angledroit2;
  fin;
endfor;
figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace crayon(B,C,1,1);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace angledroit2;
  fin;
  angledroit3=codeperp(A,B,C,10);
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace angledroit2;
  trace crayon(A,point(0) of angledroit3,1,1);
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace angledroit2;
  trace subpath(0,1) of angledroit3;
  trace crayon(point(0) of angledroit3,point(1) of angledroit3,1,1);
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  trace crayon(B,point(2) of angledroit3,1,1);
  fin;
  for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace regle(A,D,1);
  trace crayon(D,A,1-k/vues,1);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(A,(k/vues)[A,D]) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  fin;
endfor;
for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace regle(D,C,1);
  trace crayon(C,D,1-k/vues,1);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(B,A,D) withpen pencircle scaled 1.5bp;
  trace segment(D,(k/vues)[D,C]) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  fin;
endfor;
for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace regle(C,B,1);
  trace crayon(B,C,1-k/vues,1);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(B,A,D,C) withpen pencircle scaled 1.5bp;
  trace segment(C,(k/vues)[C,B]) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  fin;
endfor;
%end
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(D);
  nomme.urt(C);
  trace segment(B,1.25[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,1.25[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(D,1.25[D,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace polygone(B,A,D,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  fin;
end