%% %% A DANTE-Edition example %% %% Example 36-00-70 on page 796. %% %% Copyright (C) 2011 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[]{article} \pagestyle{empty} \setlength\textwidth{201.70511pt} \setlength\parindent{0pt} \usepackage{pst-solides3d} \begin{document} \psset{unit=0.75} \begin{pspicture}(-6.5,-3)(7,11) \psset{lightsrc=10 -20 50,viewpoint=50 -20 20 rtp2xyz,Decran=50} \psSolid[object=grille,base=-4 4 -4 4, linecolor=lightgray,linewidth=0.5\pslinewidth]% \psSolid[object=grille,base=-4 4 0 8, linecolor=lightgray,RotX=90, linewidth=0.5\pslinewidth](0,4,0) \psSolid[object=grille,base=-4 4 -4 4, linecolor=lightgray,RotY=90, linewidth=0.5\pslinewidth](-4,0,4) \defFunction[algebraic]{helice}(t)% {1.3*(1-cos(2.5*t))*cos(6*t)} {1.3*(1-cos(2.5*t))*sin(6*t)}{t} \defFunction[algebraic]{helice_xy}(t)% {1.3*(1-cos(2.5*t))*cos(6*t)} {1.3*(1-cos(2.5*t))*sin(6*t)}{0} \defFunction[algebraic]{helice_xz}% (t){1.3*(1-cos(2.5*t))*cos(6*t)}{4}{t} \defFunction[algebraic]{helice_yz}% (t){-4}{1.3*(1-cos(2.5*t))*sin(6*t)}{t} \psset{range=0 8} \psSolid[object=courbe,r=0,linecolor=blue, linewidth=0.05,resolution=360, normal=0 0 1,function=helice_xy] \psSolid[object=courbe,r=0, linecolor=green,linewidth=0.05, resolution=360,normal=0 0 1, function=helice_xz] \psSolid[object=courbe,r=0, linewidth=0.05,resolution=360, normal=0 0 1,function=helice_yz] \psSolid[object=courbe,r=0, linecolor=red,linewidth=0.1, resolution=360,function=helice] \end{pspicture} \end{document}