Source : trianglerectanglev2.mp

input geometriesyr16;
input outilssyr;
picture depart;
depart=image(
  figuremainlevee(0,0,12u,8u);
  trace feuillet withcolor blanc;
  pair E,F,G;
  E=u*(0.5,6);
  G-E=u*(2,0);
  F=rotation(G,iso(E,G),45);
  trace triangle(E,F,G);
  trace codeperp(E,F,G,5);
  trace appelation(E,G,-2mm,btex 6~cm etex);
  trace appelation(E,F,2mm,btex 3~cm etex);
  finmainlevee;
  );
_nfig:=0;
figure(0,0,12u,8u);
trace depart;
pair A,B,C;
A=u*(5,6.5);
B=pointarc(cercles(A,3u),10);
C=reverse(cercles(A,6u)) intersectionpoint perpendiculaire(A,B,B);
marque_p:="croix";
nomme.ulft(A);
fin;
vues:=5;
for k=0 upto vues:
  figure(0,0,12u,8u);
  trace depart;
  trace regle(A,3[A,B],1);
  nomme.ulft(A);
  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,12u,8u);
trace depart;
nomme.ulft(A);
trace segment(A,B) withpen pencircle scaled 1.5bp;
fin;
figure(0,0,12u,8u);
trace depart;
nomme.ulft(A);
nomme.urt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace crayon(A,B,1,1.5);
fin;
figure(0,0,12u,8u);
trace depart;
nomme.ulft(A);
nomme.urt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace equerre(B,A,B,1,3);
fin;
for k=1 upto vues:
  figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace equerre(B,A,B,1,3);
  trace crayon(B,(1.5*k/vues)[B,C],1,1.5);
  trace segment(B,(1.5*k/vues)[B,C]) withpen pencircle scaled 1.5bp withcolor gris;
  fin;
endfor;
figure(0,0,12u,8u);
trace depart;
nomme.ulft(A);
nomme.urt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
fin;
figure(0,0,12u,8u);
trace depart;
nomme.ulft(A);
nomme.urt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
path angledroit;
angledroit=codeperp(A,B,C,10);
trace crayon(B,point(0) of angledroit,1,1.5);
fin;
figure(0,0,12u,8u);
trace depart;
nomme.ulft(A);
nomme.urt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(B,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,12u,8u);
trace depart;
nomme.ulft(A);
nomme.urt(B);
trace segment(A,B) withpen pencircle scaled 1.5bp;
trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
trace angledroit;
trace crayon(point(1) of angledroit,point(2) of angledroit,1,1.5);
fin;
pair I,J;
I=u*(1,2);
J-I=u*(10,0);
  for k=1 upto 3:
figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  trace regle(I,J,1);
  trace compas(I,I+u*(6,0),1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit;
  fin;
endfor;
path cc;
cc=coupdecompas(A,C,10);
for k=0 upto 3:
  figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  trace compas(A,point(k*length cc/3) of cc,1);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit;
  trace subpath(0,k*length cc/3) of cc withcolor gris;
  fin;
endfor;
figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit;
  trace cc withcolor gris;
  nomme.lrt(C);
  trace crayon(B,C,1,1.5);
  fin;
  for k=0 upto vues:
  figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  trace segment(A,B) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit;
  trace cc withcolor gris;
  trace regle(A,C,1);
  trace segment(A,(k/vues)[A,C]) withpen pencircle scaled 1.5bp;
  if k<>0:
    trace crayon(A,(k/vues)[A,C],1,1.5);
  fi;
  nomme.lrt(C);
  fin;
endfor;
  for k=0 upto vues:
  figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  nomme.lrt(C);
  trace chemin(B,A,C) withpen pencircle scaled 1.5bp;
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace angledroit;
  trace cc withcolor gris;
  trace regle(C,B,1);
  trace segment(C,(k/vues)[C,B]) withpen pencircle scaled 1.5bp;
  if k<>0:
    trace crayon(C,(k/vues)[C,B],1,1.5);
  fi;
  fin;
endfor;
for k=0 upto 2:
  figure(0,0,12u,8u);
  trace depart;
  nomme.ulft(A);
  nomme.urt(B);
  nomme.lrt(C);
  trace demidroite(B,C) withpen pencircle scaled 1.5bp withcolor gris;
  trace cc withcolor gris;
  trace triangle(B,A,C) withpen pencircle scaled 1.5bp;
  trace angledroit;
  fin;
endfor;
end