summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/22-01-20.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/PSTricks_7_de/22-01-20.ltx
Initial commit
Diffstat (limited to 'info/examples/PSTricks_7_de/22-01-20.ltx')
-rw-r--r--info/examples/PSTricks_7_de/22-01-20.ltx84
1 files changed, 84 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/22-01-20.ltx b/info/examples/PSTricks_7_de/22-01-20.ltx
new file mode 100644
index 0000000000..6670a0e8c3
--- /dev/null
+++ b/info/examples/PSTricks_7_de/22-01-20.ltx
@@ -0,0 +1,84 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 7. Auflage
+%%
+%% Beispiel 22-01-20 auf Seite 365.
+%%
+%% Copyright (C) 2016 Herbert Voss
+%%
+%% 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.
+%%
+%%
+%% ====
+% Show page(s) 1
+%%
+%%
+\documentclass[]{exaarticle}
+\pagestyle{empty}
+\setlength\textwidth{193.16928pt}
+\setlength\parindent{0pt}
+\usepackage{pst-3d}
+\def\face{%
+ \pscurve(1;160)(0.8;180)(1;200)
+ \pscustom{\gsave\psarc(0,0){1}{165}{195}
+ \pscurve(1;195)(0.85;180)(1;165)
+ \fill[fillstyle=solid,fillcolor=blue]\grestore}
+ \pscurve[linewidth=.4pt](1;195)(0.85;180)(1;165)
+ {\psset{linewidth=2pt}
+ \psarc(0,1){1}{180}{270}
+ \psarc(0,-1){1}{90}{180}}
+ \psarc(0,0){1}{150}{210}
+ \psset{linewidth=4pt,linecolor=gray}
+ \pscurve(-.5,3.5)(-1,3)(-1.2,2.5)(-1.3,2)(-1.4,1)(-1.35,0.5)(-1.2,-.2)(-1.35,-.5)
+ (-1.4,-1)(-1.5,-1.5)(-1.8,-2)(-1.8,-2.3)(-1.65,-2.5)(-1.35,-2.55)(-.95,-2.8)
+ (-.95,-3.35)(-1,-3.65)(-.8,-4)(-.4,-4.1)
+ \pscurve(-.8,-4)(-.8,-4.2)(-.5,-4.5)(-.4,-5)(-.25,-5.5)(0,-5.8)(.5,-6)}
+%StartShownPreambleCommands
+\usepackage{pst-3d,multido}
+%StopShownPreambleCommands
+\begin{document}
+\begin{pspicture}(-5,-1)(5,6)
+\psset{viewpoint=3 5 2}
+\psset{unit=2}
+ %le plan Oxy
+\ThreeDput[normal=0 0 1](0,0,0){%
+ \psline{->}(0,0)(2,0)
+ %\uput[90](2,0){$x$}
+ \qdisk(1,0.5){2pt}
+ \psline(1,0)(1,0.5)\psline(1,0.5)(0,0.5)
+ \psline[linestyle=dotted](0,0)(1,0.5)
+ \psset{fillstyle=solid,fillcolor=lightgray,linestyle=none}
+ \psframe(1,0)(1.15,.15)
+ \psframe(0,.5)(.15,.65)}
+%le plan Oyz
+\ThreeDput[normal=1 0 0](0,0,0){%
+ \psline{->}(0,0)(2,0)
+ \uput[90](2,0){$y$}
+ \psline{->}(0,0)(0,2)
+ \uput[180](0,2){$z$}
+ \uput[90](0.5,0){0.5}
+ \uput[180](0,1.5){1.5}
+ \uput[135](0,0){0}
+ \rput(1.2,1.5){\large 3D-Darstellungen}
+}
+%Plan Ozx
+\ThreeDput[normal=0 1 0](0,0,0){%
+ \uput[90](-2,0){$x$}
+ \uput[90](-1,0){1}
+\rput(-1.5,1){\texttt{pst-3d}}
+}
+\ThreeDput[normal=.5 -1 0](0,0,0){%
+ \psframe[linestyle=none,fillstyle=hlines,hatchwidth=0.1pt,%
+ hatchsep=2pt,hatchcolor=gray!10](0,0)(1.118,1.5)
+ \psline[linewidth=3pt,linecolor=red,arrowinset=0]{->}(0,0)(1.118,1.5)
+ \psline[linestyle=dashed](0,0)(2.236,3)
+ \psline(1.118,0)(1.118,1.5)
+ \psline(1.118,1.5)(0,1.5)
+ \rput{53.3}(2.5348,3.4009){\psscalebox{0.2}{\face}}}
+\end{pspicture}
+\end{document}