@options;
  grille();
  aimante();
	
@figure;
  U = point(-6,-8)  {fixe,i};
  V = point(-4,-8)  {fixe,i};
  sUV =segment(U,V);
  T =pointsur(sUV,0)  {rond2,sansnom};
  var x =14*(UT/UV-0.5) {-7};
  X = point(0,0)  {i};
  Y = point(-7,x)  {i};
  d =droite(X,Y)  {rouge};
  A = point(-3,0)  {rouge,aimantage};
  sax_d =reflexion(d)  {noir};
  A' =image(sax_d,A)  {i};
  S = point(-25,0)  {i};
  W = point(-24.7,0)  {i};
  vSW =vecteur(S,W);
  t_vSW =translation(vSW)  {noir};
  D =image(t_vSW,A')  {i};
  sA'D =segment(A',D)  {i};
  B = point(0,6)  {vert,aimantage};
  ce2 =cerclerayon(B,0.2)  {i};
  E =intersection(sA'D,ce2,1)  {rouge,i};
  Z = point(-8,8)  {i};
  d1 =droite(E,Z)  {i};
  N =pointsur(E,Z,1)  {marron,i};
  sEA' =segment(E,A')  {i};
  R =pointsur(sEA',1)  {i};
  I =milieu(A,R);
  ang =angle(Y,I,A);
  s1 =segment(A,I)  {vert,7,/};
  s2 =segment(B,I)  {vert,7,/};
  t =texte(N,"Le symetrique du point A est bien placé")  {vert,dec2,car+2};
  t_incline =texte(-3.5,-7.5,"Déplace le rond pour modifier l'inclinaison de la droite (d)")  {dec2,car-2};