Source : trianglerectanglev1.mp

input geometriesyr16;
input outilssyr;
picture depart;
depart=image(
  figuremainlevee(0,0,11u,8u);
  trace feuillet withcolor blanc;
  pair E,F,G;
  E=u*(2,5);
  G-E=u*(1.5,1);
  F=4/3[E,rotation(G,E,90)];
  trace triangle(E,F,G);
  trace codeperp(F,E,G,5);
  trace appelation(E,G,-2mm,btex 3~cm etex);
  trace appelation(E,F,2mm,btex 4~cm etex);
  finmainlevee;
  );
_nfig:=0;
figure(0,0,11u,8u);
trace depart;
pair A,B,C;
A=u*(5,2);
B-A=u*(3,0);
C-A=u*(0,4);
marque_p:="croix";
nomme.llft(A);
fin;
vues:=5;
for k=0 upto vues:
  figure(0,0,11u,8u);
  trace depart;
  nomme.llft(A);
  trace regle(A,3[A,B],1);
  trace crayon(A,B,k/vues,1.5);
  trace segment(A,(k/vues)[A,B]) withpen pencircle scaled 1.5bp;
  fin;
endfor;
figure(0,0,11u,8u);
trace depart;
nomme.llft(A);
trace segment(A,B) withpen pencircle scaled 1.5bp;
fin;
figure(0,0,11u,8u);
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,11u,8u);
trace depart;
nomme.llft(A);
nomme.lrt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace equerre(A,B,A,1,2.5);
fin;
for k=1 upto vues:
  figure(0,0,11u,8u);
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace equerre(A,B,A,1,2.5);
  trace crayon(A,(1.5*k/vues)[A,C],1,1.5);
  trace segment(A,(1.5*k/vues)[A,C]) withpen pencircle scaled 1.5bp withcolor gris;
  fin;
endfor;
figure(0,0,11u,8u);
trace depart;
nomme.llft(A);
nomme.lrt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
fin;
figure(0,0,11u,8u);
trace depart;
nomme.llft(A);
nomme.lrt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
path angledroit;
angledroit=codeperp(C,A,B,10);
trace crayon(A,point(0) of angledroit,1,1.5);
fin;
figure(0,0,11u,8u);
trace depart;
nomme.llft(A);
nomme.lrt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
trace subpath(0,1) of angledroit;
trace crayon(point(0) of angledroit,point(1) of angledroit,1,1.5);
fin;
figure(0,0,11u,8u);
trace depart;
nomme.llft(A);
nomme.lrt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
trace angledroit;
trace crayon(point(1) of angledroit,point(2) of angledroit,1,1.5);
fin;
  for k=1 upto vues:
figure(0,0,11u,8u);
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  trace regle(A,C,1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,(k/vues)[A,C]) withpen pencircle scaled 1.5bp;
  trace angledroit;
  trace crayon(A,(k/vues)[A,C],1,1.5);
  fin;
endfor;
figure(0,0,11u,8u);
trace depart;
nomme.llft(A);
nomme.lrt(B);
nomme.ulft(C);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
trace segment(A,C) withpen pencircle scaled 1.5bp;
trace angledroit;
fin;
for k=1 upto vues:
  figure(0,0,11u,8u);
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(C);
  trace regle(C,B,1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace segment(A,C) withpen pencircle scaled 1.5bp;
  trace angledroit;
  trace crayon(C,(k/vues)[C,B],1,1.5);
  trace segment(C,(k/vues)[C,B]) withpen pencircle scaled 1.5bp;
  fin;
endfor;
for k=1 upto 3:
  figure(0,0,11u,8u);
  trace depart;
  nomme.llft(A);
  nomme.lrt(B);
  nomme.ulft(C);
  trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit;
  trace triangle(A,B,C) withpen pencircle scaled 1.5bp;
  fin;
endfor;
end