pst-node (4feb14)

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

1 files changed, 25 insertions, 10 deletions

diff --git a/Master/texmf-dist/dvips/pst-node/pst-node.pro b/Master/texmf-dist/dvips/pst-node/pst-node.pro
index d1e4ab57c07..96b74f133fa 100644
--- a/Master/texmf-dist/dvips/pst-node/pst-node.pro
+++ b/Master/texmf-dist/dvips/pst-node/pst-node.pro
@@ -1,12 +1,15 @@
-% $Id: pst-node.pro 805 2013-07-11 13:18:11Z herbert $
+% $Id: pst-node.pro 876 2014-01-28 15:03:13Z herbert $
 %%
 %% PostScript prologue for pst-node.tex.
-%% Version 1.14, 2012/09/18.
+%% Version 1.15, 2014/01/27.
 %%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN archives
 %% in directory macros/latex/base/lppl.txt.
 %
+%%%%  EMPTY lines are not aload!!! Problem with pst-eps -> \par
+%
+%
 tx@Dict begin 			% from main pstricks dict
  /T /translate load def 
  /CP /currentpoint load def 
@@ -207,15 +210,26 @@ end
 %
 /HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def
 } def
+%
 /HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def
-/NAngle yyB yyA sub xxB xxA sub Atan def } def
+           /NAngle yyB yyA sub xxB xxA sub Atan def 
+} def
 /HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd  } def
-/HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def
-} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit
-} { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd 
+%
+/HPutLines { HPosBegin yB yA ge 
+  { /check { le } def } { /check { ge } def } ifelse 
+  /xxA xA def 
+  /yyA yA def 
+  mark xB yB LPutVar 
+    { dup Y check { exit } { /yyA ED /xxA ED } ifelse } 
+  loop 
+  /yyB ED /xxB ED cleartomark HPosEnd 
 } def
-/VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def
+%
+/VPosBegin { 
+  xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def
 } def
+%
 /VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def
 /NAngle yyB yyA sub xxB xxA sub Atan def } def
 /VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd  } def
@@ -225,8 +239,9 @@ exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark
 VPosEnd  } def
 /HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2
 roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx
-def grestore exec /LPutVar /SaveLPutVar load def } def
-
+def grestore exec /LPutVar /SaveLPutVar load def 
+} def
+%
 /NCCoor { 
   /AngleA yB yA sub xB xA sub Atan def 
   /AngleB AngleA 180 add def
@@ -592,4 +607,4 @@ def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin
 %
 end
 %
-% END pst-node.pro
+% END pst-node.pro
\ No newline at end of file