c2l pst-optexp (2jul13)

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

1 files changed, 14 insertions, 18 deletions

diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index 19e96175299..afdc628edb2 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: 4.2 (2013/06/07)
+%% Version: 4.3a (2013/07/02)
 %% 
 %% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
 %% 
@@ -112,20 +112,16 @@ tx@OptexpDict begin
 /calcNodes {
   (calcNode) DebugBegin
   /YG exch def /XG exch def
-  /ay YG 3 -1 roll sub def
-  /ax XG 3 -1 roll sub def
   /by exch YG sub def
   /bx exch XG sub def
-  /a ax ay Pyth def
-  /modA a def
-  /b bx by Pyth def
-  /modB b def
-  /cx ax a div bx b div add def
-  /cy ay a div by b div add def
-  /c@tmp cx cy Pyth def
+  /ay YG 3 -1 roll sub def
+  /ax XG 3 -1 roll sub def
+  ax ay NormalizeVec bx by NormalizeVec VecAdd
+  2 copy Pyth abs 1e-4 lt {
+    pop pop ax ay -90 matrix rotate dtransform
+  } if
+  /cy ED /cx ED
   /c ax bx add ay by add Pyth def
-  /OEangle c dup mul a dup mul sub b dup mul sub
-             -2 a b mul mul div Acos def
   c 0 eq {
     ax ay bx by DotProd 0 gt {
       /cx ax def
@@ -134,19 +130,16 @@ tx@OptexpDict begin
       /cx ay def
       /cy ax neg def
     } ifelse
-    /c@tmp a def
   } if
-  /X@A XG cx c@tmp div add def
-  /Y@A YG cy c@tmp div add def
-  /X@B XG cx c@tmp div sub def
-  /Y@B YG cy c@tmp div sub def
+  cx cy NormalizeVec 2 copy
+  XG YG VecAdd /Y@A ED /X@A ED
+  XG YG 4 2 roll VecSub /Y@B ED /X@B ED
   ax by mul ay bx mul sub 0 le {
     Y@A X@A
     /X@A X@B def
     /Y@A Y@B def
     /X@B exch def
     /Y@B exch def
-    modA modB /modA exch def /modB exch def
   } if
   DebugEnd
 } bind def
@@ -1243,6 +1236,9 @@ tx@OptexpDict begin
 /VecAdd {
     3 -1 roll add 3 1 roll add exch
 } bind def
+/VecSub {
+    neg 3 -1 roll add 3 1 roll neg add exch
+} bind def
 /VecScale {
   dup 4 -1 roll mul 3 1 roll mul
 } bind def