summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/6-7-39.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/6-7-39.ltx
Initial commit
Diffstat (limited to 'info/examples/lgc2/6-7-39.ltx')
-rw-r--r--info/examples/lgc2/6-7-39.ltx38
1 files changed, 38 insertions, 0 deletions
diff --git a/info/examples/lgc2/6-7-39.ltx b/info/examples/lgc2/6-7-39.ltx
new file mode 100644
index 0000000000..1d84d721f2
--- /dev/null
+++ b/info/examples/lgc2/6-7-39.ltx
@@ -0,0 +1,38 @@
+%%
+%% The LaTeX Graphics Companion, 2ed (first printing May 2007)
+%%
+%% Example 6-7-39 on page 446.
+%%
+%% 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{ttctexa}
+\pagestyle{empty}
+\setcounter{page}{6}
+\setlength\textwidth{348.0pt}
+\StartShownPreambleCommands
+\usepackage{pst-vue3d,multido}
+\StopShownPreambleCommands
+\begin{document}
+\begin{pspicture}(-3.5,-2)(3,4.5)
+\psset{THETA=5,PHI=40,Dobs=150,Decran=6.5,fillstyle=solid,linewidth=0.1mm}
+{ \psset{normaleLongitude=0, normaleLatitude=90}
+ \FrameThreeD[fillstyle=solid,fillcolor=black!15](0,0,0)(-50,0)(50,50)
+ \FrameThreeD[fillstyle=solid,fillcolor=black!15](0,0,0)(-50,0)(50,-50)
+ \QuadrillageThreeD(0,0,0)(-50,-50)(50,50) }
+\multido{\iCY=-45+90}{2}{\CylindreThreeD(-45,\iCY,0){5}{50}
+ \DemiSphereThreeD(-45,\iCY,50){5}}
+\CylindreThreeD(0,0,0){10}{15} \CylindreThreeD(0,0,15){20}{5}
+\DemiSphereThreeD[RotX=180](0,0,35){20}
+\SphereCreuseThreeD[RotX=180](0,0,35){20}
+{ \psset{RotY=90,RotX=0,RotZ=30} \CylindreThreeD(15,15,5){5}{20} }
+\multido{\iCY=-45+90}{2}{\CylindreThreeD(45,\iCY,0){5}{50}
+ \DemiSphereThreeD(45,\iCY,50){5}}
+\end{pspicture}
+\end{document}