#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <basic-geometry.h>

#ifdef _WIN64
#include <windows.h>
#else
#include <time.h>
#endif // _WINDOWS_

typedef struct {
    BgcVersorFP32 versor1, versor2, result;
} structure_fp32_t;

structure_fp32_t* allocate_structures(const unsigned int amount)
{
    return calloc(amount, sizeof(structure_fp32_t));
}

structure_fp32_t* make_structures(const unsigned int amount)
{
    structure_fp32_t* list = allocate_structures(amount);

    if (list == 0) {
        return 0;
    }

    const float multiplier = 2.0f / RAND_MAX;

    for (unsigned int i = 0; i < amount; i++) {
        bgc_versor_set_values_fp32(
            rand() * multiplier - 1.0f,
            rand() * multiplier - 1.0f,
            rand() * multiplier - 1.0f,
            rand() * multiplier - 1.0f,
            &list[i].versor1
        );

        bgc_versor_set_values_fp32(
            rand() * multiplier - 1.0f,
            rand() * multiplier - 1.0f,
            rand() * multiplier - 1.0f,
            rand() * multiplier - 1.0f,
            &list[i].versor2
        );

        bgc_versor_reset_fp32(&list[i].result);
    }

    return list;
}

void print_versor_fp32(const BgcVersorFP32* versor)
{
    printf("Versor (%f, %f, %f, %f)\n", versor->s0, versor->x1, versor->x2, versor->x3);
}

void print_versor_fp64(const BgcVersorFP64* versor)
{
    printf("Versor (%lf, %lf, %lf, %lf)\n", versor->s0, versor->x1, versor->x2, versor->x3);
}

void print_vector_fp32(const BgcVector3FP32* vector)
{
    printf("(%f, %f, %f) / %f\n", vector->x1,  vector->x2,  vector->x3,  bgc_vector3_get_modulus_fp32(vector));
}

void print_vector_fp64(const BgcVector3FP64* vector)
{
    printf("(%lf, %lf, %lf) / %lf\n", vector->x1,  vector->x2,  vector->x3,  bgc_vector3_get_modulus_fp64(vector));
}

void list_work(const uint_fast32_t amount, structure_fp32_t* list)
{
    for (uint_fast32_t j = 0; j < 1000; j++) {
        for (uint_fast32_t i = 0; i < amount; i++) {
            bgc_versor_combine_fp32(&list[i].versor1, &list[i].versor1, &list[i].result);
        }
    }
}
/*
int main()
{
    const unsigned int amount = 1000000;
    structure_fp32_t* list = make_structures(amount);

#ifdef _WIN64
    ULONGLONG start, end;

    start = GetTickCount64();

    srand((unsigned int)(start & 0xfffffff));

    start = GetTickCount64();
#else
    struct timespec start, end;
    clock_gettime(0, &start);
    srand((unsigned int)(start.tv_nsec & 0xfffffff));

    clock_gettime(CLOCK_REALTIME, &start);
#endif // _WIN64

    list_work(amount, list);

#ifdef _WIN64
    end = GetTickCount64();

    printf("Time: %lld\n", end - start);
#else
    clock_gettime(CLOCK_REALTIME, &end);

    printf("Time: %lf\n", (end.tv_sec - start.tv_sec) * 1000.0 + (end.tv_nsec - start.tv_nsec) * 0.000001);
#endif // _WIN64

    print_versor_fp32(&list[10].versor1);
    print_versor_fp32(&list[10].versor2);
    print_versor_fp32(&list[10].result);

    free(list);

    return 0;
}
*/

/*
int main() {
    BgcComplexFP32 complex, exponent, result;

    bgc_complex_set_values_fp32(0, 1, &complex);

    bgc_complex_set_values_fp32(4, 0, &exponent);

    bgc_complex_get_exponation_fp32(&complex, exponent.real, exponent.imaginary, &result);

    printf("(%f, %f) ^ (%f, %f) = (%f, %f)\n", complex.real, complex.imaginary, exponent.real, exponent.imaginary, result.real, result.imaginary);

    return 0;
}
*/
/*
int main() {
    BgcVersorFP32 start = { 1.0f, 0.0f, 0.0f, 0.0f };
    BgcVersorFP32 end = { 0.0f, 1.0f, 0.0f, 0.0f };
    BgcVersorFP32 result;
    bgc_versor_spherical_interpolation_fp32(&start, &end, 0.5f, &result);
    printf("Result: %0.12f, %0.12f, %0.12f, %0.12f\n", result.s0, result.x1, result.x2, result.x3);
    return 0;
}
*/

int main() {
    //BgcVersorFP32 start = { 1.0f, 0.0f, 0.0f, 0.0f };
    //BgcVersorFP32 end = { 0.0f, 1.0f, 0.0f, 0.0f };
    /*
    BgcVersorFP32 start = { 1.0f, 0.0f, 0.0f, 0.0f };
    BgcVersorFP32 end = { 0.9999f, 0.01414f, 0.0f, 0.0f };
    BgcSlerpFP32 slerp;
    BgcVersorFP32 result;
    bgc_slerp_make_fp32(&start, &end, &slerp);
    bgc_slerp_get_turn_for_phase_fp32(&slerp, 0.5f, &result);
    printf("Result: %0.12f, %0.12f, %0.12f, %0.12f\n", result.s0, result.x1, result.x2, result.x3);
    */

    BgcVersorFP64 start = { 1.0, 0.0, 0.0, 0.0 };
    BgcVersorFP64 end = { -0.707, 0.707, 0.0, 0.0 };
    BgcVersorFP64 result;
    BgcSlerpFP64 slerp;
    bgc_slerp_make_full_fp64(&start, &end, &slerp);
    bgc_slerp_get_turn_for_phase_fp64(&slerp, 0.5f, &result);
    printf("Result: %0.15f, %0.15f, %0.15f, %0.15f\n", result.s0, result.x1, result.x2, result.x3);
    return 0;
}