diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 46 |
1 files changed, 38 insertions, 8 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index 707b9307f5d..4aba4593eb5 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,7 +1,7 @@ -% $Id: pstricks.pro 622 2012-01-01 15:36:14Z herbert $ +% $Id: pstricks.pro 642 2012-02-09 15:00:52Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.09, 2011/10/31 +%% Version 1.10, 2012/02/09 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -542,28 +542,58 @@ tx@Dict begin } def % /CurvePath { + %% for negative SymStep we calculate the distance + SymStep 0 lt { gsave PathLength SymStep div abs /SymStep ED grestore } if + 0.5 setflat flattenpath /z 0 def /z0 0 def { /y1 ED /x1 ED /y2 y1 def /x2 x1 def x1 Shift sub y1 Shift sub moveto gsave - startAngle rotate Symbol show + curveticks + { x1 y1 translate startAngle rotate + 0 5 moveto 0 -5 lineto stroke + } + { startAngle rotate Symbol show } + ifelse grestore /z0 z def } { /y ED /x ED PathLength@ z z0 sub SymStep ge { x Shift sub y Shift sub moveto gsave - rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if - Symbol show + 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 + } + { + rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if + Symbol show + } + ifelse grestore /z0 z def } if /yOld y def /xOld x def } - {} + {} %% the lineto part { /y y2 def /x x2 def PathLength@ x Shift sub y Shift sub moveto gsave - rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if - Symbol show + curveticks + { y yOld sub x xOld sub Atan 180 sub /rotAngle ED + x y translate rotAngle rotate + 0 5 moveto 0 -5 lineto stroke + } + { + x Shift sub y Shift sub moveto + rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if + Symbol show + } + ifelse grestore } pathforall + curveticks + { gsave + x y translate rotAngle rotate + 0 5 moveto 0 -5 lineto stroke grestore + } if z } def % |