diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples/23-06-91.ltx')
| -rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples/23-06-91.ltx | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/23-06-91.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/23-06-91.ltx new file mode 100644 index 00000000000..2321d61b2ad --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples/23-06-91.ltx @@ -0,0 +1,37 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% +%% Copyright (C) 2010 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} +\begin{pspicture}(-7,-2)(7,4) +\psset{lightsrc=80 30 30,viewpoint=1000 60 20 rtp2xyz,Decran=1000} +\psset{solidmemory} +\defFunction[algebraic]{Func}(t){2+2*cos(t)}{2*tan(t/2)}{2*sin(t)} +\defFunction[algebraic]{Func'}(t){-2*sin(t)}{2*(1+tan(1/2*t)^2)}{2*cos(t)} +\psSolid[object=courbe,range=-2.8 2.6,ngrid=72 12,function=Func,name=H1, + hue=0 1 0.7 1,action=none,r=1] +\psSolid[object=cylindrecreux,h=20,r=1,RotX=90,incolor=green!30,action=none,name=C1, + ngrid=36 36](2,10,0) +\psSolid[object=fusion,base=H1 C1] +\composeSolid +\end{pspicture} +\end{document} |