1 files changed, 15 insertions, 30 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index 2c1e89865eb..57f69b67c2f 100644
--- a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
+++ b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
@@ -9,7 +9,7 @@
 %% This is a generated file.
 %% 
 %% Project: pst-optexp
-%% Version: 3.6 (2013/03/20)
+%% Version: 4.0 (2013/04/15)
 %% 
 %% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
 %% 
@@ -88,13 +88,13 @@ tx@OptexpDict begin
   (Warning pst-optexp: ) exch strcat ==
 } bind def
 /CompUnknownWarning {
-  (Component ') exch strcat (' unknown) strcat PrintWarning
+  (Component ') exch strcat (' unknown) strcat Warning
 } bind def
 /OneFiberCompWarning {
-  (Found only one fiber component in beam path, drawing no beam) PrintWarning
+  (Found only one unsupported component in beam path, drawing no beam) Warning
 } bind def
 /FiberCompWarning {
-  (Found a fiber component in beam path, stopping beam path) PrintWarning
+  (Found an unsupported component in beam path, stopping beam path) Warning
 } bind def
 /inttostr {
   dup type /integertype eq {
@@ -205,22 +205,6 @@ tx@OptexpDict begin
   { @GetCenter } forall
   DebugEnd
 } bind def
-/GetInternalBeamNodesCompat {
-  exch dup 3 1 roll (C) NodeName dup tx@NodeDict exch known {
-    @GetCenter ToVec
-    3 1 roll pop pop
-  } {
-    pop GetInternalBeamNodes
-  } ifelse
-} bind def
-/GetInternalBeamNodeCompat {
-  exch dup 3 1 roll (C) NodeName dup tx@NodeDict exch known {
-    @GetCenter ToVec
-    3 1 roll pop pop
-  } {
-    pop NodeName @GetCenter ToVec
-  } ifelse
-} bind def
 /InitOptexpComp {%
   /@@x 0 def
   /@@y 0 def
@@ -289,7 +273,7 @@ tx@OptexpDict begin
   exec scl ToVec 3 1 roll NodeName @NewNode
 } bind def
 /relative 0 def /absolute 1 def /center 2 def
-/refl 0 def /trans 1 def /absorb 2 def
+/refl 0 def /trans 1 def /absorb 2 def /undefined -1 def
 /desc 0 def /asc 1 def /amb 2 def
 /ok 0 def /tir 1 def /missed 2 def
 /bgRefIndex 0 def
@@ -579,6 +563,7 @@ tx@OptexpDict begin
       Vec DotProd dup sprod lt 5 2 roll
       GetIfcCenter 3 -1 roll exec GetIfcCenter @ABDist
       centerDist lt and
+      centerDist -1 eq { pop dup 0 gt } if
       { /sprod ED /nextPlane ED } { pop pop } ifelse
     } {
       pop
@@ -1416,8 +1401,8 @@ tx@OptexpDict begin
   } ifelse
   DebugEnd
 } bind def
-/RelFiberAngle {
-  (RelFiberAngle) DebugBegin
+/RelConnAngle {
+  (RelConnAngle) DebugBegin
   /fiberalign ED
   dup xcheck not { nametostr } if /CompB ED
   dup xcheck not { nametostr } if /CompA ED
@@ -1430,10 +1415,10 @@ tx@OptexpDict begin
       4 2 roll @ABVect 4 2 roll
       CompB
       fiberalign center eq {
-        RelFiberAngle@center
+        RelConnAngle@center
       }{
         3 1 roll pop pop
-        RelFiberAngle@ref
+        RelConnAngle@ref
       } ifelse
       2 copy exch atan
       7 3 roll 2 copy 9 -2 roll
@@ -1444,25 +1429,25 @@ tx@OptexpDict begin
     CompA (Center) NodeName @GetCenter
     4 2 roll @ABVect 4 2 roll
     CompA fiberalign center eq {
-      RelFiberAngle@center
+      RelConnAngle@center
     }{
       3 1 roll pop pop
-      RelFiberAngle@tref
+      RelConnAngle@tref
     } ifelse
     2 copy exch atan
     5 1 roll DotProd 0 gt { 180 add } if
   } ifelse
   DebugEnd
 } bind def
-/RelFiberAngle@ref {
+/RelConnAngle@ref {
   dup (A) NodeName exch (B) NodeName
   @GetCenter 3 -1 roll @GetCenter @ABVect
 } bind def
-/RelFiberAngle@tref {
+/RelConnAngle@tref {
   dup (TrefA) NodeName exch (TrefB) NodeName
   @GetCenter 3 -1 roll @GetCenter @ABVect
 } bind def
-/RelFiberAngle@center {
+/RelConnAngle@center {
   (Center) NodeName @GetCenter 4 2 roll @ABVect
 } bind def
 /GetIfcOrNodeCoord {