# -*- coding: utf-8 -*-

"""
***************************************************************************
*                                                                         *
*   This program is free software; you can redistribute it and/or modify  *
*   it under the terms of the GNU General Public License as published by  *
*   the Free Software Foundation; either version 2 of the License, or     *
*   (at your option) any later version.                                   *
*                                                                         *
***************************************************************************
"""
__author__ = 'Leandro França'
__date__ = '2021-03-01'
__copyright__ = '(C) 2021, Leandro França'

from numpy import radians, arctan, pi, sin, cos, sqrt, degrees, array, diag, ones, zeros, floor
from qgis.core import QgsEllipsoidUtils
from datetime import datetime, timedelta
import datetime as dt
import numpy as np
import math


# Cálculo dos azimutes entre dois pontos (vetor AB: origem A, extremidade B)
def azimute(A, B):
    dx = B.x() - A.x()
    dy = B.y() - A.y()

    # Pontos coincidentes
    if dx == 0 and dy == 0:
        return None, None

    # Azimute a partir do Norte, no sentido horário
    AzAB = np.arctan2(dx, dy) % (2 * np.pi)
    AzBA = (AzAB + np.pi) % (2 * np.pi)

    return AzAB, AzBA


# Diferença (ângulo) entre azimutes
def DifAz(Az_ini, Az_fim):
    dAz = Az_fim - Az_ini
    if dAz < 0:
        dAz = 2*pi + Az_fim - Az_ini
    return dAz


def dd2dms(dd, n_digits):
    if dd != 0:
        graus = int(floor(abs(dd)))
        resto1 = round(abs(dd) - graus, 10)
        minutos = 60*resto1
        if n_digits >= 0:
            minutos = int(floor(minutos))
            resto2 = round(resto1*60 - minutos, 10)
            segundos = resto2*60
            if round(segundos,n_digits) == 60:
                minutos += 1
                segundos = 0
            if minutos == 60:
                graus += 1
                minutos = 0
        else:
            mindec = -1*(n_digits+1)
            if round(minutos,mindec) == 60:
                graus += 1
                minutos = 0
        if dd < 0:
            texto = '-' + str(graus) + '°'
        else:
            texto = str(graus) + '°'

        if n_digits < -1: # graus e minutos decimais
            texto = texto + ('{:0' + str(3+mindec) + '.' + str(mindec) + 'f}').format(minutos) + "'"
        elif n_digits == -1: # graus e minutos inteiros
            texto = texto + '{:02d}'.format(round(minutos)) + "'"
        else: # graus, minutos e segundos
            texto = texto + '{:02d}'.format(minutos) + "'"

        if n_digits == 0: # segundos inteiros
            texto = texto + '{:02d}'.format(round(segundos)) + '"'
        elif n_digits > 0: # segundos decimais
            texto = texto + ('{:0' + str(3+n_digits) + '.' + str(n_digits) + 'f}').format(segundos) + '"'
        return texto
    else:
        if n_digits > 0:
            return "0°00'" + ('{:0' + str(3+n_digits) + '.' + str(n_digits) + 'f}').format(0) + '"'
        elif n_digits == 0:
            return "0°00'" + '"'
        elif n_digits == -1:
            return "0°00'"
        else:
            mindec = -1*(n_digits+1)
            return "0°" + ('{:0' + str(3+mindec) + '.' + str(mindec) + 'f}').format(0) + "'"


def dms2dd(txt):
    txt = txt.replace(' ','').replace("''", '"').replace('\t','').replace(',','.')
    newtxt =''
    if (txt[-1]).upper() in ('W','O','S'):
        if txt[0] != '-':
            txt = '-' + txt[:-1]
        else:
            txt = txt[:-1]
    elif (txt[-1]).upper() in ('E','L','N'):
        txt = txt[:-1]
    for letter in txt:
        if not letter.isnumeric() and letter != '.' and letter != '-':
            newtxt += '|'
        else:
            newtxt += letter
    if newtxt[-1] == '|':
        lista = newtxt[:-1].split('|')
    else:
        lista = newtxt.split('|')
    if len(lista) == 3: # GMS
        if '-' in lista[0]:
            return -1*(abs(float(lista[0])) + float(lista[1])/60 + float(lista[2])/3600)
        else:
            return float(lista[0]) + float(lista[1])/60 + float(lista[2])/3600
    elif len(lista) == 2:
        if '-' in lista[0]:
            return -1*(abs(float(lista[0])) + float(lista[1])/60)
        else:
            return float(lista[0]) + float(lista[1])/60
    elif len(lista) == 1:
        return(float(lista[0]))
    else:
        return None


def str2HTML(texto):
    if texto:
        dicHTML = {'Á': '&Aacute;',	'á': '&aacute;',	'Â': '&Acirc;',	'â': '&acirc;',	'À': '&Agrave;',	'à': '&agrave;',	'Å': '&Aring;',	'å': '&aring;',	'Ã': '&Atilde;',	'ã': '&atilde;',	'Ä': '&Auml;',	'ä': '&auml;', 'ú': '&uacute;', 'Ú': '&Uacute;', 'Æ': '&AElig;',	'æ': '&aelig;',	'É': '&Eacute;',	'é': '&eacute;',	'Ê': '&Ecirc;',	'ê': '&ecirc;',	'È': '&Egrave;',	'è': '&egrave;',	'Ë': '&Euml;',	'ë': '&Euml;',	'Ð': '&ETH;',	'ð': '&eth;',	'Í': '&Iacute;',	'í': '&iacute;',	'Î': '&Icirc;',	'î': '&icirc;',	'Ì': '&Igrave;',	'ì': '&igrave;',	'Ï': '&Iuml;',	'ï': '&iuml;',	'Ó': '&Oacute;',	'ó': '&oacute;',	'Ô': '&Ocirc;',	'ô': '&ocirc;',	'Ò': '&Ograve;', 'Õ': '&Otilde;', 'õ': '&otilde;',	'ò': '&ograve;',	'Ø': '&Oslash;',	'ø': '&oslash;',	'Ù': '&Ugrave;',	'ù': '&ugrave;',	'Ü': '&Uuml;',	'ü': '&uuml;',	'Ç': '&Ccedil;',	'ç': '&ccedil;',	'Ñ': '&Ntilde;',	'ñ': '&ntilde;',	'Ý': '&Yacute;',	'ý': '&yacute;',	'"': '&quot;', '”': '&quot;',	'<': '&lt;',	'>': '&gt;',	'®': '&reg;',	'©': '&copy;',	'\'': '&apos;', 'ª': '&ordf;', 'º': '&ordm;', '°':'&deg;', '²':'&sup2;', '¿':'&iquest;', '¡':'&iexcl;', '–': '&ndash;'}
        for item in dicHTML:
            if item in texto:
                texto = texto.replace(item, dicHTML[item])
        return texto
    else:
        return ''


def String2NumberList (txt):
    txt = txt.replace(' ', '').replace('\t','').replace('\n','')
    Splited = txt.split(',')
    lista = []
    for item in Splited:
        lista += [float(item)]
    return lista


def String2StringList(txt):
    txt = txt.replace(' ', '').replace('\t','').replace('\n','')
    Splited = txt.split(',')
    return Splited


def String2CoordList (txt):
        txt = txt.replace(' ', '').replace('\t','').replace('\n','')
        Splited = txt.split(';')
        lista = []
        for Coords in Splited:
            Splited2 = Coords.split(',')
            lista_aux = []
            for coord in Splited2:
                lista_aux += [float(coord)]
            lista += [lista_aux]
        return lista


# Conversão de coordenadas geodésicas para geocêntricas
def geod2geoc(lon, lat, h, a, f):
    lon = radians(lon)
    lat = radians(lat)
    e2 = f*(2-f) # primeira excentricidade
    N = a/sqrt(1-(e2*sin(lat)**2))
    X = (N+h)*cos(lat)*cos(lon)
    Y = (N+h)*cos(lat)*sin(lon)
    Z = (N*(1-e2)+h)*sin(lat)
    return (X,Y,Z)


# Conversão de coordenadas geocêntricas para geodésicas
def geoc2geod(X, Y, Z, a, f):
    b = a*(1-f)
    e2 = f*(2-f) # primeira excentricidade
    e2_2 = e2/(1-e2) # segunda excentricidade
    tg_u = (a/b)*Z/sqrt(X**2 + Y**2)
    sen_u = tg_u/sqrt(1+tg_u**2)
    cos_u = 1/sqrt(1+tg_u**2)
    lon = arctan(Y/X)
    lat = arctan( (Z+ e2_2 * b * sen_u**3) / (sqrt(X**2 + Y**2) - e2 * a * cos_u**3))
    N = a/sqrt(1-(e2*sin(lat)**2))
    h = sqrt(X**2 + Y**2)/cos(lat) - N
    lon = lon/pi*180
    lat = lat/pi*180
    return (lon, lat, h)


# Conversão de Coordenadas Geocêntrica para Topocêntricas
def geoc2enu(X, Y, Z, lon0, lat0, Xo, Yo, Zo):
    lon = radians(lon0)
    lat = radians(lat0)

    M = array(
    [
    [  -sin(lon),                     cos(lon),                 0 ],
    [  -sin(lat)*cos(lon),   -sin(lat)*sin(lon),          cos(lat)],
    [   cos(lat)*cos(lon),    cos(lat)*sin(lon),          sin(lat)]
    ]
    )

    T = array(
    [[X - Xo], [Y-Yo], [Z-Zo]]
    )

    Fo = array([[15e4],[25e4],[0]]) # False E and N

    R = M@T + Fo
    return (R[0,0], R[1,0], R[2,0])


# Conversão de Coordenadas Topocêntricas para Geocêntrica
def enu2geoc(E, N, U, lon0, lat0, Xo, Yo, Zo):
    lon = radians(lon0)
    lat = radians(lat0)

    Fo = array([[15e4],[25e4],[0]]) # False E and N

    M = array(
    [
    [  -sin(lon),     -sin(lat)*cos(lon),          cos(lat)*cos(lon)],
    [  cos(lon),      -sin(lat)*sin(lon),          cos(lat)*sin(lon)],
    [   0        ,              cos(lat),                       sin(lat)     ]
    ]
    )

    T = array(
    [[E], [N], [U]]
    )

    R = M@(T-Fo) + [[Xo], [Yo], [Zo]]
    return (R[0,0], R[1,0], R[2,0])


# Transformar distancia em metros para graus
def meters2degrees(dist, lat, SRC):
    ellipsoid_id = SRC.ellipsoidAcronym()
    ellipsoid = QgsEllipsoidUtils.ellipsoidParameters(ellipsoid_id)
    a = ellipsoid.semiMajor
    f_inv = ellipsoid.inverseFlattening
    f=1/f_inv
    e2 = f*(2-f)
    N = a/np.sqrt(1-e2*(np.sin(lat))**2) # Raio de curvatura 1º vertical
    M = a*(1-e2)/(1-e2*(np.sin(lat))**2)**(3/2.) # Raio de curvatura meridiana
    R = np.sqrt(M*N) # Raio médio de Gauss
    theta = dist/R
    theta = np.degrees(theta) # Radianos para graus
    return theta


# Transformar de graus para metros
def degrees2meters(theta, lat, SRC):
    ellipsoid_id = SRC.ellipsoidAcronym()
    ellipsoid = QgsEllipsoidUtils.ellipsoidParameters(ellipsoid_id)
    a = ellipsoid.semiMajor
    f_inv = ellipsoid.inverseFlattening
    f=1/f_inv
    e2 = f*(2-f)
    N = a/np.sqrt(1-e2*(np.sin(lat))**2) # Raio de curvatura 1º vertical
    M = a*(1-e2)/(1-e2*(np.sin(lat))**2)**(3/2.) # Raio de curvatura meridiana
    R = np.sqrt(M*N) # Raio médio de Gauss
    theta = np.radians(theta)
    dist = theta*R
    return dist


def datetime_decimal_str(ano, mes, dia, hora, minuto, segundo):
    s = float(segundo)
    sec = int(s)
    frac = s - sec
    frac_str = f"{round(frac*10**1):01d}" # casas decimais = 1
    return f"{int(ano):04d}-{int(mes):02d}-{int(dia):02d} {int(hora):02d}:{int(minuto):02d}:{sec:02d}.{frac_str}"



def str_decimal_to_datetime(dt_str):
    """
    Converte 'YYYY-MM-DD HH:MM:SS.sss' para datetime,
    tratando corretamente overflow de micros, segundos,
    minutos, horas e dias.
    """
    date_part, time_part = dt_str.strip().split(' ')
    year, month, day = map(int, date_part.split('-'))

    hh, mm, ss = time_part.split(':')
    hh = int(hh)
    mm = int(mm)

    s = float(ss)
    sec = int(s)
    micro = int(round((s - sec) * 1e6))

    # datetime base SEM segundos
    base = datetime(year, month, day, hh, mm, 0)

    # soma tudo via timedelta
    return base + timedelta(seconds=sec, microseconds=micro)


# Hora GPS
def gpsdate(Y, M, DoM, Hr, Mn, Sc):
    '''
    		Inputs:
    		  Year, Month, Day, Hour, Min, Sec

    		Returns: year, month, day of month, day of year, GPS week,
    			 day of GPS week, second of GPS week, Julian day,
    			 decimal year.
    '''
    UT = Hr + Mn/60 + Sc/3600
    if M <= 2:
        y = Y - 1
        m = M + 12
    else:
        y = Y
        m = M
    # calculation of the Julian Date
    JD = int(365.25*y) + int(30.6001*(m+1)) + DoM  + UT/24 + 1720981.5
    # Calculation of the Decimal Year
    DecY = (JD - 2451545.0)/365.25
    # Calculation of the Day of the Year
    DoY = (dt.date(Y, M, DoM) - dt.date(Y, 1, 1)).days  + 1
    # calculation of GPS week
    GPSW = int((JD - 2444244.5)/7)
    # calculation of day of the GPS Week
    DoGPSW = round(((JD - 2444244.5)/7 - GPSW)*7)
    # calculation of second of the GPS Week
    SoGPSW = (((JD - 2444244.5)/7 - GPSW)*7)*(24*60*60)
    return [Y,M,DoM,DoY,GPSW,DoGPSW,SoGPSW,JD,DecY]


# Validar lista de precisões
def validar_precisoes(lista, val = [1,5]):
    # Verifica se a lista tem 1 ou 5 elementos
    if len(lista) not in val:
        return False
    for k,item in enumerate(lista):
        # Tenta converter o item para um inteiro
        try:
            if k == 0: # o primeiro pode ser float
                numero = float(item)
            else: # os demais tem que ser int
                numero = int(item)
        except ValueError:
            return False
        # Verifica se o número é menor que zero
        if k!=1 and numero < 0: # apenas a precisão do azimute pode ser negativa
            return False
    return True


EPS = 1e-10  # Tolerance for floating point comparisons

def azimute_para_rumo(azimute: float):
    """
    Convert azimuth (degrees, 0–360) to bearing (rumo) + quadrant/direction.

    Returns
    -------
    (bearing_deg, quadrant_str)

    Conventions:
    - Bearing is always between 0° and 90°.
    - Direction can be one of: N, S, E, W, NE, SE, SW, NW.
    - Axis directions are mapped as:
        0°   -> 0°,  N
        90°  -> 90°, E
        180° -> 0°,  S
        270° -> 90°, W
    """
    az = float(azimute) % 360.0

    # Cardinal axes treated explicitly
    if math.isclose(az, 0.0, abs_tol=EPS) or math.isclose(az, 360.0, abs_tol=EPS):
        return 0.0, "N"
    if math.isclose(az, 90.0, abs_tol=EPS):
        return 90.0, "E"
    if math.isclose(az, 180.0, abs_tol=EPS):
        return 0.0, "S"
    if math.isclose(az, 270.0, abs_tol=EPS):
        return 90.0, "W"

    # Quadrants
    if 0.0 < az < 90.0:
        # From North towards East
        bearing = az
        quad = "NE"
    elif 90.0 < az < 180.0:
        # From South towards East
        bearing = 180.0 - az
        quad = "SE"
    elif 180.0 < az < 270.0:
        # From South towards West
        bearing = az - 180.0
        quad = "SW"
    else:  # 270.0 < az < 360.0
        # From North towards West
        bearing = 360.0 - az
        quad = "NW"

    return bearing, quad


def rumo_para_azimute(rumo: float, quadrante: str) -> float:
    """
    Convert bearing (rumo) + quadrant/direction to azimuth (0–360°).

    Parameters
    ----------
    rumo : float
        Bearing in degrees. Usually between 0° and 90°.
    quadrante : str
        Quadrant/direction string, e.g.:
        - 'NE', 'SE', 'SW', 'NW'
        - 'NO', 'SO' (Portuguese) will be treated as 'NW', 'SW'
        - 'N', 'S', 'E', 'W', 'O'

    Returns
    -------
    azimuth_deg : float
        Azimuth in degrees, in [0, 360).

    Notes
    -----
    Handles correctly special cases such as:
        90°E, 90°NE, 90°SE,
        90°W, 90°NW, 90°SW,
        0°N, 0°NE, 0°NW,
        0°S, 0°SE, 0°SW.
    """
    r = float(rumo)

    if quadrante is None:
        raise ValueError("Direction/quadrant cannot be None.")

    # Normalize quadrant string
    q = quadrante.upper().replace(" ", "")
    q = q.replace("O", "W")  # 'Oeste' (Portuguese) -> 'W'

    # ---------------- Quadrants NE, SE, SW, NW ----------------
    if q in {"NE", "SE", "SW", "NW"}:
        if not (0.0 <= r <= 90.0):
            raise ValueError(
                "Bearing must be between 0° and 90° for quadrant bearings (NE, SE, SW, NW)."
            )

        if q == "NE":
            az = r
        elif q == "SE":
            az = 180.0 - r
        elif q == "SW":
            az = 180.0 + r
        else:  # "NW"
            az = 360.0 - r

        return az % 360.0

    # ---------------- Cardinal directions N, S ----------------
    if q == "N":
        if math.isclose(r, 0.0, abs_tol=EPS):
            # 0°N
            return 0.0
        elif math.isclose(r, 90.0, abs_tol=EPS):
            # N 90° E or N 90° W is ambiguous without E/W
            raise ValueError(
                "Bearing 'N 90°' is ambiguous. Use 'NE' or 'NW' as the quadrant."
            )
        else:
            raise ValueError(
                "For direction 'N', bearing must be 0° or 90°. "
                "Use 'NE' or 'NW' for general quadrant bearings."
            )

    if q == "S":
        if math.isclose(r, 0.0, abs_tol=EPS):
            # 0°S
            return 180.0
        elif math.isclose(r, 90.0, abs_tol=EPS):
            raise ValueError(
                "Bearing 'S 90°' is ambiguous. Use 'SE' or 'SW' as the quadrant."
            )
        else:
            raise ValueError(
                "For direction 'S', bearing must be 0° or 90°. "
                "Use 'SE' or 'SW' for general quadrant bearings."
            )

    # ---------------- Cardinal directions E, W ----------------
    if q in {"E", "W"}:
        if math.isclose(r, 90.0, abs_tol=EPS):
            # 90°E or 90°W -> axis East or West
            return 90.0 if q == "E" else 270.0
        elif math.isclose(r, 0.0, abs_tol=EPS):
            raise ValueError(
                "Bearing '0° E/W' is usually written as 'N 0° E/W' or 'S 0° E/W'. "
                "Use a quadrant form (NE, SE, SW, NW)."
            )
        else:
            raise ValueError(
                "For pure 'E' or 'W', bearing must be 90°. "
                "Use 'NE'/'SE' or 'NW'/'SW' for general quadrant bearings."
            )

    # ---------------- Invalid direction ----------------
    raise ValueError(
        f"Invalid direction/quadrant '{quadrante}'. "
        "Use N, S, E, W/O, NE, SE, SW, or NW."
    )

