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.pro34
1 files changed, 25 insertions, 9 deletions
diff --git a/graphics/pstricks/base/dvips/pstricks.pro b/graphics/pstricks/base/dvips/pstricks.pro
index ac52ca5f7d..91824e557c 100644
--- a/graphics/pstricks/base/dvips/pstricks.pro
+++ b/graphics/pstricks/base/dvips/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