summaryrefslogtreecommitdiff
path: root/graphics/pstricks/base/dvips/pstricks.pro
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/base/dvips/pstricks.pro')
-rw-r--r--graphics/pstricks/base/dvips/pstricks.pro11
1 files changed, 6 insertions, 5 deletions
diff --git a/graphics/pstricks/base/dvips/pstricks.pro b/graphics/pstricks/base/dvips/pstricks.pro
index 8587712fce..acd43111d7 100644
--- a/graphics/pstricks/base/dvips/pstricks.pro
+++ b/graphics/pstricks/base/dvips/pstricks.pro
@@ -1,4 +1,4 @@
-% $Id: pstricks.pro 217 2021-09-10 13:50:31Z herbert $
+% $Id: pstricks.pro 256 2021-09-22 18:42:59Z herbert $
%
%% PostScript prologue for pstricks.tex.
%% Version 1.39, 2021/09/10
@@ -129,6 +129,7 @@ tx@Dict begin
/PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def } def
%
/PathLength {
+ 10 dict begin
flattenpath /z 0 def
{ /y1 ED /x1 ED /y2 y1 def /x2 x1 def }
{ /y ED /x ED PathLength@ }
@@ -136,6 +137,7 @@ tx@Dict begin
{ /y y2 def /x x2 def PathLength@ }
/pathforall load stopped { pop pop pop pop } if
z
+ end
} def
%
/STP { .996264 dup scale } def % BP/PT scaling
@@ -260,8 +262,7 @@ tx@Dict begin
clipType % must be defined in pstricks.tex: clip -- eoclip
newpath
2 setlinecap
- systemdict
- /setstrokeadjust known { true setstrokeadjust } if
+ systemdict /setstrokeadjust known { true setstrokeadjust } if
x2 x1 sub 1 add {
x1 a mul y1 moveto 0 y2 rlineto stroke
/x1 x1 1 add
@@ -1254,8 +1255,8 @@ dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifel
/RotBegin {
tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
/TMatrix [ TMatrix CM ] cvx def
- /a ED
- a Rot /RAngle [ RAngle dup a add ] cvx def
+ /RotAngle ED
+ RotAngle Rot /RAngle [ RAngle dup RotAngle add ] cvx def
} def
%
/RotEnd {