summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pstricks
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-02-11 00:50:34 +0000
committerKarl Berry <karl@freefriends.org>2012-02-11 00:50:34 +0000
commitb0eabb6758f016228a73f390ecede6bcf1f0c535 (patch)
tree0bedeea085c451e03e9ff9225ed40cb2241584ef /Master/texmf-dist/dvips/pstricks
parent31705256b876f83730b07d6ba8dbb46889ffc05c (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')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pstricks.pro46
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
%