%@Auteur: Didier Aldebert.
input geometriesyr16;

typerepre:="persp";
figureespace(-10u,-10u,10u,10u);
Initialisation(5,60,25,50);%pour persp

color A,B,a,b,c,d,I,M;

a=(-4,-1,-3.2);
b=(-4,1.5,-3.2);
c=(-4,1.5,-0.2);
d=(-4,-1,-0.2);
A=0.5[a,c]+(2,0,0)+0.2(c-b);
I=ProjectionsurPlan(A,a,b,c);
B=symetrie(A,I);
M=0.2[b,d];

trace segment(I,B) cutafter segment(b,c) dashed evenly withcolor bleu;
trace segment(M,B) cutafter segment(b,c) dashed evenly withcolor rouge;
trace polygone(a,b,c,d) withcolor vert;
fillcolor:=0.9[vert,blanc];
transparence polygone(a,b,c,d);
trace segment(A,I) withcolor bleu;
trace segment(I,B) cutbefore segment(b,c) withcolor bleu;
trace segment(A,M) withcolor rouge;
trace segment(M,B) cutbefore segment(b,c) withcolor rouge;
trace segment(I,M);

trace codeperp(A,I,M,8);
trace Codelongueur(A,M,M,B,2);
trace Codelongueur(A,I,I,B,4);

dotlabel.top(btex $A$ etex,Projette(A));
dotlabel.top(btex $I$ etex,Projette(I));
dotlabel.top(btex $B$ etex,Projette(B));
dotlabel.bot(btex $M$ etex,Projette(M));

finespace;
end