From a7ef56f18421a8ffb9d34c16ff9f017e45e4e6d3 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 7 Sep 2021 03:03:54 +0000 Subject: CTAN sync 202109070303 --- graphics/pstricks/base/dvips/pstricks-fonts-lm.pro | 69 ---------------------- graphics/pstricks/base/dvips/pstricks-fonts-ps.pro | 32 ---------- .../pstricks/base/dvips/pstricks-fonts-urw.pro | 61 ------------------- graphics/pstricks/base/dvips/pstricks.pro | 34 ++++++++--- 4 files changed, 25 insertions(+), 171 deletions(-) delete mode 100644 graphics/pstricks/base/dvips/pstricks-fonts-lm.pro delete mode 100644 graphics/pstricks/base/dvips/pstricks-fonts-ps.pro delete mode 100644 graphics/pstricks/base/dvips/pstricks-fonts-urw.pro (limited to 'graphics/pstricks/base/dvips') diff --git a/graphics/pstricks/base/dvips/pstricks-fonts-lm.pro b/graphics/pstricks/base/dvips/pstricks-fonts-lm.pro deleted file mode 100644 index 952fccfa80..0000000000 --- a/graphics/pstricks/base/dvips/pstricks-fonts-lm.pro +++ /dev/null @@ -1,69 +0,0 @@ -% $Id: pstricks-fonts-lm.pro 4 2020-06-09 08:32:19Z herbert $ -% -%% PostScript font prologue for pstricks.tex. -%% Version 0.01, 2016/04/22 -%% -%% This program can be redistributed and/or modified under the terms -%% of the LaTeX Project Public License Distributed from CTAN archives -%% in directory macros/latex/base/lppl.txt. -% -% -%true setglobal globaldict begin - -%dd-lmbx10 LMRoman10-Bold .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 -- cgit v1.2.3