%@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