2 files changed, 11 insertions, 7 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-dots.pro b/Master/texmf-dist/dvips/pstricks/pst-dots.pro
index 9098492b253..ebed06ede5a 100644
--- a/Master/texmf-dist/dvips/pstricks/pst-dots.pro
+++ b/Master/texmf-dist/dvips/pstricks/pst-dots.pro
@@ -1,7 +1,7 @@
-% $Id: pst-dots.pro 291 2021-10-01 09:22:45Z herbert $
+% $Id: pst-dots.pro 601 2022-09-08 19:21:27Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
-%% Version 0.02,  2021/10/01
+%% Version 2.02,  2021/10/01
 %%
 %% For distribution, see pstricks.tex.
 %%
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro
index 175b1908d6b..c25657b9b90 100644
--- a/Master/texmf-dist/dvips/pstricks/pstricks.pro
+++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro
@@ -1,4 +1,4 @@
-% $Id: pstricks.pro 317 2021-11-16 20:47:25Z herbert $
+% $Id: pstricks.pro 615 2022-09-22 08:39:26Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
 %% Version 1.41, 2021/11/16
@@ -379,7 +379,7 @@ tx@Dict begin
 %
 %
 /TruchetFill { %	 on stack: scaling factor
-  10 dict begin
+  20 dict begin
   dup dup scale
   1 exch div round /penroseFactor ED 
   a 0 dtransform round exch round exch
@@ -445,7 +445,11 @@ tx@Dict begin
   { 0 h T 1 -1 scale } if 
   w neg h moveto 
   0 0 L w h L w neg a neg rlineto 
-  gsave fill grestore 
+  gsave 
+%  gsave w neg h lineto CLW 0.5 add setlinewidth  % test für border beim Pfeil
+%  1 setgray 0 setlinejoin closepath stroke 
+%  grestore  
+  fill grestore 
 } def
 %
 /ArrowD { % the sides are drawn as curves (hv 20071211)
@@ -951,8 +955,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