--- Basic/Math/math.pd Sun Mar 19 14:13:02 2000 +++ Basic/Math/math.pd Fri Mar 31 16:24:26 2000 @@ -35,7 +35,7 @@ for (@funcs) { \$doco{\$_} = \$doc } } -doco (qw/acos asin atan tan/, +doco (qw/acos asin atan tan atan2/, 'The usual trigonometric function.'); doco (qw/cosh sinh tanh acosh asinh atanh/, @@ -114,8 +114,9 @@ } # Standard `-lm' my (@ufuncs1) = qw(acos asin atan cosh sinh tan tanh); # F,D only -my (@ufuncs1g) = qw(ceil floor rint); # Any type -my (@bifuncs1) = qw(pow); # Any type +my (@ufuncs1g) = qw(ceil floor rint); # Any type +my (@bifuncs1) = qw(atan2); # F,D only +my (@bifuncs1g) = qw(pow); # Any type # Extended `-lm' my (@ufuncs2) = qw(acosh asinh atanh erf erfc); # F,D only @@ -143,6 +144,16 @@ } foreach \$func (@bifuncs1) { +pp_def(\$func, + GenericTypes => [F,D], + Pars => 'a(); b(); [o]c();', + Doc => \$doco{\$func}, + Code => ' + \$c() = '.\$func.'(\$a(),\$b()); +'); +} + +foreach \$func (@bifuncs1g) { pp_def(\$func, Pars => 'a(); b(); [o]c();', Doc => \$doco{\$func},