pst-math update (1nov07)

git-svn-id: svn://tug.org/texlive/trunk@5333 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 31 insertions, 9 deletions

diff --git a/Master/texmf-dist/dvips/pst-math/pst-math.pro b/Master/texmf-dist/dvips/pst-math/pst-math.pro
index 6b3e790aecb..333877ad284 100644
--- a/Master/texmf-dist/dvips/pst-math/pst-math.pro
+++ b/Master/texmf-dist/dvips/pst-math/pst-math.pro
@@ -5,9 +5,15 @@
 % Author          : Christophe JORSSEN <christophe.jorssen@libre.fr.invalid>
 %                   ('libre' is the french word for 'free' if you want to contact me ;-))
 % Created the     : Sat 20 March 2004
-% Last Mod        : $Date: 2004/05/08 13:40:15 $
-% Version         : 1.1 $
+% Last Mod        : Thu 01 November 2007
+% Version         : 1.3
 %
+/ArgumentOutOfRange {%
+  gsave /Times-Roman findfont 10 scalefont setfont 0 0 moveto
+  ([pst-math] At least one argument was out of range) show grestore} bind def
+
+/DIV { dup 0 eq { pop ArgumentOutOfRange} { div } ifelse } bind def
+
 /PI 3.14159265359 def
 /ENeperian 2.71828182846 def
 
@@ -19,21 +25,37 @@
 /TAN {dup SIN exch COS Div} bind def
 /tan {dup sin exch cos Div} bind def
 /ATAN {neg -1 atan 180 sub DegToRad} bind def
-/ACOS {dup dup mul neg 1 add sqrt exch atan DegToRad} bind def
-/acos {dup dup mul neg 1 add sqrt exch atan} bind def
-/ASIN {neg dup dup mul neg 1 add sqrt neg atan 180 sub DegToRad} bind def
-/asin {neg dup dup mul neg 1 add sqrt neg atan 180 sub} bind def
+
+/sec {cos 1 exch Div} bind def
+/cosec {sin 1 exch Div} bind def
+/cotan {dup cos exch sin Div} bind def
+/SEC {RadToDeg sec} bind def
+/COSEC {RadToDeg cosec} bind def
+/COTAN {RadToDeg cotan} bind def
+
+/acos {dup dup -1 ge exch 1 le and 
+  {dup dup mul neg 1 add sqrt exch atan}
+  {pop 0 ArgumentOutOfRange} ifelse} bind def
+/ACOS {acos DegToRad} bind def
+/asin {dup dup -1 ge exch 1 le and 
+  {neg dup dup mul neg 1 add sqrt neg atan 180 sub} 
+  {pop 0 ArgumentOutOfRange} ifelse} bind def
+/ASIN {asin DegToRad} bind def
 
 /EXP {ENeperian exch exp} bind def
 
 /COSH {dup EXP exch neg EXP add 2 div} bind def
 /SINH {dup EXP exch neg EXP sub 2 div} bind def
 /TANH {dup SINH exch COSH div} bind def
-/ACOSH {dup dup mul 1 sub sqrt add ln} bind def
+/ACOSH {dup 1 ge 
+  {dup dup mul 1 sub sqrt add ln}
+  {pop 0 ArgumentOutOfRange} ifelse} bind def
 /ASINH {dup dup mul 1 add sqrt add ln} bind def
-/ATANH {dup 1 add exch neg 1 add Div ln 2 div} bind def
+/ATANH {dup dup -1 gt exch 1 lt and 
+  {dup 1 add exch neg 1 add Div ln 2 div} 
+  {pop 0 ArgumentOutOfRange} ifelse} bind def
 
-/SINC {dup SIN exch Div} bind def
+/SINC {dup 0 eq {pop 1} {dup SIN exch Div} ifelse} bind def
 
 /GAUSS {dup mul 2 mul dup 4 -2 roll sub dup mul exch div neg EXP exch PI mul sqrt div} bind def