diff options
Diffstat (limited to 'metapost/context/base/mpxl/mp-math.mpxl')
-rw-r--r-- | metapost/context/base/mpxl/mp-math.mpxl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/metapost/context/base/mpxl/mp-math.mpxl b/metapost/context/base/mpxl/mp-math.mpxl index 404d42160..3d9ad81d3 100644 --- a/metapost/context/base/mpxl/mp-math.mpxl +++ b/metapost/context/base/mpxl/mp-math.mpxl @@ -172,6 +172,16 @@ else : % decimal fi ; +%D Variant on post to the mailing list by MC: + +vardef atantwo(expr dy, dx) = + if dx == 0 : + if dy < 0 : - fi pi / 2 + else : + atan(dy/dx) if dx > 0 : if dy < 0 : - else : + fi pi fi + fi +enddef ; + permanent m_acos, m_acosh, m_asin, m_asinh, m_atan, m_atantwo, m_atanh, m_cbrt, m_ceil, m_copysign, m_cos, m_cosh, m_deg, m_erf, m_erfc, m_exp, m_exptwo, m_expm, m_fabs, |