pstricks 2.24 (9feb12)

git-svn-id: svn://tug.org/texlive/trunk@25354 c570f23f-e606-0410-a88d-b1316a301751

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
 %