summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pstricks
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-03-11 21:46:15 +0000
committerKarl Berry <karl@freefriends.org>2012-03-11 21:46:15 +0000
commit54e9450ae0e3070da1e6fa97eb957993ed7ae5f9 (patch)
tree1b8167fba3b73acb80ff92aac77b3aae7dd68960 /Master/texmf-dist/dvips/pstricks
parent1ba3b7ef2bccc9201060b1f5dccecb2c148cd7c6 (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/pstricks')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pstricks.pro72
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
%