diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 18 |
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 |