diff options
| author | Karl Berry <karl@freefriends.org> | 2013-04-09 16:33:31 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2013-04-09 16:33:31 +0000 |
| commit | ca6438c53266207afc490d67c130e337b0816cb7 (patch) | |
| tree | bba9558c02b74879d6f07f3eee68bae1df1a05ee /Master/texmf-dist/dvips/pst-node | |
| parent | d6730e96b1acc94ef3a26f9079e57099be823dff (diff) | |
pst-node (9apr13)
git-svn-id: svn://tug.org/texlive/trunk@29789 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.pro | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/Master/texmf-dist/dvips/pst-node/pst-node.pro b/Master/texmf-dist/dvips/pst-node/pst-node.pro index 91c29427f55..5fccc62cffc 100644 --- a/Master/texmf-dist/dvips/pst-node/pst-node.pro +++ b/Master/texmf-dist/dvips/pst-node/pst-node.pro @@ -1,4 +1,4 @@ -% $Id: pst-node.pro 707 2012-09-21 14:17:30Z herbert $ +% $Id: pst-node.pro 765 2013-04-09 15:32:28Z herbert $ %% %% PostScript prologue for pst-node.tex. %% Version 1.14, 2012/09/18. @@ -226,10 +226,17 @@ 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 -/NCCoor { /AngleA yB yA sub xB xA sub Atan def /AngleB AngleA 180 add def -GetEdgeA GetEdgeB /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def /LPutPos { -LPutVar LPutLine } def /HPutPos { LPutVar HPutLine } def /VPutPos { -LPutVar VPutLine } def LPutVar } def + +/NCCoor { + /AngleA yB yA sub xB xA sub Atan def + /AngleB AngleA 180 add def + GetEdgeA GetEdgeB + /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def + /LPutPos { LPutVar LPutLine } def + /HPutPos { LPutVar HPutLine } def + /VPutPos { LPutVar VPutLine } def + LPutVar +} def % /NCLine { NCCoor |