Fichier trisectrice.mp (figure 1) — Modifié le 13 Avril 2008 à 13 h 13

trisectrice.mp (figure 1)
Source

input latexmp;
setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,textpathmp");
input textpath;

prologues:=2;

input geometriesyr16;

figure(9u,7u,20.5u,22u);
pair O,A,B,P[],Q[],M[];
O=u*(12.5,12.5);
path cc;
cc=cercles(O,3u);
A=pointarc(cc,30);
B=4.5/3[O,A];
path dd;
dd=perpendiculaire(O,A,B);
l=0;
for k=0 step 1 until 360:
  if k<>30:
    P[k]=pointarc(cc,k);
    if (droite(A,P[k]) intersectiontimes dd)<>(-1,-1):
      Q[k]=droite(A,P[k]) intersectionpoint dd;
      l:=l+1;
      M[l]=iso(P[k],Q[k]);
    fi;
  fi;
endfor;
drawoptions(dashed evenly withcolor gris);
trace cc;
trace droite(O,A);
trace dd;
drawoptions(withcolor rouge);
path trisectrice;
trisectrice=M1
for k=2 step 1 until l:
  ..M[k]
endfor;
trace trisectrice;
drawoptions(withcolor bleu);
trace textpath("\Large Trisectrice de Mac-Laurin",reverse(trisectrice),0.06);
fin;
end