summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-02-06 23:24:08 +0000
committerKarl Berry <karl@freefriends.org>2014-02-06 23:24:08 +0000
commitb732a2d946192bbf5a35db2263ac19a974697af3 (patch)
treef8c2e49be4a098f0351364adea6a205f1fc6a0df /Master/texmf-dist/dvips
parent8eea77ff7a067f4a46163f722b2458905c297eb7 (diff)
pst-node (4feb14)
git-svn-id: svn://tug.org/texlive/trunk@32891 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-node/pst-node.pro35
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