import math
from materialyoucolor.utils.math_utils import lerp
from materialyoucolor.utils.color_utils import white_point_d65, y_from_lstar


class ViewingConditions:
    def __init__(self, n, aw, nbb, ncb, c, nc, rgb_d, fl, f_l_root, z):
        self.n = n
        self.aw = aw
        self.nbb = nbb
        self.ncb = ncb
        self.c = c
        self.nc = nc
        self.rgb_d = rgb_d
        self.fl = fl
        self.f_l_root = f_l_root
        self.z = z

    @staticmethod
    def make(
        white_point=white_point_d65(),
        adapting_luminance=(200.0 / math.pi) * y_from_lstar(50.0) / 100.0,
        background_lstar=50.0,
        surround=2.0,
        discounting_illuminant=False,
    ):
        xyz = white_point
        r_w = xyz[0] * 0.401288 + xyz[1] * 0.650173 + xyz[2] * -0.051461
        g_w = xyz[0] * -0.250268 + xyz[1] * 1.204414 + xyz[2] * 0.045854
        b_w = xyz[0] * -0.002079 + xyz[1] * 0.048952 + xyz[2] * 0.953127
        f = 0.8 + surround / 10.0
        c = (
            lerp(0.59, 0.69, (f - 0.9) * 10.0)
            if f >= 0.9
            else lerp(0.525, 0.59, (f - 0.8) * 10.0)
        )
        d = (
            1.0
            if discounting_illuminant
            else f * (1.0 - (1.0 / 3.6) * math.exp((-adapting_luminance - 42.0) / 92.0))
        )
        d = 1.0 if d > 1.0 else 0.0 if d < 0.0 else d
        nc = f
        rgb_d = [
            d * (100.0 / r_w) + 1.0 - d,
            d * (100.0 / g_w) + 1.0 - d,
            d * (100.0 / b_w) + 1.0 - d,
        ]
        k = 1.0 / (5.0 * adapting_luminance + 1.0)
        k4 = k**4
        k4_f = 1.0 - k4
        fl = k4 * adapting_luminance + 0.1 * k4_f * k4_f * (
            (5.0 * adapting_luminance) ** (1 / 3)
        )
        n = y_from_lstar(background_lstar) / white_point[1]
        z = 1.48 + math.sqrt(n)
        nbb = 0.725 / pow(n, 0.2)
        ncb = nbb
        rgb_a_factors = [
            pow((fl * rgb_d[0] * r_w) / 100.0, 0.42),
            pow((fl * rgb_d[1] * g_w) / 100.0, 0.42),
            pow((fl * rgb_d[2] * b_w) / 100.0, 0.42),
        ]
        rgb_a = [
            (400.0 * rgb_a_factors[0]) / (rgb_a_factors[0] + 27.13),
            (400.0 * rgb_a_factors[1]) / (rgb_a_factors[1] + 27.13),
            (400.0 * rgb_a_factors[2]) / (rgb_a_factors[2] + 27.13),
        ]
        aw = (2.0 * rgb_a[0] + rgb_a[1] + 0.05 * rgb_a[2]) * nbb
        return ViewingConditions(n, aw, nbb, ncb, c, nc, rgb_d, fl, pow(fl, 0.25), z)

    DEFAULT = make