doc/figures/choixvue.mp

   1 input ../../newjpv02
   2
   3 typerepre:="persp";
   4
   5 figureespace(-10u,-10u,10u,10u);
   6 Initialisation(500,30,15,30);
   7 color A,B,C,D,E,F,G,H;
   8 drawoptions(withcolor gris);
   9 TraceGrille(8);
  10 drawoptions();
  11 TraceAxes;
  12 ObjetCube(1);
  13 DessineObjetNew(gris,violet);
  14 color V;
  15 V=(4,7,6);
  16 dotlabel.urt("V",Projette(V));
  17 draw Projette(V)--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
  18 draw Projette(V)--Projette((0,0,Zpart(V))) dashed evenly withcolor red;
  19 draw Projette((Xpart(V),0,0))--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
  20 draw Projette((0,Ypart(V),0))--Projette((Xpart(V),Ypart(V),0)) dashed evenly withcolor red;
  21 color Pl[],I,U,W;
  22 I=2/5[(0,0,0),V];
  23 U=0.2(-Ypart(V),Xpart(V),0);
  24 W=0.2(0,-Zpart(V),Ypart(V));
  25 Pl[1]=I+U+W;
  26 Pl[2]=I+U-W;
  27 Pl[3]=I-U-W;
  28 Pl[4]=I-U+W;
  29 fillcolor:=0.9[jaune,white];
  30 transparence Projette(Pl1)--Projette(Pl2)--Projette(Pl3)--Projette(Pl4)--cycle;
  31 draw Projette(Pl1)--Projette(Pl2)--Projette(Pl3)--Projette(Pl4)--cycle withcolor jaune;
  32 drawoptions(withcolor vert);
  33 draw Projette(Sommet1)--Projette(V);
  34 draw Projette(Sommet2)--Projette(V);
  35 draw Projette(Sommet3)--Projette(V);
  36 draw Projette(Sommet5)--Projette(V);
  37 draw Projette(Sommet6)--Projette(V);
  38 draw Projette(Sommet7)--Projette(V);
  39 draw Projette(Sommet8)--Projette(V);
  40 drawoptions();
  41 color II[];
  42 II1=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet1,V);
  43 II2=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet2,V);
  44 II3=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet3,V);
  45 II5=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet5,V);
  46 II6=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet6,V);
  47 II7=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet7,V);
  48 II8=IntersectionPlanDroite(Pl1,Pl2,Pl3,Sommet8,V);
  49 draw Projette(II1)--Projette(II2)--Projette(II7)--Projette(II6)--cycle;
  50 draw Projette(II2)--Projette(II3)--Projette(II8)--Projette(II7);
  51 draw Projette(II8)--Projette(II5)--Projette(II6);
  52 finespace;
  53
  54 end