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, 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