input ../../newjpv02

typerepre:="persp";

figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,15,30);
color A,B,C,D,E,F,G,H;
drawoptions(withcolor gris);
TraceGrille(8);
drawoptions();
TraceAxes;
ObjetCube(1);
DessineObjetNew(gris,violet);
color V;
V=(4,7,6);
dotlabel.urt("V",Projette(V));
draw Projette(V)--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
draw Projette(V)--Projette((0,0,Zpart(V))) dashed evenly withcolor red;
draw Projette((Xpart(V),0,0))--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
draw Projette((0,Ypart(V),0))--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
color Pl[],I,U,W;
I=2/5[(0,0,0),V];
U=0.2(-Ypart(V),Xpart(V),0);
W=0.2(0,-Zpart(V),Ypart(V));
Pl[1]=I+U+W;
Pl[2]=I+U-W;
Pl[3]=I-U-W;
Pl[4]=I-U+W;
fillcolor:=0.9[jaune,white];
transparence Projette(Pl1)--Projette(Pl2)--Projette(Pl3)--Projette(Pl4)--cycle;
draw Projette(Pl1)--Projette(Pl2)--Projette(Pl3)--Projette(Pl4)--cycle withcolor jaune;
drawoptions(withcolor vert);
draw Projette(Sommet1)--Projette(V);
draw Projette(Sommet2)--Projette(V);
draw Projette(Sommet3)--Projette(V);
draw Projette(Sommet5)--Projette(V);
draw Projette(Sommet6)--Projette(V);
draw Projette(Sommet7)--Projette(V);
draw Projette(Sommet8)--Projette(V);
drawoptions();
color II[];
II1=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet1,V);
II2=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet2,V);
II3=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet3,V);
II5=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet5,V);
II6=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet6,V);
II7=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet7,V);
II8=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet8,V);
draw Projette(II1)--Projette(II2)--Projette(II7)--Projette(II6)--cycle;
draw Projette(II2)--Projette(II3)--Projette(II8)--Projette(II7);
draw Projette(II8)--Projette(II5)--Projette(II6);
finespace;

end