summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_en/36-00-70.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_en/36-00-70.ltx')
-rw-r--r--info/examples/PSTricks_en/36-00-70.ltx62
1 files changed, 62 insertions, 0 deletions
diff --git a/info/examples/PSTricks_en/36-00-70.ltx b/info/examples/PSTricks_en/36-00-70.ltx
new file mode 100644
index 0000000000..ebcb22d709
--- /dev/null
+++ b/info/examples/PSTricks_en/36-00-70.ltx
@@ -0,0 +1,62 @@
+%%
+%% 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}