%@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,L,M,N;
picture depart;
numeric i,j,r,v;
r:=.5;%rapport de la persp. cavalière
v:=30;%angle de la ...

A=(0,0);
B=(4u,0);
C-B=r*((B-A) rotated v);
D-C=A-B;
E=(0,4u);
F-E=B-A;
G-F=C-B;
H-G=E-F;

i=.7;
j=.5;
I-A=i*(E-A);
J-B=j*(C-B);


depart=image(
trace 5coinbg--5coinbd--5coinhd;
trace G--H--E--F--G--C--B--F;
trace B--A--E;
trace A--D--H dashed evenly;
trace D--C dashed evenly;
nomme.llft(A);
nomme.lrt(B);
nomme.rt(C);
nomme.lft(D);
nomme.ulft(E);
nomme.ulft(F);
nomme.urt(G);
nomme.ulft(H);


marque_p:="croix";
nomme.lft(I);
nomme.lrt(J);

);%fin de l'image depart

trace depart;

fin;

figure(-u,-u,6.5u,6u);
pair M;
path plana;
trace depart;
M-F=J-B;
trace A--E--M--J withcolor blue withpen pencircle scaled 1bp;
trace A--J dashed evenly withcolor blue withpen pencircle scaled 1bp;
plana=A--E--M--J--cycle;
fillcolor:=.5white+.5blue;
transparence(plana);
fin;

figure(-u,-u,6.5u,6u);
pair N;
path planb;
trace depart;
trace A--E--M--J withcolor blue withpen pencircle scaled 1bp;
trace A--J dashed evenly withcolor blue withpen pencircle scaled 1bp;


N-D=I-A;
trace I--B--C withcolor red withpen pencircle scaled 1bp;
trace C--N--I dashed evenly withcolor red withpen pencircle scaled 1bp;
planb=I--B--C--N--cycle;
fillcolor:=.5white+.5red;
transparence(planb);

fillcolor:=.5white+.5blue;
transparence(plana);

trace I--J dashed evenly withpen pencircle scaled 1bp withcolor .5blue+.5red;
trace I--(2I-J) withpen pencircle scaled 1bp withcolor .5blue+.5red;
trace J--(2J-I) withpen pencircle scaled 1bp withcolor .5blue+.5red;
fin;


figure(-u,-u,6.5u,6u);
pair P,Q;
trace(depart);
trace I--H dashed evenly withpen pencircle scaled 1bp withcolor blue;
P-J=whatever*(I-H);
P-C=whatever*(C-G);
trace J--P withpen pencircle scaled 1bp withcolor blue;

fin;

figure(-u,-u,6.5u,6u);

trace(depart);
trace I--H dashed evenly withpen pencircle scaled 1bp withcolor blue;
trace J--P withpen pencircle scaled 1bp withcolor blue;
trace P--H dashed evenly withpen pencircle scaled 1bp withcolor blue;
Q-I=whatever*(H-P);
Q-B=whatever*(B-A);
trace I--Q withpen pencircle scaled 1bp withcolor blue;
fin;

figure(-u,-u,6.5u,6u);
path planc;
trace(depart);
trace I--H dashed evenly withpen pencircle scaled 1bp withcolor blue;
trace J--P withpen pencircle scaled 1bp withcolor blue;
trace P--H dashed evenly withpen pencircle scaled 1bp withcolor blue;
trace I--Q withpen pencircle scaled 1bp withcolor blue;
trace Q--J dashed evenly withpen pencircle scaled 1bp withcolor blue;
planc=H--I--Q--J--P--cycle;
transparence(planc);

fin;

figure(-u,-u,6.5u,6u);
trace 5coinbg--5coinbd--5coinhd;
trace I--A--Q--J--C--C--P;
trace C--D--H dashed evenly;
trace D--A dashed evenly;
nomme.llft(A);
nomme.lft(D);
nomme.lrt(J);
nomme.rt(C);
nomme.ulft(H);
nomme.lft(I);
trace planc withpen pencircle scaled 1bp withcolor blue;
transparence(planc);
fin;


end