summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-05-08 20:10:53 +0000
committerKarl Berry <karl@freefriends.org>2023-05-08 20:10:53 +0000
commite64689848e7a2f15cd5aaf95d3899e3af692dd78 (patch)
tree086fae7c4c5933ad270d2ef1410cd7e133ef4049 /Master/texmf-dist/tex/generic
parent814c83a483648ad4f1e2567ecf6e0b8337c8d910 (diff)
pst-optic (8may23)
git-svn-id: svn://tug.org/texlive/trunk@67052 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex39
1 files changed, 19 insertions, 20 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex b/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex
index c9906a52b4c..444d0754114 100644
--- a/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex
+++ b/Master/texmf-dist/tex/generic/pst-optic/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}
%