#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "SynthBasics:oscSampleBasedAux from YampaSynth-0.2";

double f_if(float x, float y, float z) {
        float r25495 = x;
        float r25496 = y;
        float r25497 = z;
        float r25498 = r25497 - r25495;
        float r25499 = r25496 * r25498;
        float r25500 = r25495 + r25499;
        return r25500;
}

double f_id(double x, double y, double z) {
        double r25501 = x;
        double r25502 = y;
        double r25503 = z;
        double r25504 = r25503 - r25501;
        double r25505 = r25502 * r25504;
        double r25506 = r25501 + r25505;
        return r25506;
}


double f_of(float x, float y, float z) {
        float r25507 = x;
        float r25508 = y;
        float r25509 = z;
        float r25510 = r25509 - r25507;
        float r25511 = r25508 * r25510;
        float r25512 = r25507 + r25511;
        return r25512;
}

double f_od(double x, double y, double z) {
        double r25513 = x;
        double r25514 = y;
        double r25515 = z;
        double r25516 = r25515 - r25513;
        double r25517 = r25514 * r25516;
        double r25518 = r25513 + r25517;
        return r25518;
}

void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) {
        mpfr_fmod(r, n, d, rmd);
        if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd);
}


static mpfr_t r25519, r25520, r25521, r25522, r25523, r25524;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r25519);
        mpfr_init(r25520);
        mpfr_init(r25521);
        mpfr_init(r25522);
        mpfr_init(r25523);
        mpfr_init(r25524);
}

double f_im(double x, double y, double z) {
        mpfr_set_d(r25519, x, MPFR_RNDN);
        mpfr_set_d(r25520, y, MPFR_RNDN);
        mpfr_set_d(r25521, z, MPFR_RNDN);
        mpfr_sub(r25522, r25521, r25519, MPFR_RNDN);
        mpfr_mul(r25523, r25520, r25522, MPFR_RNDN);
        mpfr_add(r25524, r25519, r25523, MPFR_RNDN);
        return mpfr_get_d(r25524, MPFR_RNDN);
}

static mpfr_t r25525, r25526, r25527, r25528, r25529, r25530;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r25525);
        mpfr_init(r25526);
        mpfr_init(r25527);
        mpfr_init(r25528);
        mpfr_init(r25529);
        mpfr_init(r25530);
}

double f_fm(double x, double y, double z) {
        mpfr_set_d(r25525, x, MPFR_RNDN);
        mpfr_set_d(r25526, y, MPFR_RNDN);
        mpfr_set_d(r25527, z, MPFR_RNDN);
        mpfr_sub(r25528, r25527, r25525, MPFR_RNDN);
        mpfr_mul(r25529, r25526, r25528, MPFR_RNDN);
        mpfr_add(r25530, r25525, r25529, MPFR_RNDN);
        return mpfr_get_d(r25530, MPFR_RNDN);
}

static mpfr_t r25531, r25532, r25533, r25534, r25535, r25536;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r25531);
        mpfr_init(r25532);
        mpfr_init(r25533);
        mpfr_init(r25534);
        mpfr_init(r25535);
        mpfr_init(r25536);
}

double f_dm(double x, double y, double z) {
        mpfr_set_d(r25531, x, MPFR_RNDN);
        mpfr_set_d(r25532, y, MPFR_RNDN);
        mpfr_set_d(r25533, z, MPFR_RNDN);
        mpfr_sub(r25534, r25533, r25531, MPFR_RNDN);
        mpfr_mul(r25535, r25532, r25534, MPFR_RNDN);
        mpfr_add(r25536, r25531, r25535, MPFR_RNDN);
        return mpfr_get_d(r25536, MPFR_RNDN);
}