(texgraph) Ajout dun exmple
authorPatrick Fradin <pfradin@pfradin-bureau.(none)>
Fri, 7 Oct 2011 16:49:01 +0000 (18:49 +0200)
committerPatrick Fradin <pfradin@pfradin-bureau.(none)>
Fri, 7 Oct 2011 16:49:01 +0000 (18:49 +0200)
texgraph/plans.png [new file with mode: 0644]
texgraph/plans.teg [new file with mode: 0644]

diff --git a/texgraph/plans.png b/texgraph/plans.png
new file mode 100644 (file)
index 0000000..b615494
Binary files /dev/null and b/texgraph/plans.png differ
diff --git a/texgraph/plans.teg b/texgraph/plans.teg
new file mode 100644 (file)
index 0000000..d673bc8
--- /dev/null
@@ -0,0 +1,25 @@
+TeXgraph#
+Cmd
+       view(-6,6,-6,6);
+       Marges(0,0,0,0);
+       size(10);
+       [theta:=-10*deg, phi:=60*deg, ModelView(central), DistCam(20)];
+Graph objet1 = [
+       background(full, gray),
+       P1 :=planEqn([1, 1, 1, 2]), P2 :=[Origin, vecK-vecJ],
+       D := interPP(P1, P2),
+       a :=Copy(getdroite(D), 1, 2),
+       b :=Copy(getplan(P1, 0.75), 11, 2),
+       c :=Copy(getplan(P2, 0.75), 3, 2),
+       Build3D(
+               bdPlan(P1, [color :=red, opacity :=0.7, scale :=0.75 ]),
+               bdPlan(P2, [color :=blue, opacity :=0.7, scale :=0.75]),
+               bdDroite(D, [color :=darkgreen, width :=12]),
+               bdAxes([0, 0], [color :=gold, width :=8, arrows :=1]),
+               bdLabel(a, "$D$", [labelpos :=[0.5, -i]]),
+               bdLabel(b, "$P_1$", [labelpos :=[0.5, i]]),
+               bdLabel(c, "$P_2$", [labelpos :=[0.5, i]])
+       ),
+       Display3D()
+       ];
+

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.