summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-node
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-04-23 00:30:59 +0000
committerKarl Berry <karl@freefriends.org>2010-04-23 00:30:59 +0000
commit7ec0cd0175d99a635a9298554e4fb6f0e56599d1 (patch)
treeaeda1556ad2fbe0cee5f9fe4e5f520340b1f9959 /Master/texmf-dist/dvips/pst-node
parent66fc062925feca5c8d08eb30d24db824dad349ac (diff)
pst-node 1.11 (22apr10)
git-svn-id: svn://tug.org/texlive/trunk@17965 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-node')
-rw-r--r--Master/texmf-dist/dvips/pst-node/pst-node.pro38
1 files changed, 29 insertions, 9 deletions
diff --git a/Master/texmf-dist/dvips/pst-node/pst-node.pro b/Master/texmf-dist/dvips/pst-node/pst-node.pro
index 4436aac9e87..94a343c6c1b 100644
--- a/Master/texmf-dist/dvips/pst-node/pst-node.pro
+++ b/Master/texmf-dist/dvips/pst-node/pst-node.pro
@@ -1,7 +1,7 @@
-% $Id: pst-node.pro 263 2010-01-22 11:13:25Z herbert $
+% $Id: pst-node.pro 304 2010-04-22 08:23:39Z herbert $
%%
%% PostScript prologue for pst-node.tex.
-%% Version 1.10, 2010/01/22.
+%% Version 1.11, 2010/04/22.
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
@@ -184,13 +184,23 @@ end
cleartomark
} def
%
-/BezierMidpoint { /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED
-/t ED /cx x1 x0 sub 3 mul def /cy y1 y0 sub 3 mul def /bx x2 x1 sub 3
-mul cx sub def /by y2 y1 sub 3 mul cy sub def /ax x3 x0 sub cx sub bx
-sub def /ay y3 y0 sub cy sub by sub def ax t 3 exp mul bx t t mul mul
-add cx t mul add x0 add ay t 3 exp mul by t t mul mul add cy t mul add
-y0 add 3 ay t t mul mul mul 2 by t mul mul add cy add 3 ax t t mul mul
-mul 2 bx t mul mul add cx add atan /NAngle ED /Y ED /X ED } def
+/BezierMidpoint {
+ /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED /t ED
+ /cx x1 x0 sub 3 mul def
+ /cy y1 y0 sub 3 mul def
+ /bx x2 x1 sub 3 mul cx sub def
+ /by y2 y1 sub 3 mul cy sub def
+ /ax x3 x0 sub cx sub bx sub def
+ /ay y3 y0 sub cy sub by sub def
+ ax t 3 exp mul bx t t mul mul add
+ cx t mul add x0 add ay t 3 exp mul
+ by t t mul mul add cy t mul add
+ y0 add 3 ay t t mul mul mul 2
+ by t mul mul add cy add 3 ax t t mul mul mul
+ 2 bx t mul mul add cx add atan /NAngle ED
+ /Y ED /X ED
+} def
+%
/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
@@ -568,6 +578,16 @@ def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin
Y add /Y ED
} def
%
+%------------------------- helper functions ---------------------
+%
+/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
+ 0 1 index { length add } forall
+ string
+ 0 3 2 roll
+ { 3 copy putinterval length add }forall
+ pop
+} bind def
+%
end
%
% END pst-node.pro