diff options
Diffstat (limited to 'graphics/pstricks/base/dvips/pstricks.pro')
-rw-r--r-- | graphics/pstricks/base/dvips/pstricks.pro | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/graphics/pstricks/base/dvips/pstricks.pro b/graphics/pstricks/base/dvips/pstricks.pro index 178eb0475a..47e9fd6631 100644 --- a/graphics/pstricks/base/dvips/pstricks.pro +++ b/graphics/pstricks/base/dvips/pstricks.pro @@ -1,7 +1,7 @@ -% $Id: pstricks.pro 269 2021-09-25 13:47:26Z herbert $ +% $Id: pstricks.pro 407 2022-01-12 17:06:33Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.40, 2021/09/25 +%% Version 1.41, 2021/11/16 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -17,6 +17,8 @@ revision 952 gt (\n\n%%%% WARNING: Transparency operations ignored - need to use -dALLOWPSTRANSPARENCY\n\n) print flush /.setopacityalpha { pop } bind def /.setshapealpha { pop } bind def + /.setfillconstantalpha { pop } bind def + /.setstrokeconstantalpha { pop } bind def } { /.setopacityalpha /.setfillconstantalpha load def @@ -40,6 +42,7 @@ revision 952 gt /tx@Dict 200 dict def % the main PSTricks dictionary tx@Dict begin /ADict 25 dict def % The arrow dictionary +/fill@Dict 30 dict def % the fill dictionary /CM { matrix currentmatrix } bind def /SLW /setlinewidth load def /CLW /currentlinewidth load def @@ -948,8 +951,8 @@ tx@Dict begin } ifelse } def % -/Frame { - CLW mul /a ED +/Frame { % on stack \psk@dimen + CLW mul /a ED % save radius 3 -1 roll 2 copy gt { exch } if a sub /y2 ED |