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

figure005.mp (figure 1)
Source

%@AUTEUR:Guillaume Connan

prologues:=2;

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

input geometriesyr16

numeric k;
k=1.8;
figure(-1.5u,-3.5u,10u,3u);

pair A,B,C,A',B',C',O;
path t,tt;
O=origin;
A=u*(2,-1.5); B=u*(3,-1); C=u*(2.2,1);
t=polygone(A,B,C);
A'=A scaled k; B':=B scaled k; C':=C scaled k;
tt=t scaled k;
trace t withpen pencircle scaled 1.3bp withcolor green;
trace tt withpen pencircle scaled 1.3bp withcolor blue;
trace segment (O,A') dashed evenly;
trace segment (O,B') dashed evenly;
trace segment (O,C') dashed evenly;
nomme.bot(A);
nomme.bot(A');
nomme.lft(O);
nomme.urt(B);
nomme.urt(B');
nomme.top(C);
nomme.top(C');

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

fin;

end