summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pstricks/pstricks.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pstricks.pro18
1 files changed, 16 insertions, 2 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro
index 03148f97d34..ea9e66cc361 100644
--- a/Master/texmf-dist/dvips/pstricks/pstricks.pro
+++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro
@@ -1,7 +1,7 @@
-% $Id: pstricks.pro 698 2017-12-30 19:08:50Z herbert $
+% $Id: pstricks.pro 838 2018-11-14 19:00:45Z herbert $
%
%% PostScript prologue for pstricks.tex.
-%% Version 1.28, 2017/12/30
+%% Version 1.29, 2018/11/14
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
@@ -46,6 +46,20 @@ tx@Dict begin
pop pop 0 }{ sqrt exch atan} ifelse
y 0 lt { 180 add } if
} def
+/Power { % a^b latest ghostscript don't allow -4^-3.1
+ 2 dict begin % hold all local
+ /b ED
+ /a ED
+ a 0 lt % prevent something like (-4)^(-3.1)=> 1/(-4)^3
+ { b 0 lt
+ { a b cvi exp }
+ { a b exp } ifelse
+ }
+ { a 0 eq { 0 }{ a b exp } ifelse
+ } ifelse
+ end
+} def
+%
/NET { neg exch neg exch T } def % change coordinate system to the negative one
/Pyth { dup mul exch dup mul add sqrt } def % Pythagoras, expects 2 parameter
/Pyth2 { % Pythagoras, xA yA xB yB