diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 34 |
1 files changed, 25 insertions, 9 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index ac52ca5f7d0..91824e557c5 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,7 +1,7 @@ -% $Id: pstricks.pro 167 2021-08-27 12:15:28Z herbert $ +% $Id: pstricks.pro 191 2021-09-05 20:07:31Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.37, 2021/08/26 +%% Version 1.38, 2021/09/05 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -10,7 +10,6 @@ % % Define the follwing gs-functions if not known, eg when using distiller % - revision 952 gt { systemdict /.setopacityalpha known not @@ -33,10 +32,10 @@ revision 952 gt /.setshapealpha { pop } bind def } if } ifelse - +% %%<bool> .setalphaisshape - %% If true, the values set by setstrokeconstantalpha and setfillconstantalpha are interpreted as shape values. The initial value of the AIS flag is false. - +% % /tx@Dict 200 dict def % the main PSTricks dictionary tx@Dict begin @@ -121,6 +120,23 @@ tx@Dict begin % /startGlobal { true setglobal globaldict begin } bind def /endGlobal { end false setglobal } bind def +% +/setpdfcolor where { % luapstricks specific code + /setpdfcolor get /pssetPDFcolor exch def + /setpdfcolor { + pssetPDFcolor + mark + currentcolor + currentcolorspace 0 get + dup /DeviceRGB eq { pop setrgbcolor } { + dup /DeviceCMYK eq { pop setcmykcolor } { + /DeviceGray eq { setgray } if + } ifelse + } ifelse + cleartomark + } def +} if +% /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor load def /pssetGraycolor /setgray load def @@ -306,7 +322,7 @@ tx@Dict begin } def % /PenroseFill {% on stack: scaling factor - 20 dict begin + 40 dict begin /Scale ED % 1 exch div round /penroseFactor ED % a 0 dtransform round exch round exch @@ -334,7 +350,7 @@ tx@Dict begin } def % /PenroseFillA {% on stack: scaling factor, border color, kite color, dart color - 30 dict begin + 50 dict begin /Scale ED Scale dup scale /border_colour ED @@ -1247,7 +1263,7 @@ dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifel } def %%------------------ tvz/DG/hv (2004-05-10) end -------------------%% % -/Rot { CP CP translate 3 -1 roll neg rotate NET } def +/Rot { CP CP translate 3 -1 roll neg rotate NET } def % /RotBegin { tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if @@ -1297,4 +1313,4 @@ dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifel end %-----------------------------------------------------------------------------% % -% END pstricks.pro +% END pstricks.pro
\ No newline at end of file |