%input ../../newjpv02
%
verbatimtex
  %&latex
  \documentclass{article}
  \usepackage{fourier}
  \begin{document}
  etex

input mp-solid
  
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(7);
drawoptions();
TraceAxes;
outcolor:=violet;
incolor:=violet;
nb:=1;subh:=1;
TR:=(0.5,0.5,0.5);
Objetcube1("a=1");
Transparence:=true;
AffichageObjet1;
color V;
V=(4,7,6);
dotlabel.urt(btex V etex,Projette(V));
label.top(btex $x$ etex,Projette((5,0,0)));
label.top(btex $y$ etex,Projette((0,5,0)));
label.top(btex $z$ etex,Projette((0,0,5)));
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(Image(Sommet1))--Projette(V);
draw Projette(Image(Sommet2))--Projette(V);
draw Projette(Image(Sommet3))--Projette(V);
draw Projette(Image(Sommet5))--Projette(V);
draw Projette(Image(Sommet6))--Projette(V);
draw Projette(Image(Sommet7))--Projette(V);
draw Projette(Image(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