Fichier section2.mp (figure 8) — Modifié le 23 Mars 2008 à 17 h 32
%@Auteur:Thomas Rey
prologues := 2;
input geometriesyr16;
figure(-u,-u,6.5u,6u);
pair A,B,C,D,E,F,G,H,I,J,K;
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
H=(0,0);
G=(4u,-.5u);
F=(5.5u,u);
E-F=H-G;
D=(0,4u);
C-G=D-H;
B-F=C-G;
A-E=B-F;
trace D--A--B--C--D--H--G--F--B;
trace C--G;
trace A--E--F dashed evenly;
trace E--H dashed evenly;
nomme.top(A);
nomme.top(B);
nomme.rt(C);
nomme.lft(D);
nomme.lft(E);
nomme.rt(F);
nomme.bot(G);
nomme.bot(H);
fin;
%%%%%%%%%%%%%%%%%%%%
%12
figure(-u,-u,6.5u,6u);
pair I,J,K,M;
picture depart;
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
I-D=.6*(C-D);
K-G=.5*(C-G);
J-B=.4*(C-B);
M=.5*(H+G);
depart=image(
trace J--K--I--J--B--A--D--H--G--F--B;
trace K--G;
trace D--I;
trace A--E--F dashed evenly;
trace E--H dashed evenly;
trace J--C--I dashed evenly;
trace C--K dashed evenly;
nomme.top(A);
nomme.top(B);
nomme.rt(C);
nomme.lft(D);
nomme.lft(E);
nomme.rt(F);
nomme.bot(G);
nomme.bot(H);
nomme.top(I);
nomme.ulft(J);
nomme.lrt(K);
marque_p:="croix";
nomme.bot(M);
marque_p:="rien";
);% fin de image
trace depart;
fin;
%%%%%%%%%%%%
%13
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
pair N,P,Q;
trace depart;
%N=intersection plan ACM et (EH)
N-M=whatever*(A-C);
N-E=whatevr*(E-H);
%P=intersection (AC) et (IJ)
P-A=whatever*(A-C);
P-I=whatever*(I-J);
%Q=intersection (MC) et (IK)
Q-C=whatever*(C-M);
Q-I=whatever*(I-K);
trace A--C dashed evenly withcolor blue;
fin;
%%%%%%%%%%%%%%%%%
%14
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace depart;
trace A--C dashed evenly withcolor blue;
trace A--P withcolor blue withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%
%15
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace depart;
trace A--C dashed evenly withcolor blue;
trace A--P withcolor blue withpen pencircle scaled 1bp;
trace M--C dashed evenly withcolor blue;
trace Q--M withcolor blue withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%
%16
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace depart;
trace A--C dashed evenly withcolor blue;
trace A--P withcolor blue withpen pencircle scaled 1bp;
trace M--C dashed evenly withcolor blue;
trace Q--M withcolor blue withpen pencircle scaled 1bp;
trace P--Q withcolor blue withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%%%
%17
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace depart;
trace A--C dashed evenly withcolor blue;
trace A--P withcolor blue withpen pencircle scaled 1bp;
trace M--C dashed evenly withcolor blue;
trace Q--M withcolor blue withpen pencircle scaled 1bp;
trace P--Q withcolor blue withpen pencircle scaled 1bp;
trace M--N dashed evenly withcolor blue withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%%%%
%18
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace depart;
trace A--C dashed evenly withcolor blue;
trace A--P withcolor blue withpen pencircle scaled 1bp;
trace M--C dashed evenly withcolor blue;
trace Q--M withcolor blue withpen pencircle scaled 1bp;
trace P--Q withcolor blue withpen pencircle scaled 1bp;
trace M--N dashed evenly withcolor blue withpen pencircle scaled 1bp;
trace N--A dashed evenly withcolor blue withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%% fin de AMC
%%%%%%%%%%%%%%%%
%19
figure(-u,-u,6.5u,6u);
picture depart;
pair R,S,T,U,V;
depart=image(
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace J--K--I--J--B--A--D--H--G--F--B;
trace K--G;
trace D--I;
trace A--E--F dashed evenly;
trace E--H dashed evenly;
trace A--P--Q--M withcolor blue withpen pencircle scaled 1bp;
trace M--N--A dashed evenly withcolor blue withpen pencircle scaled 1bp;
nomme.top(A);
nomme.top(B);
nomme.lft(D);
nomme.lft(E);
nomme.rt(F);
nomme.bot(G);
nomme.bot(H);
nomme.top(I);
nomme.ulft(J);
nomme.lrt(K);
nomme.lft(Q);
nomme.top(P);
nomme.lft(N);
marque_p:="croix";
nomme.bot(M);
marque_p:="rien";
);% fin de image
trace depart;
%R=intersection plan et (HG)
R-G=whatever*(H-G);
K-R=whatever*(C-M);
%S=intersection plan et (EH)
S-E=whatever*(E-H);
S-R=whatever*(C-A);
%T=intersection plan et (AE)
T-S=whatever*(A-N);
T-A=whatever*(A-E);
%U=intersection plan et (IJ)
U-K=whatever*(P-Q);
U-I=whatever*(I-J);
%V=intersection plan et (AB)
V-U=whatever*(A-C);
V-A=whatever*(A-B);
trace Q--M withcolor red dashed evenly;
trace K--R withcolor red withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%%
%20
figure(-u,-u,6.5u,6u);
trace depart;
trace K--R withcolor red withpen pencircle scaled 1bp;
trace C--A dashed evenly withcolor red;
trace R--S dashed evenly withcolor red withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%
%21
figure(-u,-u,6.5u,6u);
trace depart;
trace K--R withcolor red withpen pencircle scaled 1bp;
trace R--S dashed evenly withcolor red withpen pencircle scaled 1bp;
trace S--T dashed evenly withcolor red withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%%%
% 22
figure(-u,-u,6.5u,6u);
trace depart;
trace K--R withcolor red withpen pencircle scaled 1bp;
trace R--S dashed evenly withcolor red withpen pencircle scaled 1bp;
trace S--T dashed evenly withcolor red withpen pencircle scaled 1bp;
trace K--U withcolor red withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%
%23
figure(-u,-u,6.5u,6u);
trace depart;
trace K--R withcolor red withpen pencircle scaled 1bp;
trace R--S dashed evenly withcolor red withpen pencircle scaled 1bp;
trace S--T dashed evenly withcolor red withpen pencircle scaled 1bp;
trace K--U withcolor red withpen pencircle scaled 1bp;
trace U--V withcolor red withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%%%
%24
figure(-u,-u,6.5u,6u);
trace depart;
trace K--R withcolor red withpen pencircle scaled 1bp;
trace R--S dashed evenly withcolor red withpen pencircle scaled 1bp;
trace S--T dashed evenly withcolor red withpen pencircle scaled 1bp;
trace K--U withcolor red withpen pencircle scaled 1bp;
trace U--V withcolor red withpen pencircle scaled 1bp;
trace V--T dashed evenly withcolor red withpen pencircle scaled 1bp;
fin;
%%%%%%%%%%%%
%25
figure(-u,-u,6.5u,6u);
path coupe;
trace depart;
trace K--R withcolor red withpen pencircle scaled 1bp;
trace R--S dashed evenly withcolor red withpen pencircle scaled 1bp;
trace S--T dashed evenly withcolor red withpen pencircle scaled 1bp;
trace K--U withcolor red withpen pencircle scaled 1bp;
trace U--V withcolor red withpen pencircle scaled 1bp;
trace V--T dashed evenly withcolor red withpen pencircle scaled 1bp;
coupe=U--K--R--S--T--V--cycle;
fillcolor:=.5white+.5red;
transparence(coupe);
fin;
%%%%%%%%%%%%
%26
figure(-u,-u,6.5u,6u);
trace 2coinbg--2coinbd--2coinhd--2coinhg--cycle;
trace V--B--J--U;
trace K--J;
trace B--F--G--K;
trace G--R;
trace S--E--F dashed evenly;
trace E--T dashed evenly;
trace coupe withcolor red;
fillcolor:=red;
transparence(coupe);
nomme.top(B);
nomme.lft(E);
nomme.rt(F);
nomme.bot(G);
nomme.rt(K);
fin;
end