Fichier pyramide.mp (figure 1) — Modifié le 23 Mars 2008 à 17 h 29

pyramide.mp (figure 1)
Source

%@Auteur:Thomas Rey
prologues := 2;

input geometriesyr16.mp;

figure(-u,-u,5u,4u);
pair A,B,C,D,S,M,N;
numeric v,r;
v=30;
r=.5;
A=(0,0);
B=(3u,0);
D-A=r*((B-A) rotated v);
C-D=B-A;
S=.5*(A+C)+(0,3u);
M=.5*(S+A);
N-S=.75*(C-S);

trace B--S--A--B--C--S;
trace C--D--A dashed evenly;
trace S--D dashed evenly;
nomme.top(S);
nomme.llft(A);
nomme.lrt(B);
nomme.lrt(C);
nomme.ulft(D);


marque_p:="croix";
nomme.ulft(M);
nomme.urt(N);
fin;

end