Refonte de la documentation. Ajout d'une option de coloriage en z dans les surfaces...

[mp-solid.git] / doc / figures / Choixvue.mp

diff --git a/doc/figures/Choixvue.mp b/doc/figures/Choixvue.mp
new file mode 100644 (file)
index 0000000..68b5cbc
--- /dev/null
+++ b/doc/figures/Choixvue.mp
@@ -0,0 +1,71 @@
+%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
\ No newline at end of file