diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
| -rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index 8587712fcee..acd43111d7b 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/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 { |