Source : Symetriquepoint.mp

input geometriesyr16;
input outilssyr;
vues=5;
figure(0,0,15u,8u);
draw feuillet withcolor blanc;
pair A,I,J,H,K;
A=u*(12,5);
I=u*(7,1);
J=u*(6,7);
K=symetrie(A,I,J);
H=projection(A,I,J);
marque_p:="croix";
nomme.urt(A);
draw droite(I,J);
label.rt(btex $(d)$ etex,I);
fin;
figure(0,0,15u,8u);
trace feuillet withcolor blanc;
nomme.urt(A);
draw droite(I,J);
label.rt(btex $(d)$ etex,I);
draw equerre(I,J,A,-1,1);
fin;
for vue=0 upto vues:
  figure(0,0,15u,8u);
  draw feuillet withcolor blanc;
  nomme.urt(A);
  draw droite(I,J);
  label.rt(btex $(d)$ etex,I);
  draw equerre(I,J,A,-1,1);
  draw crayon(H,A,1-(vue/vues),1.5);
  draw A--(1-(vue/vues))[H,A] withpen pencircle scaled2bp withcolor violet;
  fin;
endfor;
figure(0,0,15u,8u);
draw feuillet withcolor blanc;
draw regle(5/4[A,K],5/4[K,A],1);
nomme.urt(A);
label.rt(btex $(d)$ etex,I);
draw droite(I,J);
draw A--H withpen pencircle scaled2bp withcolor violet;
fin;
pair Z;
Z=5/4[A,K];
for vue=0 upto vues:
  figure(0,0,15u,8u);
  draw feuillet withcolor blanc;
  draw regle(5/4[A,K],5/4[K,A],1);
  nomme.urt(A);
  label.rt(btex $(d)$ etex,I);
  draw droite(I,J);
  draw A--H withpen pencircle scaled2bp withcolor violet;
  draw crayon(5/4[A,K],H,1-(vue/vues),1.5);
  draw H--(1-(vue/vues))[5/4[A,K],H] withpen pencircle scaled2bp withcolor violet;
  fin;
endfor;
figure(0,0,15u,8u);
draw feuillet withcolor blanc;
nomme.urt(A);
label.rt(btex $(d)$ etex,I);
draw droite(I,J);
draw A--5/4[A,K] withpen pencircle scaled2bp withcolor violet;
draw codeperp(A,H,J,5);
fin;
for vue=0 upto vues:
  figure(0,0,15u,8u);
  draw feuillet withcolor blanc;
  nomme.urt(A);
  label.rt(btex $(d)$ etex,I);
  draw droite(I,J);
  draw A--5/4[A,K] withpen pencircle scaled2bp withcolor violet;
  draw codeperp(A,H,J,5);
  trace coupdecompas(H,A,10) dashed dashpattern(on12bp off6bp on3bp off6bp);
  trace rotation(compas(H,A,1),H,-(vue/vues)*180-10);
  if vue<>0:
    trace arccercle(rotation(A,H,-(vue/vues)*180-10),rotation(A,H,-((vue-1)/vues)*180-10),H) dashed dashpattern(on12bp off6bp on3bp off6bp);
    trace arccercle(rotation(A,H,-((vue-1)/vues)*180-10),rotation(A,H,-10),H) withcolor (vue/vues)[black,white] dashed dashpattern(on12bp off6bp on3bp off6bp);
  fi;
  fin;
endfor;
 figure(0,0,15u,8u);
  draw feuillet withcolor blanc;
  nomme.urt(A);
  label.rt(btex $(d)$ etex,I);
  draw droite(I,J);
  draw A--5/4[A,K] withpen pencircle scaled2bp withcolor violet;
  draw codeperp(A,H,J,5);
  marque_p:="croix";
  nomme.ulft(K);
  marque_p:="non";
  draw codesegments(A,H,H,K,2);
  trace arccercle(rotation(A,H,-200),rotation(A,H,-160),H) dashed dashpattern(on12bp off6bp on3bp off6bp);
  fin;
end