diff options
author | Karl Berry <karl@freefriends.org> | 2012-02-11 00:50:34 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-02-11 00:50:34 +0000 |
commit | b0eabb6758f016228a73f390ecede6bcf1f0c535 (patch) | |
tree | 0bedeea085c451e03e9ff9225ed40cb2241584ef /Master/texmf-dist/dvips/pstricks/pstricks.pro | |
parent | 31705256b876f83730b07d6ba8dbb46889ffc05c (diff) |
pstricks 2.24 (9feb12)
git-svn-id: svn://tug.org/texlive/trunk@25354 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
-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 % |