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

d.mp (figure 1)
Source

input geometriesyr16;
marque_r:=25;
marque_p:="plein";
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.5,0.5);
path cc;
cc=cercles(A,0.4u);
B=pointarc(cc,30);
trace cc;
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.5,0.5);
path cc;
cc=cercles(A,0.4u);
B=pointarc(cc,30);
trace cc;
trace segment(A,B);
drawoptions(withcolor bleu);
pointe(A);
drawoptions();
trace cercles(A,marque_r/10);
fin;
end