texlive[41999] Master/texmf-dist: pst-optic (6sep16)
commits+karl at tug.org
commits+karl at tug.org
Tue Sep 6 23:30:22 CEST 2016
Revision: 41999
http://tug.org/svn/texlive?view=revision&revision=41999
Author: karl
Date: 2016-09-06 23:30:22 +0200 (Tue, 06 Sep 2016)
Log Message:
-----------
pst-optic (6sep16)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-optic/Changes
trunk/Master/texmf-dist/doc/generic/pst-optic/README
trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.bib
trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.tex
trunk/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/generic/pst-optic/more_docs/
trunk/Master/texmf-dist/source/generic/pst-optic/
Modified: trunk/Master/texmf-dist/doc/generic/pst-optic/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-optic/Changes 2016-09-06 12:36:06 UTC (rev 41998)
+++ trunk/Master/texmf-dist/doc/generic/pst-optic/Changes 2016-09-06 21:30:22 UTC (rev 41999)
@@ -1,4 +1,5 @@
---- pst-optic.tex
+1.02 2016-07-10 - added option onlyrays, preset to false
1.01 2010-07-23 - bugfixes for \psset[pst-optic,pstricks]
1.00 2009-02-10 - new style opticalAxis to allow different line styles
- cosmetic changes to the code and the documentation
Modified: trunk/Master/texmf-dist/doc/generic/pst-optic/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-optic/README 2016-09-06 12:36:06 UTC (rev 41998)
+++ trunk/Master/texmf-dist/doc/generic/pst-optic/README 2016-09-06 21:30:22 UTC (rev 41999)
@@ -1,9 +1,9 @@
%% Package `pst-optic.tex'
%%
%% Manuel Luque <Mluque5130 at aol.com> (France)
-%% Herbert Voss <voss at perce.de> (Germany)
+%% Herbert Voss <hvoss at tug.org> (Germany)
%%
-%% 2003-02-16
+%% 2016-07-10
%%
Save the files
@@ -15,7 +15,7 @@
If you like to get the documentation file in another format run
latex pst-optic-doc.tex
-bibtex pst-optic.doc
+biber pst-optic.doc
latex pst-optic-doc.tex
dvips pst-optic-doc.dvi
@@ -23,11 +23,3 @@
files are saved in the above mentioned way, before you run
latex on the documentation file.
-It is nearly the same for the example file pst-optic-examples.tex
-
-
-The intermediate DVI file works only with viewers which can
-interprete the embedded PostScript code, like the one from KDE.
-
-For another PDF output read the Introduction from
-the documentation.
Modified: trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.bib 2016-09-06 12:36:06 UTC (rev 41998)
+++ trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.bib 2016-09-06 21:30:22 UTC (rev 41999)
@@ -1,81 +1,99 @@
+ at STRING{tugboat = {TUGboat} }
@STRING{dtk = {{D}ie {\TeX}nische {K}om{\"o}die} }
+ at Book{companion,
+ author = {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Dennis Roegel and Herbert Vo\ss},
+ title = {The {\LaTeX} {G}raphics {C}ompanion},
+ publisher = {{Addison-Wesley Publishing Company}},
+ edition = 2,
+ year = {2007},
+ address = {Boston, Mass.}
+}
+
+ at Article{girou:01:,
+ author = {Denis Girou},
+ title = {Pr\'esentation de {PST}ricks},
+ journal = {Cahier {GUT}enberg},
+ year = 1994,
+ volume = {16},
+ month = apr,
+ pages = {21-70}
+}
+
+ at Article{girou:02:,
+ author = {{Timothy Van} Zandt and Denis Girou},
+ title = {Inside {PST}ricks},
+ journal = TUGboat,
+ year = 1994,
+ volume = {15},
+ month = sep,
+ pages = {239-246}
+}
+
@Book{PostScript,
Author = {Kollock, Nikolai G.},
- Title = {PostScript richtig eingesetzt: vom Konzept zum
- praktischen Einsatz},
+ Title = {Post{S}cript richtig eingesetzt: vom {K}onzept zum
+ praktischen {E}insatz},
Publisher = {IWT},
Address = {Vaterstetten},
year = 1989,
}
- at Manual{pstricks,
- Title = {PSTricks - {\PS} macros for Generic TeX},
- Author = {Timothy Van Zandt},
- Organization = {},
- Address = {\url{http://www.tug.org/application/PSTricks}},
- Note = {},
- year = 1993,
+ at ctan{multido,
+ Title = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition},
+ Author = {{Timothy Van} Zandt},
+ url = {/macros/generic/multido.tex},
+ year = 1997
}
-
- at Manual{pdftricks,
- Title = {PSTricks Support for pdf},
- Author = {Herbert Voss},
- Organization = {},
- Address = {\url{http://PSTricks.de/pdf/pdfoutput.phtml}},
- Note = {},
- year = 2002,
+ at Book{PSTricks2,
+ author = {Herbert Vo\ss{}},
+ title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+ edition = {7},
+ publisher = {DANTE -- Lehmanns},
+ year = {2016},
+ address = {Heidelberg/Hamburg}
}
- at Manual{miwi,
- Title = {References for \TeX{} and Friends},
- Author = {Michael Wiedmann and Peter Karp},
- Organization = {},
- Address = {\url{http://www.miwie.org/tex-refs/}},
- Note = {},
- year = 2003,
+ at Book{PSTricksE,
+ author = {Herbert Vo\ss{}},
+ title = {\texttt{PSTricks} -- {G}raphics and {P}ost{S}cript for \LaTeX},
+ edition = {1},
+ publisher = {UIT},
+ year = {2011},
+ address = {Cambridge -- UK}
}
-
- at Manual{pstlens:2001,
- Title = {PST-lens - {\PS} macros for Generic TeX},
- Author = {Denis Girou and Manuel Luque},
- Organization = {},
- Address = {\url{ftp://ftp.dante.de/tex-archive/graphics/pstricks/contrib/pst-lens/}},
- Note = {},
- year = 2001,
+ at Book{LTXquick,
+ author = {Herbert Vo\ss{}},
+ title = {{\LaTeX} quick reference},
+ edition = {1},
+ publisher = {UIT},
+ year = {2012},
+ address = {Cambridge -- UK}
}
- at Manual{vue3d:2002,
- Title = {Vue en 3D},
- Author = {Manuel Luque},
- Organization = {},
- Address = {\url{http://members.aol.com/Mluque5130/vue3d16112002.zip}},
- Note = {},
- year = 2002,
+ at Book{presentations,
+ author = {Herbert Vo\ss},
+ title = {Presentations with \LaTeX},
+ edition = {1},
+ publisher = {DANTE -- Lehmanns Media},
+ year = {2012},
+ address = {Heidelberg/Berlin}
}
- at Article{dtk02.2:jackson.voss:plot-funktionen,
- author = {Laura E. Jackson and Herbert Vo{\ss}},
- title = {Die {P}lot-{F}unktionen von {\texttt{pst-plot}}},
- journal = dtk,
- year = 2002,
- volume = {2/02},
- altvolume = 2,
- altnumber = 14,
- month = jun,
- pages = {27--34},
- annote = bretter,
- keywords = {},
- abstract = { Im letzten Heft wurden die mathematischen Funktionen von
- \PS~im Zusammenhang mit dem {\LaTeX}-Paket
- \texttt{pst-plot} zum Zeichnen von Funktionen beschrieben
- und durch Beispiele erl{\"a}utert. In diesem Teil werden
- die bislang nur erw{\"a}hnten Plot-Funktionen f{\"u}r
- externe Daten behandelt. }
+
+ at Book{tbt,
+ author = {Victor Eijkhout},
+ title = {\TeX\ by Topic -- {A} \TeX{}nician Reference},
+ edition = {1},
+ publisher = {DANTE -- lehmanns media},
+ year = {2014},
+ address = {Heidelberg/Berlin}
}
+
+
@Article{dtk02.1:voss:mathematischen,
author = {Herbert Vo{\ss}},
title = {Die mathematischen {F}unktionen von {P}ostscript},
@@ -85,9 +103,8 @@
altvolume = 1,
altnumber = 14,
month = mar,
- pages = {40-47},
+ pages = {40--47},
annote = bretter,
- keywords = {},
abstract = { \PS, faktisch genauso alt wie {\TeX}, ist im
Verh{\"a}ltnis dazu allgemein noch weniger bekannt, wenn es
darum geht zu beurteilen, was es denn nun im eigentlichen
@@ -99,30 +116,10 @@
gezeigt. }
}
-
- at Book{companion,
- author = {Michel Goosens and Frank Mittelbach and Serbastian Rahtz and Denis Roegel and Herbert Vo\ss},
- title = {The {\LaTeX} {G}raphics {C}ompanion},
- publisher = {{Addison-Wesley Publishing Company}},
- year = {2007},
- edition = {2nd},
- address = {Reading, Mass.}
+ at ctan{pstlens:2001,
+ Title = {PST-lens - {\PS} macros for Generic TeX},
+ Author = {Denis Girou and Manuel Luque},
+ url = {/graphics/pstricks/contrib/pst-lens/},
+ year = 2001,
}
- at Book{PSTricks2,
- author = {Herbert Vo\ss},
- title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
- edition = {5.},
- publisher = {DANTE -- Lehmanns},
- year = {2008},
- address = {Heidelberg/Hamburg}
-}
-
- at Book{voss:math,
- author = {Herbert Vo\ss},
- title = {\LaTeX\ in {M}athematik und {N}aturwissenschaften},
- publisher = {{Franzis-Verlag}},
- year = {2006},
- address = {Poing}
-}
-
Modified: trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.tex 2016-09-06 12:36:06 UTC (rev 41998)
+++ trunk/Master/texmf-dist/doc/generic/pst-optic/pst-optic-doc.tex 2016-09-06 21:30:22 UTC (rev 41999)
@@ -8,6 +8,9 @@
\lstset{pos=t,wide=true,language=PSTricks,basicstyle=\footnotesize\ttfamily}
\let\belowcaptionskip\abovecaptionskip
%
+\usepackage[style=dtk]{biblatex}
+\addbibresource{\jobname.bib}
+
\begin{document}
\title{\texttt{pst-optic}}
@@ -16,6 +19,13 @@
\author{Manuel Luque \\Herbert Vo\ss}
\docauthor{Herbert Vo\ss}
\date{\today}
+\def\bgImage{\begin{pspicture*}(-0.5,-4)(8,4)
+ \rput(0,0){\mirrorCVG[mirrorHeight=8,mirrorDepth=4,drawing=false]}
+ \multido{\rY=-4.00+0.25}{33}{%
+ \mirrorCVGRay[linewidth=0.5pt,mirrorHeight=8,
+ mirrorDepth=4](10,\rY)(1,\rY){Dummy}}
+\end{pspicture*}}
+
\maketitle
\tableofcontents
@@ -88,7 +98,7 @@
\begin{LTXexample}
\begin{pspicture}[showgrid=true](-5,-2.2)(7,4)
\rput(1.5,1.5){%
- \lens[lensType=DVG,lensGlass=true,lensWidth=0.5,rayColor=red,
+ \lens[lensType=DVG,lensGlass,lensWidth=0.5,rayColor=red,
focus=-2,AB=2,spotAi=270,spotBi=90]}
\end{pspicture}
\end{LTXexample}
@@ -194,6 +204,7 @@
Lense width in cm & \Lkeyword{lensWidth} & 0.5cm\footnotemark\\
vertical scale (obsolet) & \Lkeyword{lensScale} & 1\\
View the lens & \Lkeyword{lensGlass} & \false\\
+ show onyl the rays & \Lkeyword{onlyrays} & \false\\
Second lens & \Lkeyword{lensTwo} & \false\\
Focus in cm & \Lkeyword{focus} & 2\\
Distance $\mathrm{\overline{OA}}$& \Lkeyword{OA} & -4\\
@@ -245,8 +256,8 @@
\begin{LTXexample}[wide=false]
\begin{pspicture*}(-7.5,-2.75)(7.5,3)
-\rput(0,0){\lens[lensScale=0.6,XO=-4,focus=1,OA=-2,lensGlass=true, lensWidth=0.5]}
-\rput(0,0){\lens[lensScale=1.2,XO=2,focus=2,lensGlass=true,lensWidth=0.5]}
+\rput(0,0){\lens[lensScale=0.6,XO=-4,focus=1,OA=-2,lensGlass, lensWidth=0.5]}
+\rput(0,0){\lens[lensScale=1.2,XO=2,focus=2,lensGlass,lensWidth=0.5]}
\end{pspicture*}
\end{LTXexample}
\vspace*{-2ex}
@@ -254,9 +265,9 @@
\begin{LTXexample}[wide=false]
\begin{pspicture*}(-7.5,-2.75)(7.5,3)
-\rput(0,0){\lens[lensScale=0.6,XO=-4,focus=1,OA=-2,lensGlass=, lensWidth=0.5]}
+\rput(0,0){\lens[lensScale=0.6,XO=-4,focus=1,OA=-2,lensGlass, lensWidth=0.5]}
\Transform
-\rput(0,0){\lens[lensScale=1.2,XO=2,focus=2,lensTwo=true,lensGlass=true,lensWidth=0.5]}
+\rput(0,0){\lens[lensScale=1.2,XO=2,focus=2,lensTwo=true,lensGlass,lensWidth=0.5]}
\end{pspicture*}
\end{LTXexample}
\vspace*{-2ex}
@@ -265,12 +276,12 @@
\begin{LTXexample}[wide=false]
\begin{pspicture*}(-7.5,-2.75)(7.5,3)
\rput(0,0){\lens[lensScale=0.6,XO=-4,nameF=F_1,nameA=A_1,nameB=B_1,
- nameFi=F'_1,nameAi={ },nameBi={},nameO=O_1,focus=1,OA=-2,lensGlass=true, lensWidth=0.5]}
+ nameFi=F'_1,nameAi={ },nameBi={},nameO=O_1,focus=1,OA=-2,lensGlass, lensWidth=0.5]}
\pspolygon[style=rayuresJaunes,linestyle=none](B)(I)(B')(I')(B)
\Transform
\rput(0,0){\lens[lensScale=1.2,XO=2,focus=2,nameA=A'_1,spotA=90,nameB=B'_1,spotB=270,
nameO=O_2,nameAi=A'_2,spotAi=270,nameBi=B'_2,spotBi=90,nameF=F_2,nameFi=F'_2,
- lensTwo=true,lensGlass=true,lensWidth=0.5]}
+ lensTwo=true,lensGlass,lensWidth=0.5]}
\pspolygon[style=rayuresJaunes,linestyle=none](B)(I)(B')(I')(B)
\end{pspicture*}
\end{LTXexample}
@@ -1148,7 +1159,7 @@
\psOutLine[linecolor=red,length=9](0,\nCountA)(FF){P2}}
\psline[linecolor=blue](A)(FF)
\psOutLine[linecolor=blue,length=5](A)(FF){END1}
-\rput(0,0){\lens[yBottom=-3.5,yTop=3.5,lensGlass=true,lensHeight=6.5,drawing=false,
+\rput(0,0){\lens[yBottom=-3.5,yTop=3.5,lensGlass,lensHeight=6.5,drawing=false,
spotFi=315,lensWidth=0.5]
\psline[linewidth=1pt](xLeft)(xRight)
\psline[length=2,linewidth=2pt,arrows=->](F')(FF)}
@@ -1307,8 +1318,7 @@
\bgroup
\raggedright
\nocite{*}
-\bibliographystyle{plain}
-\bibliography{pst-optic-doc}
+\printbibliography
\egroup
\printindex
Modified: trunk/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex 2016-09-06 12:36:06 UTC (rev 41998)
+++ trunk/Master/texmf-dist/tex/generic/pst-optic/pst-optic.tex 2016-09-06 21:30:22 UTC (rev 41999)
@@ -30,8 +30,8 @@
\ifx\PSTMultidoLoaded\endinput\else\input multido.tex\fi
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey\fi
%
-\def\fileversion{1.01}
-\def\filedate{2010/07/23}
+\def\fileversion{1.02}
+\def\filedate{2016/07/10}
\message{`PST-Optic' v\fileversion, \filedate\space (Manuel Luque and Herbert Voss)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -81,10 +81,11 @@
%
\define at boolkey[psset]{pst-optic}[Pst@]{lensTwo}[false]{} % is a second lens present?
\define at boolkey[psset]{pst-optic}[Pst@]{lensGlass}[true]{}% draw a _real_ lens?
+\define at boolkey[psset]{pst-optic}[Pst@]{onlyrays}[true]{}% draw only the rays?
\define at boolkey[psset]{pst-optic}[Pst@]{drawing}[true]{} % draw the nodes and rays?
\define at boolkey[psset]{pst-optic}[Pst@]{rightRay}[false]{}% a ray on the right side?
%
-\psset[pst-optic]{lensGlass,drawing,lensTwo,rightRay}
+\psset[pst-optic]{lensGlass,drawing,lensTwo,rightRay,onlyrays=false}
%
% ------- the global definitions for the pspicture frame ------
%
@@ -367,7 +368,7 @@
/YA \pst at tempA exch pop \pst at number\psyunit div def
/XA \pst at tempA pop \pst at number\psxunit div def
YA 0 eq XA 0 eq and {0 0}{
- /r XA dup mul YA dup mul add sqrt def
+ /r XA dup mul YA dup mul add Sqrt def
/AlphaOld YA XA atan def
/AlphaNew AlphaOld \pst at optic@angle\space add def
r AlphaNew cos mul r AlphaNew sin mul
@@ -447,13 +448,13 @@
\pscustom{%
\parametricplot{\psk at optic@lensHeight}{-\psk at optic@lensHeight}{%
/arg t radius 2.0 mul div def
- arg 1 arg dup mul sub sqrt atan
+ arg 1 arg dup mul sub Sqrt atan
cos 1 sub radius mul neg Width2 sub
t 2.0 div
}
\parametricplot{-\psk at optic@lensHeight}{\psk at optic@lensHeight}{%
/arg t radius 2.0 mul div def
- arg 1 arg dup mul sub sqrt atan
+ arg 1 arg dup mul sub Sqrt atan
cos 1 sub radius mul neg Width2 sub neg
t 2.0 div
}
@@ -466,7 +467,7 @@
% (-d-w/2,h/2)->(-d-w/2,-h/2)
\parametricplot{\psk at optic@lensHeight}{-\psk at optic@lensHeight}{%
/arg t 2.0 div radius div def
- arg 1 arg dup mul sub sqrt atan cos 1 sub radius mul Width2 sub
+ arg 1 arg dup mul sub Sqrt atan cos 1 sub radius mul Width2 sub
t 2.0 div
}
% (-d-w/2,-h/2)(d+w/2,-h/2)
@@ -474,7 +475,7 @@
% (d+w/2,-h/2)->(d+w/2,h/2)
\parametricplot{-\psk at optic@lensHeight}{\psk at optic@lensHeight}{%
/arg t 2.0 div radius div def
- 1 arg 1 arg dup mul sub sqrt atan cos sub radius mul Width2 add
+ 1 arg 1 arg dup mul sub Sqrt atan cos sub radius mul Width2 add
t 2.0 div
}
\fill
@@ -616,11 +617,11 @@
/dX XB XA sub def
dX abs 0.01 lt {
% a horizontal line
- /Y YM radius dup mul XA dup mul sub sqrt YM 0 gt {sub}{add}ifelse def
- /YSecond YM radius dup mul XA dup mul sub sqrt YM 0 gt {add}{sub}ifelse def
+ /Y YM radius dup mul XA dup mul sub Sqrt YM 0 gt {sub}{add}ifelse def
+ /YSecond YM radius dup mul XA dup mul sub Sqrt YM 0 gt {add}{sub}ifelse def
/X XA def
/XSecond XA def
- /mT XA radius dup mul XA dup mul sub sqrt div YM 0 lt {neg}if def
+ /mT XA radius dup mul XA dup mul sub Sqrt div YM 0 lt {neg}if def
Y X neg
}{
/dY YB YA sub def
@@ -629,12 +630,12 @@
/klammer YM m XA mul add YA sub def
/p2neg klammer m mul m21 div def
/q klammer dup mul radius dup mul sub m21 div def
- /root p2neg dup mul q sub sqrt def
+ /root p2neg dup mul q sub Sqrt def
/X p2neg root YM m mul 0 gt {sub}{add}ifelse def
/XSecond p2neg root YM m mul 0 gt {add}{sub}ifelse def
/Y m X XA sub mul YA add def
/YSecond m XSecond XA sub mul YA add def
- /mT X radius dup mul X dup mul sub sqrt div YM 0 lt {neg}if def
+ /mT X radius dup mul X dup mul sub Sqrt div YM 0 lt {neg}if def
Y X neg
} ifelse){#4}
\else% DVG
@@ -649,10 +650,10 @@
/dX XB XA sub def
dX abs 0.01 lt {
% a horizontal line
- /Y YM radius dup mul XA dup mul sub sqrt YM 0 gt {sub}{add}ifelse def
- /YSecond YM radius dup mul XA dup mul sub sqrt YM 0 gt {add}{sub}ifelse def
+ /Y YM radius dup mul XA dup mul sub Sqrt YM 0 gt {sub}{add}ifelse def
+ /YSecond YM radius dup mul XA dup mul sub Sqrt YM 0 gt {add}{sub}ifelse def
/X XA def
- /mT XA radius dup mul XA dup mul sub sqrt div YM 0 lt {neg}if def
+ /mT XA radius dup mul XA dup mul sub Sqrt div YM 0 lt {neg}if def
/XSecond XA def
Y X neg
}{
@@ -662,12 +663,12 @@
/klammer YM m XA mul add YA sub def
/p2neg klammer m mul m21 div def
/q klammer dup mul radius dup mul sub m21 div def
- /root p2neg dup mul q sub sqrt def
+ /root p2neg dup mul q sub Sqrt def
/X p2neg root YM m mul 0 gt {sub}{add}ifelse def
/XSecond p2neg root YM m mul 0 gt {add}{sub}ifelse def
/Y m X XA sub mul YA add def
/YSecond m XSecond XA sub mul YA add def
- /mT X radius dup mul X dup mul sub sqrt div YM 0 lt {neg}if def
+ /mT X radius dup mul X dup mul sub Sqrt div YM 0 lt {neg}if def
Y X neg
} ifelse){#4}
\fi
@@ -793,8 +794,9 @@
\pnode(! \psk at optic@xRight\space A'B' YO add){I1}%
\pnode(! \psk at optic@xRight\space neg A'B' YO add){I2}%
\fi%
+ \ifPst at onlyrays\else
\begingroup%
- \ifPst at lensGlass%
+ \ifPst at lensGlass
\rput(! XO YO){%
\ifx\psk at optic@lensType\lensTypeCVG\lensCVG%
\else\ifx\psk at optic@lensType\lensTypePCVG\lensCVG
@@ -811,7 +813,8 @@
(! XO 0.5 \psk at optic@lensHeight\space mul
\psk at optic@lensScale\space mul YO add)%
\fi%
- \endgroup%
+ \endgroup
+ \fi
\ifPst at drawing
% axe optique
\psline[style=opticalAxis](! \psk at optic@xLeft\space YO)(! \psk at optic@xRight\space YO)
@@ -818,7 +821,7 @@
\ifx\psk at optic@lensType\lensTypeDVG\pst at drawDVGRays\else
\ifx\psk at optic@lensType\lensTypePDVG\pst at drawDVGRays\else
\pst at drawCVGRays\fi\fi
- \fi%
+ \fi
\end{pspicture*}%
}\ignorespaces}
%
@@ -1005,7 +1008,7 @@
XB XA sub abs 0.01 lt {A XA dup mul mul XA neg}{
/m YB YA sub XB XA sub div def
/m2a m A div 2 div def
- /Root m2a dup mul m XA mul YA sub A div sub sqrt def
+ /Root m2a dup mul m XA mul YA sub A div sub Sqrt def
/Xp m2a Root add XA sub def
/Xn m2a Root sub XA sub def
/YSp m Xp mul YA add def
@@ -1055,7 +1058,7 @@
/NoMoreReflection false def
% pq Formel anwenden
/m2a m A div 2 div def
- /Root m2a dup mul m XA mul YA sub A div sub sqrt def
+ /Root m2a dup mul m XA mul YA sub A div sub Sqrt def
/X1 m2a Root add def
/X2 m2a Root sub def
% be sure, that we get the right point
@@ -1173,7 +1176,7 @@
\else
\parametricplot{\psk at optic@mirrorHeight}{-\psk at optic@mirrorHeight}{%
/radD radius \psk at optic@mirrorWidth\space add def
- radius \psk at optic@mirrorWidth\space sub radD dup mul t 2 div dup mul sub sqrt sub t 2 div }
+ radius \psk at optic@mirrorWidth\space sub radD dup mul t 2 div dup mul sub Sqrt sub t 2 div }
\fi
% (d-w,-h/2)(d,-h/2)
\psline(!%
@@ -1187,7 +1190,7 @@
t 2 exp 4 div mul t 2 div }
\else
\parametricplot{-\psk at optic@mirrorHeight}{\psk at optic@mirrorHeight}{
- radius dup dup mul t 2 div dup mul sub sqrt sub t 2 div }
+ radius dup dup mul t 2 div dup mul sub Sqrt sub t 2 div }
\fi
\fill
}%
@@ -1278,7 +1281,7 @@
Depth Height dup mul div t 2 exp 4 div mul neg t 2 div }
\else
\parametricplot{\psk at optic@mirrorHeight}{-\psk at optic@mirrorHeight}{%
- radius dup mul t 2 div dup mul sub sqrt radius sub t 2 div }
+ radius dup mul t 2 div dup mul sub Sqrt radius sub t 2 div }
\fi
% (d-w,-h/2)(d,-h/2)
\psline(! Depth Width add neg Height neg)(! Depth neg Height neg)%
@@ -1288,7 +1291,7 @@
Depth Height dup mul div t 2 exp 4 div mul neg Width sub t 2 div }
\else
\parametricplot{-\psk at optic@mirrorHeight}{\psk at optic@mirrorHeight}{%
- radius Width sub dup mul t 2 div dup mul sub sqrt radius sub t 2 div }
+ radius Width sub dup mul t 2 div dup mul sub Sqrt radius sub t 2 div }
\fi
\fill%
}
@@ -1356,7 +1359,7 @@
/Xmax \psk at optic@mirrorHeight\space 2 div def
/m YB YA sub XB XA sub div def
/m2a m A div 2 div def
- /Root m2a dup mul m XA mul YA sub A div sub sqrt def
+ /Root m2a dup mul m XA mul YA sub A div sub Sqrt def
/X1 m2a Root add def
/X2 m2a Root sub def
/X XB X1 sub abs XB X2 sub abs lt
@@ -1565,7 +1568,7 @@
def
/xA' 2 xH mul XA sub def
/yA' 2 yH mul YA sub def
- /D12 Dx Dx mul Dy Dy mul add sqrt def
+ /D12 Dx Dx mul Dy Dy mul add Sqrt def
xA' yA' moveto
xH yH rlineto
xA' yA'){#4}
@@ -1660,7 +1663,7 @@
% sin(Beta)>1 is a total reflection instead of a refraction
/sinBeta \pst at optic@cIn\space \pst at optic@cOut\space div Alpha sin mul def
sinBeta abs 1 le{
- /Root 1 sinBeta dup mul sub sqrt def
+ /Root 1 sinBeta dup mul sub Sqrt def
/Beta sinBeta Root atan def
}{
/Beta 180 Alpha sub def
@@ -1700,7 +1703,7 @@
/dX1 XA XP sub def
/signum YP 0 lt {-1}{1}ifelse def
% the gradient of the point. radius must be defined
- /root radius dup mul XP dup mul sub sqrt def
+ /root radius dup mul XP dup mul sub Sqrt def
/Gamma XP signum mul root atan 180 sub def
% the angle of the incoming ray
/AlphaStrich dY1 dX1 atan 180 sub def
@@ -1773,7 +1776,7 @@
% Les datas
% Sellmeier's
% glass sf15 : verre flint
- % n=sqrt(1+B1*L^2/(l^2-C1)+B2*L^2/(l^2-C2)+B3*L^2/(l^2-C3))
+ % n=Sqrt(1+B1*L^2/(l^2-C1)+B2*L^2/(l^2-C2)+B3*L^2/(l^2-C3))
% Cauchy : /N {1.606 6545 1 mul lambda dup mul div add} bind def
/L2 {lambda 1e-3 mul dup mul} bind def % en microm\xE8tres
/N {1
@@ -1783,7 +1786,7 @@
add
1.038164 L2 mul L2 116.416755 sub div
add
- sqrt} bind def
+ Sqrt} bind def
/alpha1 AnglePlan1 AnglePrism add def
/sinB1 alpha1 sin N div def
/B1 sinB1 arcsin def
@@ -1943,7 +1946,7 @@
% Les datas
% Sellmeier's
% glass sf15 : verre flint lourd
- % n=sqrt(1+B1*L^2/(l^2-C1)+B2*L^2/(l^2-C2)+B3*L^2/(l^2-C3))
+ % n=Sqrt(1+B1*L^2/(l^2-C1)+B2*L^2/(l^2-C2)+B3*L^2/(l^2-C3))
% Cauchy : /N {1.606 6545 1 mul lambda dup mul div add} bind def
/L2 {lambda 1e-3 mul dup mul} bind def
/N {1
@@ -1950,7 +1953,7 @@
1.539259 L2 mul L2 0.011931 sub div add
0.247621 L2 mul L2 0.055608 sub div add
1.038164 L2 mul L2 116.416755 sub div add
- sqrt} bind def
+ Sqrt} bind def
/alpha1 AnglePlan1 AnglePrism add def
/sinB1 alpha1 sin N div def
/B1 sinB1 asin def
@@ -1997,7 +2000,7 @@
\def\resetOpticOptions{% hv 2006-07-20
\newpsstyle{opticalAxis}{linewidth=0.5pt,linecolor=black,linestyle=solid}
\psset[pst-optic]{%
- lensGlass=false,drawing=true,,lensTwo,rightRay,
+ lensGlass=false,drawing=true,,lensTwo,rightRay,onlyrays=false,
xLeft=-7.5,xRight=7.5,yBottom=-3.0,yTop=3.0,
lensType=CVG,lensColor=lightgray,lensWidth=0.5,lensDepth=1,
lensHeight=5,lensScale=1,lensArrowSize=0.2,lensArrowInset=0.5,
More information about the tex-live-commits
mailing list