pst-optexp (22feb13)

git-svn-id: svn://tug.org/texlive/trunk@29201 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 9 insertions, 5 deletions

diff --git a/Master/texmf-dist/tex/latex/pst-optexp/pst-optexp.sty b/Master/texmf-dist/tex/latex/pst-optexp/pst-optexp.sty
index 332ee17a450..b3d4416dad4 100644
--- a/Master/texmf-dist/tex/latex/pst-optexp/pst-optexp.sty
+++ b/Master/texmf-dist/tex/latex/pst-optexp/pst-optexp.sty
@@ -9,7 +9,7 @@
 %% This is a generated file.
 %% 
 %% Project: pst-optexp
-%% Version: 3.4alpha (2013/02/03)
+%% Version: 3.5 (2013/02/22)
 %% 
 %% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
 %% 
@@ -31,7 +31,7 @@
 %% 
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesPackage{pst-optexp}
-    [2013/02/03 v3.4 Optical experimental setups with PSTricks]
+    [2013/02/22 v3.5 Optical experimental setups with PSTricks]
 \RequirePackage{pstricks}
 \RequirePackage{pst-xkey}
 \RequirePackage{pst-node}
@@ -874,8 +874,12 @@
    {bandstop,bandpass,lowpass,highpass}%
    {\def\POE@key@filtertype{#1}}%
    {\PackageError{pst-optexp}{Unknown value '\val' for filtertype}}
+\define@key[psset]{optexp}{filterangle}{%
+  \pst@checknum{#1}\POE@key@filterangle
+}
 \newpsstyle{FilterStyle}{}
 \psset[optexp]{%
+  filterangle=0,
   filtersize=0.8,
   filtertype=bandpass
 }%
@@ -2681,7 +2685,7 @@
         \fi
         \ifPOE@fiberpresetout@
           \ifPOE@fiberpresetout@top
-            \drawfiber@{FiberOut}[startnode=3]{\POE@key@compname}%
+            \drawfiber@{FiberOut1}[startnode=3]{\POE@key@compname}%
                                               {(#3)}
           \fi
           \ifPOE@fiberpresetout@bottom
@@ -4165,7 +4169,7 @@
       90 add cos 0.2 \@sz mul mul}%
   }%
   \psframe[dimen=outer](! \@sz neg dup)(! \@sz dup)
-  \bgroup
+  \psrotate(\oenodeCenter{}){\POE@key@filterangle}{%
   \psset{style=FilterStyle}%
     \ifx\POE@key@filtertype\POE@str@filtertype@bandpass
       \psline(! -0.3 \@sz mul -0.65 \@sz mul)%
@@ -4218,7 +4222,7 @@
         \rput(0, 0){\filter@curve}
         \rput(! 0 -0.5 \@sz mul){\filter@curve}
   \fi\fi\fi\fi
-  \egroup
+  }%
 \ignorespaces}%
 \def\optamp@ref{%
   \POE@setref{/@@x \POE@key@optampwidth\space 0.5 mul def