#include <stdio.h>
#include <sirocco.h>


int main(int argc, char const *argv[]) {
	mpfr_set_default_prec (162);


    double testCoefs[] = {0.000000000000000, -0.000000000000000, 0.000000000000000,
-0.000000000000000, 0.000000000000000, -0.000000000000000,
0.000000000000000, -0.000000000000000, -128.000000000000,
-128.000000000000, -96.0000000000000, -96.0000000000000,
0.000000000000000, -0.000000000000000, 0.000000000000000,
-0.000000000000000, 72.0000000000000, 72.0000000000000,
304.000000000000, 304.000000000000, 12.0000000000000,
12.0000000000000, 180.000000000000, 180.000000000000,
0.000000000000000, -0.000000000000000, 0.000000000000000,
-0.000000000000000, 90.0000000000000, 90.0000000000000,
-182.500000000000, -182.500000000000, 133.500000000000,
133.500000000000, -190.500000000000, -190.500000000000,
42.0000000000000, 42.0000000000000, -44.0000000000000,
-44.0000000000000, 0.000000000000000, -0.000000000000000,
0.000000000000000, -0.000000000000000, -40.2500000000000,
-40.2500000000000, 18.2500000000000, 18.2500000000000,
-72.0000000000000, -72.0000000000000, 21.0000000000000,
21.0000000000000, -38.5000000000000, -38.5000000000000,
5.50000000000000, 5.50000000000000, -6.00000000000000,
-6.00000000000000, -0.000000000000000, 0.000000000000000};

   	double y0R = 4.0;
   	double y0I = -4.0;
   	double *rop = homotopyPath (4, testCoefs, y0R, y0I);

		int len = (int) rop[0];
		int i;

		delete [] rop;

		mpfr_t mp_testCoefs[60];
		for (int i=0; i<60; ++i) {
			mpfr_init_set_d (mp_testCoefs[i], testCoefs[i],
					(i%2)? MPFR_RNDU : MPFR_RNDD);
		}
		mpfr_t mp_y0R, mp_y0I;
		mpfr_init_set_d (mp_y0R, y0R, MPFR_RNDN);
		mpfr_init_set_d (mp_y0I, y0I, MPFR_RNDN);

		mpfr_t *mp_rop = homotopyPath_mp (4, mp_testCoefs, mp_y0R, mp_y0I, 5300);

		int size = mpfr_get_si (mp_rop[0], MPFR_RNDN);
  
		for (int i=0; i<3*size+1; ++i)
			mpfr_clear(mp_rop[i]);
		delete [] mp_rop;


		for (int i=0; i<60; ++i) {
			mpfr_clear (mp_testCoefs[i]);
		}

		mpfr_clear (mp_y0R);
		mpfr_clear (mp_y0I);



	return 0;
}