summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/35-00-14.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/35-00-14.ltx
Initial commit
Diffstat (limited to 'info/examples/PSTricks_7_de/35-00-14.ltx')
-rw-r--r--info/examples/PSTricks_7_de/35-00-14.ltx67
1 files changed, 67 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/35-00-14.ltx b/info/examples/PSTricks_7_de/35-00-14.ltx
new file mode 100644
index 0000000000..baa910092c
--- /dev/null
+++ b/info/examples/PSTricks_7_de/35-00-14.ltx
@@ -0,0 +1,67 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 7. Auflage
+%%
+%% Beispiel 35-00-14 auf Seite 824.
+%%
+%% 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}
+%StartShownPreambleCommands
+\usepackage{pst-solides3d}
+%StopShownPreambleCommands
+\begin{document}
+\psscalebox{0.5}{%
+\psset{viewpoint=20 -120 30 rtp2xyz,Decran=20,lightsrc=viewpoint}
+\begin{pspicture}[solidmemory,shift=*](-7,-3)(3,3)
+\psSolid[object=cube,a=4,name=Cube,linecolor=red,numfaces=all,fontsize=100,
+ RotZ=20,action=draw]
+\psImage[unitPicture=30,file=images/tiger.eps,origine=Cube 0 solidcentreface,normal=Cube 0 solidnormaleface,phi=-90]
+\psImage[unitPicture=30,file=images/tiger.eps,origine=Cube 3 solidcentreface,normal=Cube 3 solidnormaleface]
+\psImage[unitPicture=30,file=images/tiger.eps,origine=Cube 2 solidcentreface,normal=Cube 2 solidnormaleface]
+\end{pspicture}
+\qquad
+\psset{viewpoint=40 30 30 rtp2xyz,Decran=20,lightsrc=viewpoint}
+\definecolor{darkred}{RGB}{180,000,000}
+\begin{pspicture}[shift=*](-4,-3)(6,6)
+ \psSurface[ngrid=16 16,hue=0 1,fillcolor=yellow!50,
+ axesboxed,algebraic,Zmin=0,Zmax=8,
+ action=draw**,linewidth=0.2pt](-4,-4)(4,4){ (x^2+y^2)/4 }
+\pstVerb{
+ /fct {dup mul 16 add 4 div} def
+ /Sommets1 { % y=4
+ 4 -0.5 -3.5 {/xi exch def
+ xi 4 0 xi 0.5 sub 4 0 xi 0.5 sub dup 4 exch fct
+ xi dup 4 exch fct } for } def
+ /Faces1 {
+ 0 4 [Sommets2] length 3 idiv 4 sub { /iF exch def
+ [ iF iF 1 add iF 2 add iF 3 add ] } for } def
+ /Sommets2 { % x=4
+ -4 0.5 3.5 {/yi exch def
+ 4 yi 0 4 yi 0.5 add 0 4 yi 0.5 add dup fct
+ 4 yi dup fct } for } def
+ /Faces2 {
+ 0 4 [Sommets2] length 3 idiv 4 sub { /iF exch def
+ [ iF iF 1 add iF 2 add iF 3 add ] } for } def
+}%
+\psSolid[object=new,sommets=Sommets1,faces={Faces1},
+ fillcolor=darkred,linewidth=0.2pt]
+\psSolid[object=new,sommets=Sommets2,faces={Faces2},
+ fillcolor=darkred,linewidth=0.2pt]
+\end{pspicture}}
+\end{document}