1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
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}
|