diff options
Diffstat (limited to 'info/examples/PSTricks_7_de/22-06-90.ltx')
-rw-r--r-- | info/examples/PSTricks_7_de/22-06-90.ltx | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/22-06-90.ltx b/info/examples/PSTricks_7_de/22-06-90.ltx new file mode 100644 index 0000000000..af64825c61 --- /dev/null +++ b/info/examples/PSTricks_7_de/22-06-90.ltx @@ -0,0 +1,40 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% 7. Auflage +%% +%% Beispiel 22-06-90 auf Seite 462. +%% +%% 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{352.81416pt} +\setlength\parindent{0pt} +%StartShownPreambleCommands +\usepackage{pst-solides3d} +%StopShownPreambleCommands +\begin{document} +\psset{lightsrc=10 20 30,viewpoint=50 60 25 rtp2xyz,Decran=25} +\begin{pspicture}(-5,-2)(3,4) +\defFunction{G}(t){ t cos 2 mul }{ t sin 2 mul }{} +\psSolid[object=grille,base=-6 6 -4 4,action=draw,linecolor=black!20] +\psSolid[object=prisme,h=8,fillcolor=yellow!20,RotX=90,hollow,% zeige Innenteil + ngrid=8,incolor=red!30,resolution=19,% für courbeR2+ + base=2 0 3 0 3 3 -3 3 -3 0 -2 0 % x y ... + 180 0 {G} CourbeR2+](0,4,0) +\axesIIID[showOrigin=false](3,1.5,3)(5.5,5,5.5) +\psSolid[object=grille,base=-3 3 0 3,RotX=90,action=draw](0,4,0) +\end{pspicture} +\end{document} |