diff options
author | Karl Berry <karl@freefriends.org> | 2013-07-11 23:28:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-07-11 23:28:41 +0000 |
commit | 23d768f5857651f306060a6d2e70ce95fdae4f6b (patch) | |
tree | eaffbd3c3438911153c3911c45639abee4ca6f51 /Master/texmf-dist/dvips/pstricks/pstricks.pro | |
parent | b625e30b874afe21d62a6a3704e04923abfc6f17 (diff) |
pstricks (10jul13)
git-svn-id: svn://tug.org/texlive/trunk@31172 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index e86f6a85333..c0edb6bf1b2 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,7 +1,7 @@ -% $Id: pstricks.pro 783 2013-05-22 05:38:43Z herbert $ +% $Id: pstricks.pro 801 2013-07-09 18:10:41Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.16, 2013/05/22 +%% Version 1.17, 2013/07/08 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -37,6 +37,14 @@ tx@Dict begin /Tan { dup sin exch cos Div } def % sin(x)/cos(x) x in degrees /Acos {dup dup mul neg 1 add dup 0 lt { % arc cos, returns 0 when negative root pop pop 0 }{ sqrt exch atan} ifelse } def +/Acos2 { 2 dict begin + /x ED /y ED + y abs 1.0e-20 lt { 1.0e30 } if + x y div + dup dup mul neg 1 add dup 0 lt { % arc cos needs two values x,y + pop pop 0 }{ sqrt exch atan} ifelse + y 0 lt { 180 add } if +} 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 |