texlive[64322] Master/texmf-dist/dvips/pstricks: pstricks (9sep22)

[commits+karl at tug.org]

Revision: 64322
          http://tug.org/svn/texlive?view=revision&revision=64322
Author:   karl
Date:     2022-09-09 22:00:51 +0200 (Fri, 09 Sep 2022)
Log Message:
-----------
pstricks (9sep22)

Modified Paths:
--------------
    trunk/Master/texmf-dist/dvips/pstricks/pst-dots.pro
    trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro

Modified: trunk/Master/texmf-dist/dvips/pstricks/pst-dots.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pstricks/pst-dots.pro	2022-09-09 20:00:32 UTC (rev 64321)
+++ trunk/Master/texmf-dist/dvips/pstricks/pst-dots.pro	2022-09-09 20:00:51 UTC (rev 64322)
@@ -1,7 +1,7 @@
-% $Id: pst-dots.pro 4 2020-06-09 08:32:19Z herbert $
+% $Id: pst-dots.pro 601 2022-09-08 19:21:27Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
-%% Version 2.02,  2009/06/16
+%% Version 2.02,  2021/10/01
 %%
 %% For distribution, see pstricks.tex.
 %%
@@ -16,7 +16,7 @@
 %% to add /Diamond, /SolidDiamond and /BoldDiamond
 %% Modified by Herbert Voss (hv) - 2008/04/17 
 %
-12 dict dup dup begin
+12 dict dup begin
 /FontType 1 def
 /FontName /PSTricksDotFont def
 /FontInfo 9 dict dup begin
@@ -329,6 +329,6 @@
 0000000000000000000000000000000000000000000000000000000000000000
 0000000000000000000000000000000000000000000000000000000000000000
 cleartomark
-/PSTricksDotFont exch definefont
+%/PSTricksDotFont exch definefont
 %
 %% end
\ No newline at end of file

Modified: trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro	2022-09-09 20:00:32 UTC (rev 64321)
+++ trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro	2022-09-09 20:00:51 UTC (rev 64322)
@@ -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 @@
          (\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 @@
 /tx at Dict 200 dict def 				% the main PSTricks dictionary
 tx at Dict begin
 /ADict 25 dict def				% The arrow dictionary
+/fill at Dict 30 dict def				% the fill dictionary
 /CM { matrix currentmatrix } bind def
 /SLW /setlinewidth load def
 /CLW /currentlinewidth load def
@@ -948,8 +951,8 @@
     } ifelse 
 } def
 %
-/Frame { 
-  CLW mul /a ED 
+/Frame { %  on  stack \psk at dimen
+  CLW mul /a ED % save radius
   3 -1 roll 
   2 copy gt { exch } if 
   a sub /y2 ED