diff options
author | Karl Berry <karl@freefriends.org> | 2021-08-26 21:23:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-08-26 21:23:35 +0000 |
commit | cb3c65c856def72207b7eac05eb765eabc32c948 (patch) | |
tree | fb8c4a5f3e7fa19d7fa4aaf89cdfc43afb4bd18c /Master/texmf-dist/dvips | |
parent | a40db862cb469df927219a1001220ec7feb760d3 (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.pro | 12 |
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 % % |