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.pro22
1 files changed, 4 insertions, 18 deletions
diff --git a/graphics/pstricks/base/dvips/pstricks.pro b/graphics/pstricks/base/dvips/pstricks.pro
index 91824e557c..8587712fce 100644
--- a/graphics/pstricks/base/dvips/pstricks.pro
+++ b/graphics/pstricks/base/dvips/pstricks.pro
@@ -1,7 +1,7 @@
-% $Id: pstricks.pro 191 2021-09-05 20:07:31Z herbert $
+% $Id: pstricks.pro 217 2021-09-10 13:50:31Z herbert $
%
%% PostScript prologue for pstricks.tex.
-%% Version 1.38, 2021/09/05
+%% Version 1.39, 2021/09/10
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
@@ -121,22 +121,6 @@ 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
@@ -721,9 +705,11 @@ tx@Dict begin
/EAC { x2 y2 x y ArrowB curveto pop pop } def
%
/OpenCurve {
+ 5 dict begin
NArray n 3 lt
{ n { pop pop } repeat }
{ BOC /n n 3 sub def n { NC } repeat EOC } ifelse
+ end
} def
%
/CurvePath {