Source : rectanglev1.mp

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 appelation(E,F,-2mm,btex 6~cm etex);
  trace appelation(E,H,2mm,btex 3,5~cm etex);
  finmainlevee;
  );
%depart:=rotation(depart,(0,0),-15);
_nfig:=0;
figure(0,0,12u,8u);
trace feuillet withcolor blanc;
trace depart;
pair A,B,C,D;
A=u*(5,2);
B-A=u*(6,0);
C-B=u*(0,3.5);
D-C=A-B;
marque_p:="croix";
nomme.llft(A);
trace crayon(A,B,0,1.5);
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,2[A,B],1);
  trace segment(A,(k/vues)[A,B]) withpen pencircle scaled 1.5bp;
  trace crayon(A,B,k/vues,1.5);
  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.5);
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  trace equerre(B,C,B,1,3);
  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(B,C,B,1,3);
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace segment(B,(2k/vues)[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(2[B,C],B,1-k/vues,1.5);
  fin;
endfor;
path angledroit[];
angledroit1=codeperp(A,B,C,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 demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(A,point(0) of angledroit1,1,1.5);
  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 demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(point(0) of angledroit1,point(1) of angledroit1,1,1.5);
  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 demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(B,point(2) of angledroit1,1,1.5);
  trace angledroit1;
  fin;
  for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  trace regle(B,2[B,C],1);
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace segment(B,(k/vues)[B,C]) withpen pencircle scaled 1.5bp;
  trace crayon(C,B,1-k/vues,1.5);
  fin;
endfor;
  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 demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace segment(B,C) withpen pencircle scaled 1.5bp;
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace segment(B,C) withpen pencircle scaled 1.5bp;
  trace crayon(B,C,1,1.5);
  fin;
  for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace equerre(A,B,A,1,2);
  trace segment(A,(2*k/vues)[A,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(2[A,D],A,1-k/vues,1.5);
  fin;
endfor;
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit1;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  fin;
  angledroit2=codeperp(D,A,B,10);
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(A,point(0) of angledroit2,1,1.5);  
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(point(0) of angledroit2,point(1) of angledroit2,1,1.5);
  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.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(point(1) of angledroit2,point(2) of angledroit2,1,1.5);
  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.urt(C);
  trace equerre(C,D,C,1,2.5);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit2;
  trace segment(C,(1.3*k/vues)[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(1.3[C,D],C,1-k/vues,1.5);
  fin;
endfor;
angledroit3=codeperp(B,C,D,10);
figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit2;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(A,point(0) of angledroit3,1,1.5);
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit2;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(point(0) of angledroit3,point(1) of angledroit3,1,1.5);
  trace subpath(0,1) of angledroit3;
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit2;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(point(1) of angledroit3,point(2) of angledroit3,1,1.5);
  trace angledroit3;
  fin;
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  nomme.ulft(D);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit2;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace crayon(C,D,1,1.5);
  trace angledroit3;
  fin;
  for k=0 upto vues:
    figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  nomme.ulft(D);
  trace regle(D,1.25[D,C],1);
  trace crayon(C,D,k/vues,1.5);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C) withpen pencircle scaled 1.5bp;
  trace segment(C,(k/vues)[C,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.urt(C);
  nomme.ulft(D);
  trace regle(D,1.25[D,A],1);
  trace crayon(D,A,k/vues,1.5);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace chemin(A,B,C,D) withpen pencircle scaled 1.5bp;
  trace segment(D,(k/vues)[D,A]) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  fin;
endfor;
for k=0 upto 2:
  figure(0,0,12u,8u);
  trace feuillet withcolor blanc;
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.urt(C);
  nomme.ulft(D);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace demidroite(A,D) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(C,1.3[C,D]) withpen pencircle scaled 1.5bp withcolor gris;
  trace polygone(A,B,C,D) withpen pencircle scaled 1.5bp;
  trace angledroit1;
  trace angledroit2;
  trace angledroit3;
  fin;
endfor;
end