#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 (s0 = %0.12f, x1 = %0.12f, x2 = %0.12f, x3 = %0.12f)\n", versor->s0, versor->x1, versor->x2, versor->x3);
}

void print_versor_fp64(const BgcVersorFP64* versor)
{
    printf("Versor (s0 = %0.20f, x1 = %0.20f, x2 = %0.20f, x3 = %0.20f)\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;
}
*/

void test_basis_difference_fp32()
{

    BgcVector3FP32 initial_primary, initial_auxiliary;
    BgcVector3FP32 final_primary, final_auxiliary;
    BgcVersorFP32 turn;

    // No turn
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nNo turn:\n");
    print_versor_fp32(&turn);

    // Turn around (1, 1, 0) axis on 180 degrees
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nTurn around (1, 1, 0) axis on 180 degrees:\n");
    print_versor_fp32(&turn);

    // 180 degree turn
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(-1.0f, 0.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\n180 degree turn around (0, 1, 0):\n");
    print_versor_fp32(&turn);

    // 90 degree turn around x3 axis
    bgc_vector3_set_values_fp32(2.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 3.1f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(0.0f, 10.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(-1.0f, 0.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\n90 degree turn around (0, 0, 1):\n");
    print_versor_fp32(&turn);

    // Unorthogonal pairs turn at 90 degrees around x3 axis
    bgc_vector3_set_values_fp32(2.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(-2.0f, 3.1f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(0.0f, 10.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(-1.0f, 5.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nUnorthogonal pairs turn at 90 degrees around (0, 0, 1):\n");
    print_versor_fp32(&turn);

    // Zero vectors
    bgc_vector3_set_values_fp32(0.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_auxiliary);

    int code;

    code = bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    if (code >= 0) {
        printf("\nZero vectors: this cannot be!\n");
        print_versor_fp32(&turn);
    }
    else {
        printf("\nZero vector validation works fine\n");
    }

    // Parallel vectors
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(2.0f, 0.0f, 0.0f, &initial_auxiliary);
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_auxiliary);

    code = bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    if (code >= 0) {
        printf("\nParallel vectors: this cannot be!\n");
        print_versor_fp32(&turn);
    }
    else {
        printf("\nParallelism validation works fine\n");
    }

    // Small angle turn (about 1 degree):
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(0.999848f, 0.017452f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(-0.017452f, 0.999848f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nSmall angle turn (about 1 degree):\n");
    print_versor_fp32(&turn);

    // About 179 degrees turn
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(-0.999848f, -0.017452f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(0.017452f, -0.999848f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nAbout 179 degrees turn:\n");
    print_versor_fp32(&turn);

    // 120 degrees around (-1, -1, 1)
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &initial_auxiliary);

    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(0.0f, 0.0f, -1.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\n120 degees turn:\n");
    print_versor_fp32(&turn);


    // About 1 degree turn difference between initial_primary and initial_auxiliary directions
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(0.999848f, 0.017452f, 0.0f, &initial_auxiliary);
    bgc_vector3_set_values_fp32(0.0f, 1.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(-1.0f, 0.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nAbout 1 degree turn difference between initial_primary and initial_auxiliary directions:\n");
    print_versor_fp32(&turn);

    // About 0.01 degree turn difference between initial_primary and initial_auxiliary directions
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &initial_primary);
    bgc_vector3_set_values_fp32(1.0f, 0.000001f, 0.0f, &initial_auxiliary);
    bgc_vector3_set_values_fp32(0.0f, -1.0f, 0.0f, &final_primary);
    bgc_vector3_set_values_fp32(1.0f, 0.0f, 0.0f, &final_auxiliary);

    bgc_versor_make_basis_difference_fp32(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nAbout 0.01 degree turn difference between initial_primary and initial_auxiliary directions:\n");
    print_versor_fp32(&turn);
}

void test_basis_difference_fp64()
{

    BgcVector3FP64 initial_primary, initial_auxiliary;
    BgcVector3FP64 final_primary, final_auxiliary;
    BgcVersorFP64 turn;

    // No turn
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nNo turn:\n");
    print_versor_fp64(&turn);

    // Turn around (1, 1, 0) axis on 180 degrees
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nTurn around (1, 1, 0) axis on 180 degrees:\n");
    print_versor_fp64(&turn);

    // 180 degree turn
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);

    bgc_vector3_set_values_fp64(-1.0, 0.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\n180 degree turn around (0, 1, 0):\n");
    print_versor_fp64(&turn);

    // 90 degree turn around x3 axis
    bgc_vector3_set_values_fp64(2.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 3.1, 0.0, &initial_auxiliary);

    bgc_vector3_set_values_fp64(0.0, 10.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(-1.0, 0.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\n90 degree turn around (0, 0, 1):\n");
    print_versor_fp64(&turn);

    // Unorthogonal pairs turn at 90 degrees around x3 axis
    bgc_vector3_set_values_fp64(2.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(-2.0, 3.1, 0.0, &initial_auxiliary);

    bgc_vector3_set_values_fp64(0.0, 10.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(-1.0, 5.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nUnorthogonal pairs turn at 90 degrees around (0, 0, 1):\n");
    print_versor_fp64(&turn);

    // Zero vectors
    bgc_vector3_set_values_fp64(0.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_auxiliary);

    int code;

    code = bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    if (code >= 0) {
        printf("\nZero vectors: this cannot be!\n");
        print_versor_fp64(&turn);
    }
    else {
        printf("\nZero vector validation works fine\n");
    }

    // Parallel vectors
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(2.0, 0.0, 0.0, &initial_auxiliary);
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_auxiliary);

    code = bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    if (code >= 0) {
        printf("\nParallel vectors: this cannot be!\n");
        print_versor_fp64(&turn);
    }
    else {
        printf("\nParallelism validation works fine\n");
    }

    // Small angle turn (about 1 degree):
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);

    bgc_vector3_set_values_fp64(0.999848, 0.017452, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(-0.017452, 0.999848, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nSmall angle turn (about 1 degree):\n");
    print_versor_fp64(&turn);

    // About 179 degrees turn
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);

    bgc_vector3_set_values_fp64(-0.999848, -0.017452, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(0.017452, -0.999848, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nAbout 179 degrees turn:\n");
    print_versor_fp64(&turn);

    // 120 degrees around (-1, -1, 1)
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &initial_auxiliary);

    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(0.0, 0.0, -1.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\n120 degees turn:\n");
    print_versor_fp64(&turn);


    // About 1 degree turn difference between initial_primary and initial_auxiliary directions
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(0.999848, 0.017452, 0.0, &initial_auxiliary);
    bgc_vector3_set_values_fp64(0.0, 1.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(-1.0, 0.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nAbout 1 degree turn difference between initial_primary and initial_auxiliary directions:\n");
    print_versor_fp64(&turn);

    // About 0.001 degree turn difference between initial_primary and initial_auxiliary directions
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &initial_primary);
    bgc_vector3_set_values_fp64(1.0, 0.000001, 0.0, &initial_auxiliary);
    bgc_vector3_set_values_fp64(0.0, -1.0, 0.0, &final_primary);
    bgc_vector3_set_values_fp64(1.0, 0.0, 0.0, &final_auxiliary);

    bgc_versor_make_basis_difference_fp64(&initial_primary, &initial_auxiliary, &final_primary, &final_auxiliary, &turn);

    printf("\nAbout 0.01 degree turn difference between initial_primary and initial_auxiliary directions:\n");
    print_versor_fp64(&turn);
}

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_full_fp32(&start, &end, &slerp);
    bgc_slerp_get_turn_for_phase_fp32(&slerp, 0.5f, &result);

    print_versor_fp32(&result);

    //test_basis_difference_fp64();

    return 0;
}