%%
%% A DANTE-Edition example
%%
%% Example 36-00-43 on page 786.
%%
%% 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-3dplot}
\def\drawCircles{%
\parametricplotThreeD[xPlotpoints=100](80,360)(0,360){%
/k 2 def /k2 4 def
t cos k mul 3 u sin k mul add mul
t sin k mul 3 u sin k mul add mul
u cos k2 mul
}
\parametricplotThreeD[yPlotpoints=75](0,360)(80,360){%
/k 2 def /k2 4 def
u cos k mul 3 t sin k mul add mul
u sin k mul 3 t sin k mul add mul
t cos k2 mul
}
\parametricplotThreeD[yPlotpoints=2,linecolor=red,linewidth=2pt](0,360)(80,360){%
/k 2 def /k2 4 def
u cos k mul 3 t sin k mul add mul
u sin k mul 3 t sin k mul add mul
t cos k2 mul
}}
\begin{document}
\psset{unit=0.6}
\begin{pspicture}(-5,-5.5)(5,6)
\psset{Beta=20,Alpha=50,linewidth=0.1pt,linecolor=cyan}
\drawCircles
\end{pspicture}
\end{document}
