Source : mediatricev1.mp

input geometriesyr16;
input outilssyr;
figure(0,0,11u,8u);
trace feuillet withcolor blanc;
pair A,B,I;
A=u*(3,4.5);
B=pointarc(cercles(A,5u),340);
marque_p:="croix";
trace segment(A,B) withpen pencircle scaled1.5bp;
nomme.lft(A);
nomme.rt(B);
fin;
for k=0 upto 2:
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace regle(A,B,1);
  trace segment(A,B) withpen pencircle scaled1.5bp;
nomme.lft(A);
nomme.rt(B);
fin;
endfor;
I=iso(A,B);
for k=0 upto 2:
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace regle(A,B,1);
  trace crayon(A,B,1/2,1);
  trace segment(A,B) withpen pencircle scaled1.5bp;
  nomme.lft(A);
  nomme.rt(B);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
endfor;
vues:=4;
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace crayon(A,I,1/2,1);
  trace Codelongueur(A,I,2) withpen pencircle scaled1.25bp withcolor bleu;
  trace segment(A,B) withpen pencircle scaled1.5bp;
  nomme.lft(A);
  nomme.rt(B);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
    figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace crayon(I,B,1/2,1);
  trace Codelongueur(A,I,I,B,2) withpen pencircle scaled1.25bp withcolor bleu;
  trace segment(A,B) withpen pencircle scaled1.5bp;
  nomme.lft(A);
  nomme.rt(B);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
for k=0 upto 2:
figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace equerre(I,B,I,1,3);
  trace segment(A,B) withpen pencircle scaled1.5bp;
  trace Codelongueur(A,I,I,B,2) withpen pencircle scaled1.25bp withcolor bleu;
  nomme.lft(A);
  nomme.rt(B);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
endfor;
for k=0 upto vues:
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace equerre(I,B,I,1,3);
  trace crayon(I,2[I,rotation(B,I,90)],k/vues,1);
  trace segment(I,(2*k/vues)[I,rotation(B,I,90)]) withpen pencircle scaled1.5bp withcolor orange;
  trace segment(A,B) withpen pencircle scaled1.5bp;
  trace Codelongueur(A,I,I,B,2) withpen pencircle scaled1.25bp withcolor bleu;
  nomme.lft(A);
  nomme.rt(B);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
endfor;
for k=0 upto vues:
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace regle(symetrie(2[I,rotation(B,I,90)],I),2[I,rotation(B,I,90)],1);
  trace crayon(symetrie(2[I,rotation(B,I,90)],I),I,k/vues,1);
  trace segment(symetrie(2[I,rotation(B,I,90)],I),(k/vues)[symetrie(2[I,rotation(B,I,90)],I),I]) withpen pencircle scaled1.5bp withcolor orange;
  trace segment(I,2[I,rotation(B,I,90)]) withpen pencircle scaled1.5bp withcolor orange;
  trace segment(A,B) withpen pencircle scaled1.5bp;
  trace Codelongueur(A,I,I,B,2) withpen pencircle scaled1.25bp withcolor bleu;
  nomme.lft(A);
  nomme.rt(B);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  fin;
endfor;
path angledroit;
angledroit=codeperp(rotation(B,I,90),I,B,10);
figure(0,0,11u,8u);
trace feuillet withcolor blanc;
trace droite(I,2[I,rotation(B,I,90)]) withpen pencircle scaled1.5bp withcolor orange;
trace segment(A,B) withpen pencircle scaled1.5bp;
nomme.lft(A);
nomme.rt(B);
drawoptions(withpen pencircle scaled1.25bp withcolor bleu);
trace Codelongueur(A,I,I,B,2);
trace marquedemidroite(I,B);
drawoptions();
trace crayon(I,point(0) of angledroit,1,1);
drawoptions(withcolor rouge);
trace appelation(rotation(B,I,-90),rotation(B,I,90),2mm,btex m\'ediatrice du segment $[AB]$ etex);
drawoptions();
fin;
figure(0,0,11u,8u);
trace feuillet withcolor blanc;
trace droite(I,2[I,rotation(B,I,90)]) withpen pencircle scaled1.5bp withcolor orange;
trace segment(A,B) withpen pencircle scaled1.5bp;
nomme.lft(A);
nomme.rt(B);
drawoptions(withpen pencircle scaled1.25bp withcolor bleu);
trace Codelongueur(A,I,I,B,2);
trace marquedemidroite(I,B);
trace subpath(0,1) of angledroit;
drawoptions();
trace crayon(point(0) of angledroit,point(1) of angledroit,1,1);
drawoptions(withcolor rouge);
trace appelation(rotation(B,I,-90),rotation(B,I,90),2mm,btex m\'ediatrice du segment $[AB]$ etex);
drawoptions();
fin;
figure(0,0,11u,8u);
trace feuillet withcolor blanc;
trace droite(I,2[I,rotation(B,I,90)]) withpen pencircle scaled1.5bp withcolor orange;
trace segment(A,B) withpen pencircle scaled1.5bp;
nomme.lft(A);
nomme.rt(B);
drawoptions(withpen pencircle scaled1.25bp withcolor bleu);
trace Codelongueur(A,I,I,B,2);
trace marquedemidroite(I,B);
trace angledroit;
drawoptions();
trace crayon(point(1) of angledroit,point(2) of angledroit,1,1);
drawoptions(withcolor rouge);
trace appelation(rotation(B,I,-90),rotation(B,I,90),2mm,btex m\'ediatrice du segment $[AB]$ etex);
drawoptions();
  fin;
for k=0 upto 2:
  figure(0,0,11u,8u);
  trace feuillet withcolor blanc;
  trace droite(I,2[I,rotation(B,I,90)]) withpen pencircle scaled1.5bp withcolor orange;
  trace segment(A,B) withpen pencircle scaled1.5bp;
  drawoptions(withpen pencircle scaled1.25bp withcolor bleu);
  trace Codelongueur(A,I,I,B,2);
  trace marquedemidroite(I,B) withpen pencircle scaled 1.5bp withcolor bleu;
  trace angledroit;
  drawoptions();
  nomme.lft(A);
  nomme.rt(B);
  drawoptions(withcolor rouge);
  trace appelation(rotation(B,I,-90),rotation(B,I,90),2mm,btex m\'ediatrice du segment $[AB]$ etex);
  drawoptions();
  fin;
endfor;
end