diff options
author | Karl Berry <karl@freefriends.org> | 2012-03-11 21:46:15 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-03-11 21:46:15 +0000 |
commit | 54e9450ae0e3070da1e6fa97eb957993ed7ae5f9 (patch) | |
tree | 1b8167fba3b73acb80ff92aac77b3aae7dd68960 /Master/texmf-dist/dvips | |
parent | 1ba3b7ef2bccc9201060b1f5dccecb2c148cd7c6 (diff) |
pstricks 2.27 (11mar12)
git-svn-id: svn://tug.org/texlive/trunk@25606 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 72 |
1 files changed, 55 insertions, 17 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index 4aba4593eb5..77519c55514 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,7 +1,7 @@ -% $Id: pstricks.pro 642 2012-02-09 15:00:52Z herbert $ +% $Id: pstricks.pro 647 2012-02-12 15:03:40Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.10, 2012/02/09 +%% Version 1.12, 2012/02/12 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -123,22 +123,56 @@ tx@Dict begin /YLength YB YA sub def /PAngle YLength XLength Atan def /XYLength XLength YLength Pyth def - /nSym XYLength SymStep div cvi def + + %% for negative SymStep we calculate the distance + SymStep 0 lt + { %XYLength SymStep div abs cvi + /nSym SymStep abs cvi def } + { /nSym XYLength SymStep div cvi def } + ifelse + 0.5 setflat /Shift Symbol stringwidth pop 2 div def /deltaX XLength nSym div def /deltaY YLength nSym div def - XA Shift sub YA Shift sub moveto + curveticks + { XA YA moveto } + { XA Shift sub YA Shift sub moveto } + ifelse nSym { - gsave rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if - Symbol show + gsave + curveticks + { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED + currentpoint translate rotAngle rotate + 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto + SymbolLinewidth setlinewidth stroke + } + { + rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if + Symbol show + } + ifelse grestore deltaX deltaY rmoveto } repeat /YA YB def /XA XB def } repeat - XA Shift sub YA Shift sub moveto - gsave rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if - Symbol show grestore + curveticks + { XA YA moveto } + { XA Shift sub YA Shift sub moveto } + ifelse + gsave + curveticks + { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED + XA YA translate rotAngle rotate + 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto + SymbolLinewidth setlinewidth stroke + } + { + rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if + Symbol show + } + ifelse + grestore pop % delete the mark symbol } def % @@ -551,7 +585,8 @@ tx@Dict begin gsave curveticks { x1 y1 translate startAngle rotate - 0 5 moveto 0 -5 lineto stroke + 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto + SymbolLinewidth setlinewidth stroke } { startAngle rotate Symbol show } ifelse @@ -562,7 +597,8 @@ tx@Dict begin curveticks { y yOld sub x xOld sub Atan 180 sub CorrAngle sub /rotAngle ED x y translate rotAngle rotate - 0 5 moveto 0 -5 lineto stroke + 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto + SymbolLinewidth setlinewidth stroke } { rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if @@ -578,7 +614,8 @@ tx@Dict begin curveticks { y yOld sub x xOld sub Atan 180 sub /rotAngle ED x y translate rotAngle rotate - 0 5 moveto 0 -5 lineto stroke + 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto + SymbolLinewidth setlinewidth stroke } { x Shift sub y Shift sub moveto @@ -589,11 +626,12 @@ tx@Dict begin grestore } pathforall - curveticks - { gsave - x y translate rotAngle rotate - 0 5 moveto 0 -5 lineto stroke grestore - } if +% curveticks +% { gsave +% x y translate rotAngle rotate +% 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto +% SymbolLinewidth setlinewidth stroke grestore +% } if z } def % |