#include #include #include #include #include char *name = "Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1"; double f_if(float x, float y, float z, float t) { float r24138 = x; float r24139 = y; float r24140 = z; float r24141 = r24139 / r24140; float r24142 = t; float r24143 = r24141 * r24142; float r24144 = r24143 / r24142; float r24145 = r24138 * r24144; return r24145; } double f_id(double x, double y, double z, double t) { double r24146 = x; double r24147 = y; double r24148 = z; double r24149 = r24147 / r24148; double r24150 = t; double r24151 = r24149 * r24150; double r24152 = r24151 / r24150; double r24153 = r24146 * r24152; return r24153; } double f_of(float x, float y, float z, float __attribute__((unused)) t) { float r24154 = y; float r24155 = x; float r24156 = r24154 * r24155; float r24157 = -inf.0; bool r24158 = r24156 <= r24157; float r24159 = 1; float r24160 = z; float r24161 = r24160 / r24154; float r24162 = r24161 / r24155; float r24163 = r24159 / r24162; float r24164 = -4.8315632142517525e-203; bool r24165 = r24156 <= r24164; float r24166 = r24156 / r24160; float r24167 = 1.53082369955485e-305; bool r24168 = r24156 <= r24167; float r24169 = r24155 / r24160; float r24170 = r24159 / r24154; float r24171 = r24169 / r24170; float r24172 = 1.973061321617615e+200; bool r24173 = r24156 <= r24172; float r24174 = r24173 ? r24166 : r24163; float r24175 = r24168 ? r24171 : r24174; float r24176 = r24165 ? r24166 : r24175; float r24177 = r24158 ? r24163 : r24176; return r24177; } double f_od(double x, double y, double z, double __attribute__((unused)) t) { double r24178 = y; double r24179 = x; double r24180 = r24178 * r24179; double r24181 = -inf.0; bool r24182 = r24180 <= r24181; double r24183 = 1; double r24184 = z; double r24185 = r24184 / r24178; double r24186 = r24185 / r24179; double r24187 = r24183 / r24186; double r24188 = -4.8315632142517525e-203; bool r24189 = r24180 <= r24188; double r24190 = r24180 / r24184; double r24191 = 1.53082369955485e-305; bool r24192 = r24180 <= r24191; double r24193 = r24179 / r24184; double r24194 = r24183 / r24178; double r24195 = r24193 / r24194; double r24196 = 1.973061321617615e+200; bool r24197 = r24180 <= r24196; double r24198 = r24197 ? r24190 : r24187; double r24199 = r24192 ? r24195 : r24198; double r24200 = r24189 ? r24190 : r24199; double r24201 = r24182 ? r24187 : r24200; return r24201; } 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 r24202, r24203, r24204, r24205, r24206, r24207, r24208, r24209; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init(r24202); mpfr_init(r24203); mpfr_init(r24204); mpfr_init(r24205); mpfr_init(r24206); mpfr_init(r24207); mpfr_init(r24208); mpfr_init(r24209); } double f_im(double x, double y, double z, double t) { mpfr_set_d(r24202, x, MPFR_RNDN); mpfr_set_d(r24203, y, MPFR_RNDN); mpfr_set_d(r24204, z, MPFR_RNDN); mpfr_div(r24205, r24203, r24204, MPFR_RNDN); mpfr_set_d(r24206, t, MPFR_RNDN); mpfr_mul(r24207, r24205, r24206, MPFR_RNDN); mpfr_div(r24208, r24207, r24206, MPFR_RNDN); mpfr_mul(r24209, r24202, r24208, MPFR_RNDN); return mpfr_get_d(r24209, MPFR_RNDN); } static mpfr_t r24210, r24211, r24212, r24213, r24214, r24215, r24216, r24217, r24218, r24219, r24220, r24221, r24222, r24223, r24224, r24225, r24226, r24227, r24228, r24229, r24230, r24231, r24232, r24233; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r24210); mpfr_init(r24211); mpfr_init(r24212); mpfr_init_set_str(r24213, "-inf.0", 10, MPFR_RNDN); mpfr_init(r24214); mpfr_init_set_str(r24215, "1", 10, MPFR_RNDN); mpfr_init(r24216); mpfr_init(r24217); mpfr_init(r24218); mpfr_init(r24219); mpfr_init_set_str(r24220, "-4.8315632142517525e-203", 10, MPFR_RNDN); mpfr_init(r24221); mpfr_init(r24222); mpfr_init_set_str(r24223, "1.53082369955485e-305", 10, MPFR_RNDN); mpfr_init(r24224); mpfr_init(r24225); mpfr_init(r24226); mpfr_init(r24227); mpfr_init_set_str(r24228, "1.973061321617615e+200", 10, MPFR_RNDN); mpfr_init(r24229); mpfr_init(r24230); mpfr_init(r24231); mpfr_init(r24232); mpfr_init(r24233); } double f_fm(double x, double y, double z, double __attribute__((unused)) t) { mpfr_set_d(r24210, y, MPFR_RNDN); mpfr_set_d(r24211, x, MPFR_RNDN); mpfr_mul(r24212, r24210, r24211, MPFR_RNDN); ; mpfr_set_si(r24214, mpfr_cmp(r24212, r24213) <= 0, MPFR_RNDN); ; mpfr_set_d(r24216, z, MPFR_RNDN); mpfr_div(r24217, r24216, r24210, MPFR_RNDN); mpfr_div(r24218, r24217, r24211, MPFR_RNDN); mpfr_div(r24219, r24215, r24218, MPFR_RNDN); ; mpfr_set_si(r24221, mpfr_cmp(r24212, r24220) <= 0, MPFR_RNDN); mpfr_div(r24222, r24212, r24216, MPFR_RNDN); ; mpfr_set_si(r24224, mpfr_cmp(r24212, r24223) <= 0, MPFR_RNDN); mpfr_div(r24225, r24211, r24216, MPFR_RNDN); mpfr_div(r24226, r24215, r24210, MPFR_RNDN); mpfr_div(r24227, r24225, r24226, MPFR_RNDN); ; mpfr_set_si(r24229, mpfr_cmp(r24212, r24228) <= 0, MPFR_RNDN); if (mpfr_get_si(r24229, MPFR_RNDN)) { mpfr_set(r24230, r24222, MPFR_RNDN); } else { mpfr_set(r24230, r24219, MPFR_RNDN); }; if (mpfr_get_si(r24224, MPFR_RNDN)) { mpfr_set(r24231, r24227, MPFR_RNDN); } else { mpfr_set(r24231, r24230, MPFR_RNDN); }; if (mpfr_get_si(r24221, MPFR_RNDN)) { mpfr_set(r24232, r24222, MPFR_RNDN); } else { mpfr_set(r24232, r24231, MPFR_RNDN); }; if (mpfr_get_si(r24214, MPFR_RNDN)) { mpfr_set(r24233, r24219, MPFR_RNDN); } else { mpfr_set(r24233, r24232, MPFR_RNDN); }; return mpfr_get_d(r24233, MPFR_RNDN); } static mpfr_t r24234, r24235, r24236, r24237, r24238, r24239, r24240, r24241, r24242, r24243, r24244, r24245, r24246, r24247, r24248, r24249, r24250, r24251, r24252, r24253, r24254, r24255, r24256, r24257; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r24234); mpfr_init(r24235); mpfr_init(r24236); mpfr_init_set_str(r24237, "-inf.0", 10, MPFR_RNDN); mpfr_init(r24238); mpfr_init_set_str(r24239, "1", 10, MPFR_RNDN); mpfr_init(r24240); mpfr_init(r24241); mpfr_init(r24242); mpfr_init(r24243); mpfr_init_set_str(r24244, "-4.8315632142517525e-203", 10, MPFR_RNDN); mpfr_init(r24245); mpfr_init(r24246); mpfr_init_set_str(r24247, "1.53082369955485e-305", 10, MPFR_RNDN); mpfr_init(r24248); mpfr_init(r24249); mpfr_init(r24250); mpfr_init(r24251); mpfr_init_set_str(r24252, "1.973061321617615e+200", 10, MPFR_RNDN); mpfr_init(r24253); mpfr_init(r24254); mpfr_init(r24255); mpfr_init(r24256); mpfr_init(r24257); } double f_dm(double x, double y, double z, double __attribute__((unused)) t) { mpfr_set_d(r24234, y, MPFR_RNDN); mpfr_set_d(r24235, x, MPFR_RNDN); mpfr_mul(r24236, r24234, r24235, MPFR_RNDN); ; mpfr_set_si(r24238, mpfr_cmp(r24236, r24237) <= 0, MPFR_RNDN); ; mpfr_set_d(r24240, z, MPFR_RNDN); mpfr_div(r24241, r24240, r24234, MPFR_RNDN); mpfr_div(r24242, r24241, r24235, MPFR_RNDN); mpfr_div(r24243, r24239, r24242, MPFR_RNDN); ; mpfr_set_si(r24245, mpfr_cmp(r24236, r24244) <= 0, MPFR_RNDN); mpfr_div(r24246, r24236, r24240, MPFR_RNDN); ; mpfr_set_si(r24248, mpfr_cmp(r24236, r24247) <= 0, MPFR_RNDN); mpfr_div(r24249, r24235, r24240, MPFR_RNDN); mpfr_div(r24250, r24239, r24234, MPFR_RNDN); mpfr_div(r24251, r24249, r24250, MPFR_RNDN); ; mpfr_set_si(r24253, mpfr_cmp(r24236, r24252) <= 0, MPFR_RNDN); if (mpfr_get_si(r24253, MPFR_RNDN)) { mpfr_set(r24254, r24246, MPFR_RNDN); } else { mpfr_set(r24254, r24243, MPFR_RNDN); }; if (mpfr_get_si(r24248, MPFR_RNDN)) { mpfr_set(r24255, r24251, MPFR_RNDN); } else { mpfr_set(r24255, r24254, MPFR_RNDN); }; if (mpfr_get_si(r24245, MPFR_RNDN)) { mpfr_set(r24256, r24246, MPFR_RNDN); } else { mpfr_set(r24256, r24255, MPFR_RNDN); }; if (mpfr_get_si(r24238, MPFR_RNDN)) { mpfr_set(r24257, r24243, MPFR_RNDN); } else { mpfr_set(r24257, r24256, MPFR_RNDN); }; return mpfr_get_d(r24257, MPFR_RNDN); }