%@Auteur:Thomas Rey
prologues := 2;

input geometriesyr16;

figure(-u,-u,7u,5.3u);
pair A,B,C,D,S,M,N,P,Q,I,J,L;
numeric m,n,p;
picture depart;

m=.5;
n=.7;
p=.53;

A=(0,0);
B=(4u,0);
C=(6u,u);
D=(1.5u,1.8u);
S=(2u,4u);

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


M-S=m*(A-S);
N-S=n*(B-S);
P-S=p*(C-S);
marque_p:="croix";
nomme.lft(M);
nomme.lft(N);
nomme.urt(P);
);% fin de la figure de départ;

trace depart;
fin;

figure(-u,-2u,10u,5.3u);
trace 2coinbg--2coinbd--2coinhd;
trace depart;
fin;


figure(-u,-2u,10u,5.3u);
trace 2coinbg--2coinbd--2coinhd;
trace depart;

I-A=whatever*(A-B);
I-M=whatever*(M-N);

J-C=whatever*(B-C);
J-P=whatever*(N-P);

trace droite(A,B) withcolor red;
trace droite(M,N) withcolor red;

trace droite(N,P) withcolor blue;
trace droite(B,C) withcolor blue;

nomme.bot(I);
nomme.top(J);

fin;


figure(-u,-2u,10u,5.3u);
trace 2coinbg--2coinbd--2coinhd;
trace depart;

trace droite(A,B) withcolor red;
trace droite(M,N) withcolor red;

trace droite(N,P) withcolor blue;
trace droite(B,C) withcolor blue;

nomme.bot(I);
nomme.top(J);

trace droite(I,J) withpen pencircle scaled 1.5bp withcolor green;

fin;



figure(-u,-2u,10u,5.3u);
trace 2coinbg--2coinbd--2coinhd;
trace depart;

nomme.bot(I);
nomme.top(J);

trace droite(I,J) withpen pencircle scaled 1.5bp withcolor green;
trace C--(3C-2D);
L-I=whatever*(I-J);
L-C=whatever*(C-D);
nomme.top(L);
fin;



figure(-u,-2u,10u,5.3u);
pair X;
trace 2coinbg--2coinbd--2coinhd;
trace depart;

nomme.bot(I);
nomme.top(J);

trace droite(I,J) withpen pencircle scaled 1.5bp withcolor green;
trace C--(3C-2D);
nomme.top(L);
Q-L=whatever*(L-P);
Q-S=whatever*(S-D);
X-L=whatever*(L-P);
X-S=whatever*(S-A);

trace demidroite(P,L);
trace P--X dashed evenly;
trace X--(2X-L);
nomme.lrt(Q);

fin;


figure(-u,-2u,10u,5.3u);
path section;
trace 2coinbg--2coinbd--2coinhd;
trace depart;

nomme.bot(I);
nomme.top(J);

trace droite(I,J) withpen pencircle scaled 1.5bp withcolor green;
trace C--(3C-2D);
nomme.top(L);

trace demidroite(P,L);
trace P--X dashed evenly;
trace X--(2X-L);
nomme.lrt(Q);

trace M--N--P withcolor blue withpen pencircle scaled 1bp;
trace P--Q--M dashed evenly withcolor blue withpen pencircle scaled 1bp;
section=M--N--P--Q--cycle;
fillcolor:=.5*white+.5*blue;
transparence(section);

fin;



figure(-u,-2u,10u,5.3u);

trace 2coinbg--2coinbd--2coinhd;

nomme.lrt(Q);
trace M--A--B--C--P;
trace B--N;
trace A--D--C dashed evenly;
trace D--Q dashed evenly;
nomme.llft(A);
nomme.lrt(B);
nomme.lrt(C);
nomme.lrt(D);
nomme.lft(M);
nomme.lft(N);
nomme.urt(P);
nomme.lrt(Q);

trace M--N--P--Q--M withcolor blue withpen pencircle scaled 1bp;

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

fin;

end