diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
| -rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index 7f7f985e95f..a91ca474cff 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,7 +1,7 @@ -% $Id: pstricks.pro 532 2011-07-09 13:02:57Z herbert $ +% $Id: pstricks.pro 594 2011-10-31 18:13:18Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.08, 2011/07/09 +%% Version 1.09, 2011/10/31 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -375,25 +375,27 @@ tx@Dict begin } def % /LineToYAxis { + /Ox ED % Save the x origin value NArray % all x-y pairs on stack n { 2 copy moveto % go to current point - 0 exch Lineto % line to y-axis + Ox exch Lineto % line to y-axis pop % delete old x-value } repeat } def % /LineToXAxis{ + /Oy ED % Save the y origin value NArray % all x-y pairs on stack n 0 eq not { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub def - CP 2 copy moveto pop 0 Lineto - n { 2 copy moveto pop 0 Lineto } repeat + CP 2 copy moveto pop Oy Lineto + n { 2 copy moveto pop Oy Lineto } repeat CP 4 2 roll ArrowB - 2 copy moveto pop 0 + 2 copy moveto pop Oy L pop pop } if } def |