Fichier f.mp (figure 1) — Modifié le 3 Avril 2008 à 22 h 03

f.mp (figure 1)
Source

input geometriesyr16;
marque_r:=25;
marque_p:="plein";
figure(0,0,u,u);
trace feuillet withcolor gris;
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B,C,D;
C=u*(0.9,0);
D=u*(0.1,1);
A=u*(0.2,0.3);
B=symetrie(A,C,D);
trace droite(C,D);
drawoptions(withcolor bleu);
pointe(A);
drawoptions(withcolor rouge);
pointe(B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
end