/*
 * Copyright (C) 2016 The Android Open Source Project
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include <algos/quat.h>
#include <nanohub_math.h>

static float clamp(float x) {
    return x < 0.0f ? 0.0f : x;
}

void initQuat(Quat *q, const struct Mat33 *R) {
    float Hx = R->elem[0][0];
    float My = R->elem[1][1];
    float Az = R->elem[2][2];

    q->x = sqrtf(clamp(Hx - My - Az + 1.0f) * 0.25f);
    q->y = sqrtf(clamp(-Hx + My - Az + 1.0f) * 0.25f);
    q->z = sqrtf(clamp(-Hx - My + Az + 1.0f) * 0.25f);
    q->w = sqrtf(clamp(Hx + My + Az + 1.0f) * 0.25f);
    q->x = copysignf(q->x, R->elem[1][2] - R->elem[2][1]);
    q->y = copysignf(q->y, R->elem[2][0] - R->elem[0][2]);
    q->z = copysignf(q->z, R->elem[0][1] - R->elem[1][0]);
}

void quatToMatrix(struct Mat33 *R, const Quat *q) {
    float q0 = q->w;
    float q1 = q->x;
    float q2 = q->y;
    float q3 = q->z;
    float sq_q1 = 2.0f * q1 * q1;
    float sq_q2 = 2.0f * q2 * q2;
    float sq_q3 = 2.0f * q3 * q3;
    float q1_q2 = 2.0f * q1 * q2;
    float q3_q0 = 2.0f * q3 * q0;
    float q1_q3 = 2.0f * q1 * q3;
    float q2_q0 = 2.0f * q2 * q0;
    float q2_q3 = 2.0f * q2 * q3;
    float q1_q0 = 2.0f * q1 * q0;

    R->elem[0][0] = 1.0f - sq_q2 - sq_q3;
    R->elem[1][0] = q1_q2 - q3_q0;
    R->elem[2][0] = q1_q3 + q2_q0;
    R->elem[0][1] = q1_q2 + q3_q0;
    R->elem[1][1] = 1.0f - sq_q1 - sq_q3;
    R->elem[2][1] = q2_q3 - q1_q0;
    R->elem[0][2] = q1_q3 - q2_q0;
    R->elem[1][2] = q2_q3 + q1_q0;
    R->elem[2][2] = 1.0f - sq_q1 - sq_q2;
}

void quatNormalize(Quat *q) {
    if (q->w < 0.0f) {
        q->x = -q->x;
        q->y = -q->y;
        q->z = -q->z;
        q->w = -q->w;
    }

    float invNorm =
        1.0f / sqrtf(q->x * q->x + q->y * q->y + q->z * q->z + q->w * q->w);

    q->x *= invNorm;
    q->y *= invNorm;
    q->z *= invNorm;
    q->w *= invNorm;
}