From cb3c65c856def72207b7eac05eb765eabc32c948 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 26 Aug 2021 21:23:35 +0000
Subject: pstricks (26aug21)

git-svn-id: svn://tug.org/texlive/trunk@60327 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/dvips/pstricks/pstricks.pro | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'Master/texmf-dist/dvips')

diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro
index c351841e8cd..26e64b4e333 100644
--- a/Master/texmf-dist/dvips/pstricks/pstricks.pro
+++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro
@@ -1,7 +1,7 @@
-% $Id: pstricks.pro 152 2021-08-19 11:24:26Z herbert $
+% $Id: pstricks.pro 164 2021-08-25 19:26:42Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
-%% Version 1.35, 2021/05/21
+%% Version 1.36, 2021/08/25
 %%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN archives
@@ -306,6 +306,7 @@ tx@Dict begin
 } def
 %
 /PenroseFill {%	 on stack: scaling factor
+  20 dict begin
   /Scale ED
 %  1 exch div round /penroseFactor ED 
 %  a 0 dtransform round exch round exch
@@ -318,20 +319,22 @@ tx@Dict begin
 %  a Div cvi /x1 ED /y2 y2 y1 sub def 
   clip 
   newpath 
-gsave
+  gsave
   220 150 translate
   Scale dup scale
   systemdict /setstrokeadjust known { true setstrokeadjust } if 
   /I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}
- { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
+    { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
   [0 72 1008 {dup sin E cos }F ]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
   i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
   mul j l + S rmoveto}F i L j L stroke }F}F}F}F 
   grestore 
 %  pop pop 
+  end % userdict
 } def
 %
 /PenroseFillA {%  on stack: scaling factor, border color, kite color, dart color
+  30 dict begin
   /Scale ED
   Scale dup scale
   /border_colour ED 
@@ -367,6 +370,7 @@ gsave
   dup f exch neg exp dup scale
   5 {kite 72 rotate } repeat stroke 
   grestore
+  end % userdict
 } def
 %
 %
-- 
cgit v1.2.3