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.pro12
1 files changed, 8 insertions, 4 deletions
diff --git a/graphics/pstricks/base/dvips/pstricks.pro b/graphics/pstricks/base/dvips/pstricks.pro
index c351841e8c..26e64b4e33 100644
--- a/graphics/pstricks/base/dvips/pstricks.pro
+++ b/graphics/pstricks/base/dvips/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
%
%