summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-05-21 23:04:53 +0000
committerKarl Berry <karl@freefriends.org>2013-05-21 23:04:53 +0000
commitd543e9db99b507da1878899c0efc4586ed6edb14 (patch)
tree113cfd76337ca0fbbce093c7e268f2022df3eaef /Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx
parentb7f351186e14a82b2d9ad697752a86e073d04fc6 (diff)
pst-optexp (21may13)
git-svn-id: svn://tug.org/texlive/trunk@30617 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx')
-rw-r--r--Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx67
1 files changed, 42 insertions, 25 deletions
diff --git a/Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx b/Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx
index 521555ee4b8..1edf01610ad 100644
--- a/Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx
+++ b/Master/texmf-dist/source/latex/pst-optexp/pst-optexp.dtx
@@ -18,7 +18,7 @@
%<stylefile>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<stylefile>\ProvidesPackage{pst-optexp}
%<*stylefile>
- [2013/04/15 v4.0 Optical experimental setups with PSTricks]
+ [2013/05/21 v4.1 Optical experimental setups with PSTricks]
%</stylefile>
%
%<*driver>
@@ -4050,6 +4050,29 @@
%</ignore>
% \fi
%
+% \choitem[transmittive]{prismtype}{transmittive, reflective}
+% \ifGERMAN Ist dieser Parameter auf \opt{reflective} gesetzt, so wird
+% die Grundfläche als zusätzliche, reflektierende Grenzfläche
+% verwendet.
+% \fi
+% \ifENGLISH If this parameter is set to \opt{reflective}, the prism
+% base is used as additional, reflective interface.
+% \fi
+% \iffalse
+%<*ignore>
+% \fi
+\begin{LTXexample}[morekeywords={[21]prismtype}]
+\begin{pspicture}(1.5,0.6)(5.1,2.2)
+ \optprism[prismtype=reflective](0,1)(3,1.1)(6,1)
+ \lens(1,2)(\oenodeIfc{2}{1})
+ \lens(\oenodeIfc{2}{1})(5,2)
+ \drawwidebeam[beamwidth=0.3, fillstyle=solid, fillcolor=green, opacity=0.3](1,2){2}{1}{3}(5,2)
+\end{pspicture}
+\end{LTXexample}
+% \iffalse
+%</ignore>
+% \fi
+%
% \choitem[auto]{prismalign}{auto,center}
% \ifENGLISH Sets the vertical alignment of the prism with respect to the
% «reflection» node \prm{center}. For \opt{auto}, the prism is shifted such,
@@ -12027,6 +12050,9 @@
%
% \begin{changelog}
%\patchcmd{\release}{\setlength{\itemsep}{0pt}}{\setlength{\itemsep}{0pt}\setlength{\parsep}{0pt}}{}{}
+% \begin{release}{4.1}{2013-05-21}
+% \item Added option \opt{prismtype}\see{prm:prismtype}
+% \end{release}
% \begin{release}{4.0}{2013-04-15}
% \item Added electrical components\see{chap:electrcomp}
% \item Added wire connections with \cs{drawwire}\see{sec:drawwire}
@@ -12422,6 +12448,7 @@
\def\POE@str@center{center}
\def\POE@str@circle{circle}
\def\POE@str@closed{closed}
+\def\POE@str@coupling{coupling}
\def\POE@str@cross{cross}
\def\POE@str@cube{cube}
\def\POE@str@custom{custom}
@@ -13402,14 +13429,14 @@
{\def\POE@key@prismalign{#1}}%
{\PackageError{pst-optexp}{Unknown value '\val' for prismalign}}%
\define@choicekey+[psset]{optexp}{prismtype}[\val\nr]%
- {transmission, coupling}%
+ {transmittive, reflective, coupling}%
{\def\POE@key@prismtype{#1}}%
{\PackageError{pst-optexp}{Unknown value '\val' for prismtype}}%
\psset[optexp]{%
prismsize=1,
prismangle=60,
prismalign=auto,
- prismtype=transmission
+ prismtype=transmittive
}%
% \end{macrocode}
%
@@ -17890,28 +17917,18 @@
0
\fi
}%
- \def\POE@tempA{transmission}%
- \ifx\POE@key@prismtype\POE@tempA
- \newOptexpComp{%
- {\@sz -0.6 mul \@ang tan mul \@hshift neg}
- {90 \@ang sub dup cos exch sin}
- \@sz \@ang cos div dup -0.4 mul exch 0.6 mul trans {PlainIfc}
- {\@sz 0.6 mul \@ang tan mul \@hshift neg}
- {90 \@ang add dup cos exch sin}
- \@sz \@ang cos div dup -0.4 mul exch 0.6 mul trans {PlainIfc}
- \POE@key@n true }%
- \else
- \newOptexpCompAmb{%
- {\@sz -0.6 mul \@ang tan mul \@hshift neg}
- {90 \@ang sub dup cos exch sin}
- \@sz \@ang cos div dup -0.4 mul exch 0.6 mul trans {PlainIfc}
- {0 \@sz -0.4 mul \@hshift sub } {1 0} \@ang tan \@sz mul dup neg exch
- trans {PlainIfc}
- {\@sz 0.6 mul \@ang tan mul \@hshift neg}
- {90 \@ang add dup cos exch sin}
- \@sz \@ang cos div dup -0.4 mul exch 0.6 mul trans {PlainIfc}
- 2 \POE@key@n true }%
- \fi
+ \newOptexpComp{%
+ {\@sz -0.6 mul \@ang tan mul \@hshift neg}
+ {90 \@ang sub dup cos exch sin}
+ \@sz \@ang cos div dup -0.4 mul exch 0.6 mul trans {PlainIfc}
+ \ifx\POE@key@prismtype\POE@str@transmittive\else
+ {0 \@sz -0.4 mul \@hshift sub }
+ {1 0} \@ang tan \@sz mul dup neg exch refl {PlainIfc}
+ \fi
+ {\@sz 0.6 mul \@ang tan mul \@hshift neg}
+ {90 \@ang add dup cos exch sin}
+ \@sz \@ang cos div dup -0.4 mul exch 0.6 mul trans {PlainIfc}
+ \POE@key@n true }%
\pnode(! 0 \@hshift neg){\oenodeCenter{}}
}%
% \end{macrocode}