Fichier b.mp (figure 1) — Modifié le 3 Avril 2008 à 23 h 42

b.mp (figure 1)
Source

verbatimtex
%&latex
\documentclass[12pt]{article}
\begin{document}
etex

input geometriesyr16;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A;
A=u*(0.2,0.3);
marque_r:=35;
marque_p:="plein";
drawoptions(withcolor bleu);
labeloffset:=3*labeloffset;
pointe(A);
label.urt(btex \Large A etex,A);
labeloffset:=labeloffset/3;
drawoptions();
trace cercles(A,marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B,C,D;
marque_r:=25;
A=u*(0,0.25);
B=u*(1,0.75);
C=u*(0.75,0);
D=u*(0,0.85);
trace droite(A,B);
trace C{dir90}..iso(A,B)..{dir 160}D;
drawoptions(withcolor rouge);
pointe(iso(A,B));
drawoptions();
trace cercles(iso(A,B),marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B,I;
A=u*(0.15,0.15);
B=u*(0.85,0.85);
I=iso(A,B);
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions(withcolor rouge);
pointe(I);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
trace cercles(I,marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.3,0.3);
B-A=u*(0.5,0.5);
trace droite(A,B);
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.3,0.3);
B-A=u*(0.5,0.5);
trace segment(A,B);
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.3,0.3);
B-A=u*(0.5,0.5);
trace segment(A,B) withcolor rouge;
drawoptions(withcolor bleu);
pointe(A);
drawoptions(withcolor rouge);
pointe(B);
trace appelation(A,B,2mm,btex a etex);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.3,0.3);
B-A=u*(0.5,0.5);
trace demidroite(A,B);
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.3,0.3);
B-A=u*(0.5,0.5);
trace segment(A,B);
drawarrow A--(B+(marque_r/10)*unitvector(A-B));
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
% figure(0,0,1u,1u);
% à construire b9
% fin;
figure(0,0,1u,1u);
pair A,B,C;
A=u*(0.15,0.15);
C-A=u*(0.7,0.2);
B-A=u*(0.2,0.7);
fillcolor:=rose;
transparence polygone(A,B,C);
drawoptions(withcolor rouge);
trace triangle(A,B,C);
drawoptions(withcolor bleu);
pointe(A,B,C);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
trace cercles(C,marque_r/10);
fin;
end