summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-08-26 21:23:35 +0000
committerKarl Berry <karl@freefriends.org>2021-08-26 21:23:35 +0000
commitcb3c65c856def72207b7eac05eb765eabc32c948 (patch)
treefb8c4a5f3e7fa19d7fa4aaf89cdfc43afb4bd18c /Master/texmf-dist/dvips
parenta40db862cb469df927219a1001220ec7feb760d3 (diff)
pstricks (26aug21)
git-svn-id: svn://tug.org/texlive/trunk@60327 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pstricks.pro12
1 files changed, 8 insertions, 4 deletions
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
%
%