diff options
Diffstat (limited to 'graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex')
-rw-r--r-- | graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex b/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex index f145993fc6..0c06f849b3 100644 --- a/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex +++ b/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex @@ -1,4 +1,4 @@ -%%%% $Id: pst-optic.tex 896 2024-05-17 10:13:27Z herbert $ +%%%% $Id: pst-optic.tex 903 2024-06-02 06:16:43Z herbert $ %% This is file `pst-optic.tex', %% %% IMPORTANT NOTICE: @@ -8,7 +8,7 @@ %% Manuel Luque <Mluque5130@aol.com> (France) %% Herbert Voss <hvoss@tug.org> (Germany) %% -%% 2024-05-17 +%% 2024-06-02 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -30,8 +30,8 @@ \ifx\PSTMultidoLoaded\endinput\else\input multido.tex\fi \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey\fi % -\def\fileversion{1.03} -\def\filedate{2024/05/17} +\def\fileversion{1.04} +\def\filedate{2024/06/02} \message{`PST-Optic' v\fileversion, \filedate\space (Manuel Luque and Herbert Voss)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -798,13 +798,19 @@ \begingroup% \ifPst@lensGlass \rput(! XO YO){% - \ifx\psk@optic@lensType\lensTypeCVG\lensCVG% - \else\ifx\psk@optic@lensType\lensTypePCVG\lensCVG - \else\lensDVG\fi\fi}% - \else% - \ifx\psk@optic@lensType\lensTypeDVG\psset{arrows=>-<}\else - \ifx\psk@optic@lensType\lensTypePDVG\psset{arrows=>-<}\else\psset{arrows=<->} - \fi\fi + \ifx\psk@optic@lensType\lensTypeCVG \lensCVG% + \else\ifx\psk@optic@lensType\lensTypePCVG \lensCVG + \else\lensDVG + \fi\fi}% + \else + \ifx\psk@optic@lensType\lensTypeDVG + \psset{arrows=>-<} + \else + \ifx\psk@optic@lensType\lensTypePDVG + \psset{arrows=>-<}% + \else + \psset{arrows=<->}% + \fi\fi \psline[linecolor=\psk@optic@lensColor, linewidth=\psk@optic@lensWidth,arrowsize=\psk@optic@lensArrowSize, arrowinset=\psk@optic@lensArrowInset]% |