diff options
author | Norbert Preining <norbert@preining.info> | 2023-05-08 03:04:06 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-05-08 03:04:06 +0000 |
commit | 5a7a91f039bd6de20d95df710fc788298813679e (patch) | |
tree | 53d8d07cd0c5cd5a90bb441a942ae8fef35bbaae /graphics/pstricks/contrib/pst-optic/tex/pst-optic.tex | |
parent | e2a7938bcd22a142fa92c5c5d91f038f7ae73231 (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.tex | 39 |
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} % |