5 \documentclass{article}
14 figureespace(-10u,-10u,10u,10u);
15 Initialisation(500,30,15,30);
16 color A,B,C,D,E,F,G,H;
17 drawoptions(withcolor gris);
30 dotlabel.urt(btex V etex,Projette(V));
31 label.top(btex $x$ etex,Projette((5,0,0)));
32 label.top(btex $y$ etex,Projette((0,5,0)));
33 label.top(btex $z$ etex,Projette((0,0,5)));
34 draw Projette(V)--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
35 draw Projette(V)--Projette((0,0,Zpart(V))) dashed evenly withcolor red;
36 draw Projette((Xpart(V),0,0))--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
37 draw Projette((0,Ypart(V),0))--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
40 U=0.2(-Ypart(V),Xpart(V),0);
41 W=0.2(0,-Zpart(V),Ypart(V));
46 fillcolor:=0.9[jaune,white];
47 transparence Projette(Pl1)--Projette(Pl2)--Projette(Pl3)--Projette(Pl4)--cycle;
48 draw Projette(Pl1)--Projette(Pl2)--Projette(Pl3)--Projette(Pl4)--cycle withcolor jaune;
49 drawoptions(withcolor vert);
50 draw Projette(Image(Sommet1))--Projette(V);
51 draw Projette(Image(Sommet2))--Projette(V);
52 draw Projette(Image(Sommet3))--Projette(V);
53 draw Projette(Image(Sommet5))--Projette(V);
54 draw Projette(Image(Sommet6))--Projette(V);
55 draw Projette(Image(Sommet7))--Projette(V);
56 draw Projette(Image(Sommet8))--Projette(V);
59 II1=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet1,V);
60 II2=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet2,V);
61 II3=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet3,V);
62 II5=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet5,V);
63 II6=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet6,V);
64 II7=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet7,V);
65 II8=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet8,V);
66 draw Projette(II1)--Projette(II2)--Projette(II7)--Projette(II6)--cycle;
67 draw Projette(II2)--Projette(II3)--Projette(II8)--Projette(II7);
68 draw Projette(II8)--Projette(II5)--Projette(II6);