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

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,D,E,F,G,H,I,J,K,L;

numeric a,b;

a:=2*u; b:=0.5*u;

A:=origin; J:=A shifted (a-b,0); I:=A shifted (a,0); H:=A shifted (a+b,0);
B:=A shifted (0,-a+b);K:=A shifted (a-b,-a+b); C:=A shifted (0,-a);D:=A shifted (0,-a-b);
L:=A shifted (a,-a);E:=A shifted (a,-a-b);F:=A shifted (a+b,-a-b);G:=A shifted (a+b,-a);

path p,q;
p:=polygone(B,K,J,H,F,D);
fillcolor:=jaune;
transparence p;
trace p withpen pencircle scaled 1.2bp withcolor red;
q:=chemin(B,A,J);
trace q withpen pencircle scaled 1.2bp withcolor red;
trace C--G withpen pencircle scaled 1.2bp withcolor red;
trace I--E withpen pencircle scaled 1.2bp withcolor red;

trace cotation(A,I,6mm,2mm,btex \footnotesize   $2x$ etex );
trace cotation(I,H,2mm,2mm,btex   \footnotesize  $y$ etex );
trace cotation(J,I,2mm,2mm,btex   \footnotesize  $y$ etex );

trace cotation(C,A,6mm,2mm,btex \footnotesize $2x$ etex );
trace cotation(C,B,2mm,2mm,btex   \footnotesize  $y$ etex );
trace cotation(D,C,2mm,2mm,btex  \footnotesize  $y$ etex );

fin;

end