Fichier figure010.mp (figure 1) — Modifié le 5 Avril 2008 à 18 h 31

figure010.mp (figure 1)
Source

%@AUTEUR:Guillaume Connan

prologues:=2;

verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\begin{document}
etex

input geometriesyr16

figure(-1.5u,-3.5u,10u,4u);

pair A,B,C,A',B',C',D;
path T,tt;
numeric t;
t=60;
A=u*(2,-1.5); B=u*(3,-1); C=u*(1.2,.5); D=u*(-1,0);
T=polygone(A,B,C);
A'=A rotatedaround(D,t); B'=B rotatedaround(D,t); C'=C rotatedaround(D,t);
tt=T rotatedaround(D,t);
trace T withpen pencircle scaled 1.3bp withcolor green;
trace tt withpen pencircle scaled 1.3bp withcolor blue;
draw D--A dashed evenly scaled 0.5;draw D--A' dashed evenly scaled 0.5;
draw D--B dashed withdots withpen pencircle scaled 1.5bp;draw D--B' dashed withdots withpen pencircle scaled 1.5bp;
draw D--C dashed evenly scaled 2;draw D--C' dashed evenly scaled 2;

trace codesegments(D,A,D,A',1);trace codesegments(D,B,D,B',2); trace codesegments(D,C,D,C',4);
label.bot(btex $M$ etex, A);
label.bot(btex $M'$ etex,A');
label.urt(btex $N$ etex,B);
label.urt(btex $N'$ etex,B');
label.top(btex $P$ etex,C);
label.top(btex $P'$ etex,C');

label.lft(btex $C$ etex, D);

fillcolor:=jaune;
transparence T;
fillcolor:=ciel;
transparence tt;

fin;

end