From 80997f0765e6e81eddcb63c27e7533f641289d62 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 14 Nov 2018 21:58:59 +0000
Subject: pstricks (14nov18)

git-svn-id: svn://tug.org/texlive/trunk@49157 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/dvips/pstricks/pstricks.pro | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'Master/texmf-dist/dvips')

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
-- 
cgit v1.2.3