凸透镜（平端）带 pst-optic

Question

是否可以使凸透镜的每一端都平坦，就像这样：

（我在手动的。

Answer 1

\documentclass{article}
\usepackage{pst-optic}
\newcommand\Lens[1][]{%
  \psclip{\psframe[linestyle=none](-1,-2.7)(1,2.7)}\rput(0,0){\lensSPH[#1]}\endpsclip}

\begin{document}

\begin{pspicture}[showgrid](-1,-3)(1,3)
\Lens[lensType=CVG,lensWidth=1,drawing=false,lensColor=BleuVerre]
\end{pspicture}

\end{document}

Answer 2

lensDepth您可以使用非常小的值\lensSPH；在下面的例子中，我使用了其中两个镜头；左边的镜头叠加了一个矩形，只是为了将其与真实的平面图形进行比较：

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

\begin{document}

\begin{pspicture*}(-6,-3)(6,3)
\rput(0,0){\lensSPH[lensType=DVG,lensWidth=0.5,lensDepth=0.00001,AB=1,OA=-5,drawing=false,lensColor=BleuVerre
]}
\pspolygon[fillcolor=lightgray,opacity=0.2,fillstyle=solid,linecolor=blue](-0.25,-3)(0.25,-3)(0.25,3)(-0.25,3)
\rput(2,0){\lensSPH[lensType=DVG,lensWidth=0.5,lensDepth=0.00001,AB=1,OA=-5,drawing=false,lensColor=BleuVerre
]}
\end{pspicture*}

\end{document}