summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/D-6-6.ltx
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/lgc2/D-6-6.ltx
Initial commit
Diffstat (limited to 'info/examples/lgc2/D-6-6.ltx')
-rw-r--r--info/examples/lgc2/D-6-6.ltx104
1 files changed, 104 insertions, 0 deletions
diff --git a/info/examples/lgc2/D-6-6.ltx b/info/examples/lgc2/D-6-6.ltx
new file mode 100644
index 0000000000..77b14b72ba
--- /dev/null
+++ b/info/examples/lgc2/D-6-6.ltx
@@ -0,0 +1,104 @@
+%%
+%% The LaTeX Graphics Companion, 2ed (first printing May 2007)
+%%
+%% Example D-6-6 on page .
+%%
+%% Copyright (C) 2007 Michel Goossens, Frank Mittelbach, Denis Roegel, Sebastian Rahtz, Herbert Vo\ss
+%%
+%% It may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%%
+%% See http://www.latex-project.org/lppl.txt for details.
+%%
+
+\documentclass{ttctexaplate}
+\pagestyle{empty}
+\setcounter{page}{6}
+\setlength\textwidth{413.44133pt}
+\StartShownPreambleCommands
+\usepackage{pst-vue3d}
+\setlength\parindent{0pt}
+\StopShownPreambleCommands
+\begin{document}
+\psset{%
+ CubeColorFaceOne=1 1 1, CubeColorFaceTwo=1 0 0,
+ CubeColorFaceThree=0 1 0,CubeColorFaceFour=0 0 1,
+ CubeColorFaceFive=1 1 0, CubeColorFaceSix=0 1 1}
+\definecolor{GrisClair}{cmyk}{0.25,0.01,1,0}
+\definecolor{GrisTresClair}{cmyk}{0.01,0.25,1,0}
+\newcommand*\PlansOXYZ[1]{{%
+ \psset{fillstyle=solid,grille=10,linewidth=0.2mm,%
+ normaleLongitude=0,normaleLatitude=90}
+ \FrameThreeD[fillcolor=GrisClair](0,0,0)(-50,0)(0,50)
+ \QuadrillageThreeD(0,0,0)(-50,0)(0,50)%
+ \psset{normaleLongitude=90,normaleLatitude=0}
+ \FrameThreeD[fillcolor=GrisTresClair](0,0,0)(0,0)(50,-#1)
+ \QuadrillageThreeD(0,0,0)(0,-#1)(50,0)%
+ \psset{normaleLongitude=0,normaleLatitude=0}
+ \FrameThreeD[fillcolor=GrisTresClair](0,0,0)(-50,0)(0,-#1)
+ \QuadrillageThreeD(0,0,0)(-50,-#1)(0,0)%
+}}
+\begin{pspicture}(-2.8,-3)(3.75,3.5)
+ \psset{THETA=30,PHI=30,Dobs=200,Decran=12}
+ \PlansOXYZ{50}
+ \pNodeThreeD(40,40,35){G}
+ \pNodeThreeD(40,40,0){G_XY}
+ \pNodeThreeD(40,0,0){G_X}
+ \pNodeThreeD(0,40,0){G_Y}
+ \pNodeThreeD(0,0,35){G_Z}
+ \pNodeThreeD(0,40,35){G_YZ}
+ \pNodeThreeD(40,0,35){G_XZ}
+ \psdots[linecolor=red,dotscale=3](G)
+ \psdots(G_XY)(G_XZ)(G_YZ)(G_X)(G_Y)(G_Z)
+ \AxesThreeD{->}(55)
+ { \psset{linecolor=red,linewidth=2pt}
+ \psline(G_Z)(G_XZ)\psline(G_Z)(G_YZ)
+ \psline(G_X)(G_XY)\psline(G_Y)(G_XY)
+ \psline(G_X)(G_XZ)\psline(G_Y)(G_YZ)
+ \psline(G_X)(0,0)\psline(G_Y)(0,0)\psline(G_Z)(0,0)
+ }%
+ \psset{A=5,B=5,C=5}%
+ \DieThreeD[RotZ=90](5,5,5)%
+ \DieThreeD(5,5,30)%
+ \DieThreeD[RotY=90](5,35,5)%
+ \DieThreeD[RotY=90,RotZ=90](35,35,5)%
+ \DieThreeD[RotZ=-90](35,5,5)
+ \DieThreeD[RotX=90,RotZ=-90](35,5,30)%
+ \psset{linecolor=red,linewidth=2pt}
+ \psline(G)(G_XZ)\psline(G)(G_YZ)\psline(G)(G_XY)
+\end{pspicture}
+\psset{%
+ CubeColorFaceOne=1 1 1, CubeColorFaceTwo=1 0 0,
+ CubeColorFaceThree=0 1 0,CubeColorFaceFour=0 0 1,
+ CubeColorFaceFive=1 1 0, CubeColorFaceSix=0 1 1}
+\begin{pspicture}(-2,-2)(6,5)
+ \psset{Dobs=200,Decran=11}
+ \PlansOXYZ{50}
+ \pNodeThreeD(40,40,35){G}
+ \pNodeThreeD(40,40,0){G_XY}
+ \pNodeThreeD(40,0,0){G_X}
+ \pNodeThreeD(0,40,0){G_Y}
+ \pNodeThreeD(0,0,35){G_Z}
+ \pNodeThreeD(0,40,35){G_YZ}
+ \pNodeThreeD(40,0,35){G_XZ}
+ \psdots[linecolor=red,dotscale=3](G)
+ \psdots(G_XY)(G_XZ)(G_YZ)(G_X)(G_Y)(G_Z)
+ \AxesThreeD{->}(55)
+ { \psset{linecolor=red,linewidth=2pt}
+ \psline(G_Z)(G_XZ)\psline(G_Z)(G_YZ)
+ \psline(G_X)(G_XY)\psline(G_Y)(G_XY)
+ \psline(G_X)(G_XZ)\psline(G_Y)(G_YZ)
+ \psline(G_X)(0,0)\psline(G_Y)(0,0)\psline(G_Z)(0,0)
+ }
+ \psset{A=5,B=5,C=5}
+ \DieThreeD[RotZ=90](5,5,5)
+ \DieThreeD(5,5,30)
+ \DieThreeD[RotY=90](5,35,5)
+ \DieThreeD[RotY=90,RotZ=90](35,35,5)
+ \DieThreeD[RotZ=-90](35,5,5)
+ \DieThreeD[RotX=90,RotZ=-90](35,5,30)
+ \psset{linecolor=red,linewidth=2pt}
+ \psline(G)(G_XZ)\psline(G)(G_YZ)\psline(G)(G_XY)
+\end{pspicture}
+\end{document}