From a0acaff2fb7bb9e943af2da3b8307d963357fb9d Mon Sep 17 00:00:00 2001 From: Benjamin Vedder Date: Sun, 6 Feb 2022 00:23:23 +0100 Subject: [PATCH] Added atan2 lisp extension --- lispBM/lispif_vesc_extensions.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lispBM/lispif_vesc_extensions.c b/lispBM/lispif_vesc_extensions.c index 3202cb68..f0fe5096 100644 --- a/lispBM/lispif_vesc_extensions.c +++ b/lispBM/lispif_vesc_extensions.c @@ -530,6 +530,11 @@ static lbm_value ext_atan(lbm_value *args, lbm_uint argn) { return lbm_enc_F(atanf(lbm_dec_as_f(args[0]))); } +static lbm_value ext_atan2(lbm_value *args, lbm_uint argn) { + CHECK_ARGN_NUMBER(2) + return lbm_enc_F(atan2f(lbm_dec_as_f(args[0]), lbm_dec_as_f(args[1]))); +} + static lbm_value ext_pow(lbm_value *args, lbm_uint argn) { CHECK_ARGN_NUMBER(2) return lbm_enc_F(powf(lbm_dec_as_f(args[0]), lbm_dec_as_f(args[1]))); @@ -747,6 +752,7 @@ void lispif_load_vesc_extensions(void) { lbm_add_extension("sin", ext_sin); lbm_add_extension("cos", ext_cos); lbm_add_extension("atan", ext_atan); + lbm_add_extension("atan2", ext_atan2); lbm_add_extension("pow", ext_pow); // Bit operations