summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-05-08 03:04:06 +0000
committerNorbert Preining <norbert@preining.info>2023-05-08 03:04:06 +0000
commit5a7a91f039bd6de20d95df710fc788298813679e (patch)
tree53d8d07cd0c5cd5a90bb441a942ae8fef35bbaae /graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex
parente2a7938bcd22a142fa92c5c5d91f038f7ae73231 (diff)
CTAN sync 202305080304
Diffstat (limited to 'graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex')
-rw-r--r--graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex39
1 files changed, 19 insertions, 20 deletions
diff --git a/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex b/graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex
index c9906a52b4..444d075411 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 716 2023-05-07 18:37:07Z herbert $
%% This is file `pst-optic.tex',
%%
%% IMPORTANT NOTICE:
@@ -8,7 +8,7 @@
%% Manuel Luque <Mluque5130@aol.com> (France)
%% Herbert Voss <voss@perce.de> (Germany)
%%
-%% 2010-07-23
+%% 2023-05-07
%%
%% 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.02}
-\def\filedate{2016/07/10}
+\def\fileversion{1.02a}
+\def\filedate{2023/05/07}
\message{`PST-Optic' v\fileversion, \filedate\space (Manuel Luque and Herbert Voss)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -1578,11 +1578,11 @@
%
\def\symPlan(#1)(#2){\pst@killglue\pst@makebox{\symPlan@(#1)(#2)}}%
\def\symPlan@(#1)(#2){{%
- \pst@getcoor{#1}\pst@tempA%
- \pst@getcoor{#2}\pst@tempB%
+ \pst@getcoor{#1}\pst@tempA
+ \pst@getcoor{#2}\pst@tempB
\leavevmode
\hbox{%
- \pnode(!%
+ \pnode(!
\pst@tempA /Y1 exch def
/X1 exch def
\pst@tempB /Y2 exch def
@@ -1605,30 +1605,29 @@
D12 div
def
X1 Y1){Factice}%
- \pst@Verb{%
- { [ax by cx dy tx ty] concat
- } tx@3Ddict begin TMChange end }%
+ \pst@Verb{
+ { [ax by cx dy tx ty] concat } tx@3Ddict begin TMChange end }%
\box\pst@hbox
\pst@Verb{ tx@3Ddict begin TMRestore end }}%
-}\ignorespaces}
+ }\ignorespaces}
%
-% refractionRay[options](A)(B)(C)(D){rNoA}{rNoB}{E}
-% (A)(B) the ray nodes
-% (C)(D) the nodes of the other material
-% {rNoA}{rNoB} the refraction numbers
-% {E} the intermediate node of the ray and the material
-% {E'} the end node of the ray
+% psrefractionRay[options](A)(B)(C)(D){rNoA}{rNoB}{E}
+% (A)(B) the ray nodes #2 #3
+% (C)(D) the nodes of the other material #4 #5
+% {rNoA}{rNoB} the refraction numbers (n1=#6, n2=#7)
+% {E} the intermediate node of the ray and the material (E=#8)
+% {E'} the end node of the ray (internal)
%
% Herbert Voss <voss@perce.de> 2003-01-26
%
\def\refractionRay{\@ifnextchar[{\pst@refractionRay}{\pst@refractionRay[]}}
\def\pst@refractionRay[#1](#2)(#3)(#4)(#5)#6#7#8{{%
- \psset[pst-optic,pstricks]{#1}
+ \psset[pst-optic,pstricks]{#1}%
\pst@getcoor{#2}\pst@tempA
\pst@getcoor{#3}\pst@tempB
\pst@getcoor{#4}\pst@tempc
\pst@getcoor{#5}\pst@tempd
- \ABinterCD(#2)(#3)(#4)(#5){#8}
+ \ABinterCD(#2)(#3)(#4)(#5){#8}%
%\psset{linecolor=black}
%\qdisk(#8){2pt}
% #8 is the point on the material
@@ -1672,7 +1671,7 @@
/BetaStrich 90 Gamma sub Beta add def
% Determine the intermediate point
XP BetaStrich cos sub
- YP BetaStrich sin add ){#8'}
+ YP BetaStrich sin add ){#8'}%
%\qdisk(#8){5pt}
}\ignorespaces}
%