一般フォーラム

以下の質問をメールでいただきました。どなたかおわかりのかたがおられましたら，日本語でもかまいませんので，お答えいただければ幸いです。

-----------------------------------------

Hello,

I am a french math teacher trying to reproduce this plot:

\documentclass{article}
\usepackage{infix-RPN,pst-IIID}
\parindent=0pt
\begin{document}
\infixtoRPN{3*cos(60*(x^2+y^2))*0.75^(x^2+y^2)}
\psset{eye=0 0 10 0, rotateAxis={1,0.8,1.2},rotateAngle=-100}
\psset{unit=0.6,fillcolor=[cmyk]{0.45,1,1,0},plotpoints=200}
\begin{pspicture*}(-5,-2)(5,3)
\psPlot[linestyle=none,showLines=false](-4.1,4.1)(-4.1,4.1){\RPN}
\end{pspicture*}\hfill
\begin{pspicture*}(-5,-2)(5,3)
\pscustom{\code{0.3 .setopacityalpha}
\psPlot[linestyle=none,showLines=false](-4.1,4.1)(-4.1,4.1){\RPN}}
\end{pspicture*}
\end{document}

You gave here:
http://oku.edu.mie-u.ac.jp/~okumura/texwiki/?PSTricks#bf1b2f64

The problem is I don't speak Japanese at all, and despite I googled earth I
didn't find any other reference to the package pst-IIID.
I tried to do the trick with the package pst-3dpot with:

\begin{pspicture}(-4,4)(-4,4)
\psset{
linecolor=[cmyk]{0.45,1,1,0},
linewidth=.1pt,
linestyle=solid,
fillcolor=[cmyk]{0.45,1,1,0},
fillstyle=transparent,
transpalpha=0.08
}
\infixtoRPN{3*cos(60*(x^2+y^2))*0.75^(x^2+y^2)}
\psplotThreeD[
plotstyle=curve,
drawStyle=yxLines,
yPlotpoints=100,
xPlotpoints=100,
]
(-5,5)(-5,5){\RPN}
\end{pspicture}

This is the closest I can get, but the filling is done under curves from the
base plane instead of inside polygons and this doesn't look well enough.

Could you please give me a link to the famous package pst-IIID you're using
or perhaps you can fix my own code ?