绘制三个表面和一些需要放置在表面之间的点

Question

我想要绘制三个表面，它们彼此平行，还有一堆点。其中一些点将放置在最外层表面之间的区域中，而其他点将放置在该区域之外。这是我想要的原始草图。

使用pst-solides3d帖子的包和帮助邮政我看到了下面的图画。

它的质量很好，但它仍然没有清晰地显示最外层表面（红色）之间的点和最外层表面之外的点。因此，我希望得到一些帮助：

• （主要问题）我如何管理点的视觉效果，以便人们能够轻松辨别最外部表面内外的点。

• （附加题）如何绘制从点到中间表面（蓝色）的正交线。

抽奖代码为：

\documentclass{article}
\usepackage{pst-solides3d}

\begin{document}

\begin{figure}
\centering
\psset{viewpoint=35 20 15 rtp2xyz,Decran=160,lightsrc=viewpoint}
\begin{pspicture}(-3.5,-2)(3.5,3)
\axesIIID(1,1,1)(3,2,2)

\psSurface[opacity=0.6,strokeopacity=0.4,fillcolor=red!80,linecolor=black!20,
           linewidth=0.4pt,algebraic,ngrid=0.2 0.2,
           Zmin=0,Zmax=2,showAxes=false](-1,-1)(1,1){0.25*e^(-x^2-y^2)}
           
\psSurface[opacity=0.6,strokeopacity=0.4,fillcolor=blue!80,linecolor=black!20,
           linewidth=0.2pt,algebraic,ngrid=0.2 0.2,
           Zmin=0,Zmax=2,showAxes=false](-1,-1)(1,1){0.25*e^(-x^2-y^2)+0.5}
           
\psSurface[opacity=0.6,strokeopacity=0.4,fillcolor=red!80,linecolor=black!20,
           linewidth=0.2pt,algebraic,ngrid=0.2 0.2,axesboxed,
           Zmin=0,Zmax=2,showAxes=false](-1,-1)(1,1){0.25*e^(-x^2-y^2)+1}
           
\psSolid[object=point,fillcolor=yellow,
args=0 0 1]%      
\psSolid[object=point,fillcolor=yellow,
args=0 0.5 1]%   
\psSolid[object=point,fillcolor=yellow,
args=0.5 0 1]%   
\psSolid[object=point,fillcolor=yellow,
args=0.5 0.5 1]%   
\psSolid[object=point,fillcolor=yellow,
args=0 0.25 0.8]%   
\psSolid[object=point,fillcolor=yellow,
args=0.35 0 1]%   
\psSolid[object=point,fillcolor=yellow,
args=0 0.45 0.7]%   
\psSolid[object=point,fillcolor=yellow,
args=0.15 0.15 1]%   
\psSolid[object=point,fillcolor=yellow,
args=0.7 0.7 1]%   

\psSolid[object=point,fillcolor=yellow,
args=1 0 0.5]%     
\psSolid[object=point,fillcolor=yellow,
args=0.15 -0.15 0.5]%     
\psSolid[object=point,fillcolor=yellow,
args=-1 0 0.5]%     
\psSolid[object=point,fillcolor=yellow,
args=0 -0.15 0.3]%     
\psSolid[object=point,fillcolor=yellow,
args=1 0.5 0.1]%     
\psSolid[object=point,fillcolor=yellow,
args=0.15 0 0.2]%     

\psSolid[object=point,fillcolor=yellow,
args=0.15 0 0.1]% 
\psSolid[object=point,fillcolor=yellow,
args=0.15 0.3 0.2]% 
\psSolid[object=point,fillcolor=yellow,
args=1 0.15 -0.1]% 
\psSolid[object=point,fillcolor=yellow,
args=1 -0.6 0.0]% 
\psSolid[object=point,fillcolor=yellow,
args=1 0 0.1]% 
\psSolid[object=point,fillcolor=yellow,
args=0.0 0 -0.2]% 
\psSolid[object=point,fillcolor=yellow,
args=0.15 0.15 -0.15]% 
   
\psSolid[object=point,fillcolor=yellow,
args=0.15 0 1.3]% 
\psSolid[object=point,fillcolor=yellow,
args=0.15 0.3 1.2]% 
\psSolid[object=point,fillcolor=yellow,
args=1 0.15 1.6]% 
\psSolid[object=point,fillcolor=yellow,
args=1 -0.6 1.5]% 
\psSolid[object=point,fillcolor=yellow,
args=1 0 0.2]% 
\psSolid[object=point,fillcolor=yellow,
args=0.0 0 1.4]% 
\psSolid[object=point,fillcolor=yellow,
args=0.15 0.15 2]%            
\end{pspicture}
\caption{teste}
\end{figure}
\end{document}