doc/figures/Choixvue.mp

   1 %input ../../newjpv02
   2 %
   3 verbatimtex
   4   %&latex
   5   \documentclass{article}
   6   \usepackage{fourier}
   7   \begin{document}
   8   etex
   9
  10 input mp-solid
  11
  12 typerepre:="persp";
  13
  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);
  18 TraceGrille(7);
  19 drawoptions();
  20 TraceAxes;
  21 outcolor:=violet;
  22 incolor:=violet;
  23 nb:=1;subh:=1;
  24 TR:=(0.5,0.5,0.5);
  25 Objetcube1("a=1");
  26 Transparence:=true;
  27 AffichageObjet1;
  28 color V;
  29 V=(4,7,6);
  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;
  38 color Pl[],I,U,W;
  39 I=2/5[(0,0,0),V];
  40 U=0.2(-Ypart(V),Xpart(V),0);
  41 W=0.2(0,-Zpart(V),Ypart(V));
  42 Pl[1]=I+U+W;
  43 Pl[2]=I+U-W;
  44 Pl[3]=I-U-W;
  45 Pl[4]=I-U+W;
  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);
  57 drawoptions();
  58 color II[];
  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);
  69 finespace;
  70
  71 end