Fichier figure011.mp (figure 1) — Modifié le 5 Avril 2008 à 19 h 01

Source

%@AUTEUR:Guillaume Connan

prologues:=2;

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

input geometriesyr16

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

pair A,B,C,A',B',C',v,D,D',I,J,K;
path t,tt;

A=u*(2,-1.5); B=u*(3,-1); C=u*(2.2,1);
t=polygone(A,B,C);
D=u*(4.5,-2); D'=u*(4,3);
I=0.5[A,A'];J=0.5[B,B'];K=0.5[C,C'];
trace t withpen pencircle scaled 1.3bp withcolor green;
trace tt withpen pencircle scaled 1.3bp withcolor blue;
draw A--A' dashed evenly scaled 2;
draw B--B' dashed evenly scaled 0.5;
draw C--C' dashed withdots withpen pencircle scaled 1.5bp;
label.bot(btex $M$ etex, A);
label.bot(btex $M'$ etex,A');
label.urt(btex $N$ etex,B);
label.ulft(btex $N'$ etex,B');
label.top(btex $P$ etex,C);
label.top(btex $P'$ etex,C');

trace droite(D,D') withcolor orange;
label.urt(btex $\mathcal{D}$ etex, D) withcolor orange;

trace codeperp(C',K,D,5);trace codeperp(B',J,D,5); trace codeperp(A',I,D,5);

trace codesegments(A',I,I,A,1);trace codesegments(C',K,K,C,2);trace codesegments(B',J,J,B,4);

fillcolor:=jaune;
transparence t;
fillcolor:=ciel;
transparence tt;
fin;

end