from math import sin, exp, pi, floor
from math import e as M_E
import time


class RGB:
    hue = 240
    sat = 100
    val = 80
    animation_mode = 'breathing'
    pos = 0
    time = floor(time.monotonic() * 10)
    intervals = (30, 20, 10, 5)
    speed = 120  # Bigger is slower
    enabled = True
    neopixel = None
    rgbw = False
    num_pixels = 0
    disable_auto_write = False
    hue_step = 5
    sat_step = 5
    val_step = 5
    limit_val = 255

    def __init__(self, pixel_pin, rgb_order, num_pixels=0):
        try:
            import neopixel
            self.neopixel = neopixel.NeoPixel(pixel_pin,
                                              num_pixels,
                                              pixel_order=rgb_order,
                                              auto_write=False)
            if len(rgb_order) == 4:
                self.rgbw = True
            self.num_pixels = num_pixels

        except ImportError as e:
            print(e)

    def __repr__(self):
        return 'RGB({})'.format(self._to_dict())

    def _to_dict(self):
        ret = {
            'hue': self.hue,
            'sat': self.sat,
            'val': self.val,
            'animation_mode': self.animation_mode,
            'time': self.time,
            'intervals': self.intervals,
            'speed': self.speed,
            'enabled': self.enabled,
            'neopixel': self.neopixel,
            'disable_auto_write': self.disable_auto_write,
        }

        return ret

    def time_ms(self):
        return floor(time.monotonic() * 10)

    def hsv_to_rgb(self, hue, sat, val):
        '''
        Converts HSV values, and returns a tuple of RGB values
        :param hue:
        :param sat:
        :param val:
        :return: (r, g, b)
        '''
        r = 0
        g = 0
        b = 0
        self.limit_val = 255

        if val > 255:
            val = 255

        if sat == 0:
            r = val
            g = val
            b = val

        else:
            base = ((255 - sat) * val) >> 8
            color = (val - base) * (hue % 60) / 60

            x = floor(hue / 60)
            if x == 0:
                r = val
                g = base + color
                b = base
            elif x == 1:
                r = val - color
                g = val
                b = base
            elif x == 2:
                r = base
                g = val
                b = base + color
            elif x == 3:
                r = base
                g = val - color
                b = val
            elif x == 4:
                r = base + color
                g = base
                b = val
            elif x == 5:
                r = val
                g = base
                b = val - color

        return floor(r), floor(g), floor(b)

    def hsv_to_rgbw(self, hue, sat, val):
        '''
        Converts HSV values, and returns a tuple of RGBW values
        :param hue:
        :param sat:
        :param val:
        :return: (r, g, b, w)
        '''
        rgb = self.hsv_to_rgb(hue, sat, val)
        return rgb[0], rgb[1], rgb[2], min(rgb)

    def set_hsv(self, hue, sat, val, index):
        '''
        Takes HSV values and displays it on a single LED/Neopixel
        :param hue:
        :param sat:
        :param val:
        :param index: Index of LED/Pixel
        '''
        if self.neopixel:
            if self.rgbw:
                self.set_rgb(self.hsv_to_rgbw(hue, sat, val), index)
            else:
                self.set_rgb(self.hsv_to_rgb(hue, sat, val), index)

    def set_hsv_fill(self, hue, sat, val):
        '''
        Takes HSV values and displays it on all LEDs/Neopixels
        :param hue:
        :param sat:
        :param val:
        :param index: Index of LED/Pixel
        '''
        if self.neopixel:
            if self.rgbw:
                self.neopixel.fill(self.hsv_to_rgbw(hue, sat, val))
            else:
                self.neopixel.fill(self.hsv_to_rgb(hue, sat, val))
            self.neopixel.show()

    def set_rgb(self, rgb, index):
        '''
        Takes an RGB or RGBW and displays it on a single LED/Neopixel
        :param rgb: RGB or RGBW
        :param index: Index of LED/Pixel
        '''
        if self.neopixel:
            self.neopixel[index] = rgb
            if not self.disable_auto_write:
                self.neopixel.show()

    def set_rgb_fill(self, rgb):
        '''
        Takes an RGB or RGBW and displays it on all LEDs/Neopixels
        :param rgb: RGB or RGBW
        '''
        if self.neopixel:
            self.neopixel.fill(rgb)
            self.neopixel.show()

    def increase_hue(self, step):
        '''
        Increases hue by step amount rolling at 360 and returning to 0
        :param step:
        '''
        self.hue = (self.hue + step) % 360

    def decrease_hue(self, step):
        '''
        Decreases hue by step amount rolling at 0 and returning to 360
        :param step:
        '''
        if self.hue - step < 0:
            self.hue = (self.hue + 360 - step) % 360
        else:
            self.hue = (self.hue - step) % 360

    def increase_sat(self, step):
        '''
        Increases saturation by step amount stopping at 100
        :param step:
        '''
        if self.sat + step >= 100:
            self.sat = 100
        else:
            self.sat += step

    def decrease_sat(self, step):
        '''
        Decreases saturation by step amount stopping at 0
        :param step:
        '''
        if self.sat + step <= 0:
            self.sat = 0
        else:
            self.sat -= step

    def increase_val(self, step):
        '''
        Increases value by step amount stopping at 100
        :param step:
        '''
        if self.val + step >= 100:
            self.val = 100
        else:
            self.val += step

    def decrease_val(self, step):
        '''
        Decreases value by step amount stopping at 0
        :param step:
        '''
        if self.val + step <= 0:
            self.val = 0
        else:
            self.val -= step

    def off(self):
        '''
        Turns off all LEDs/Neopixels without changing stored values
        '''
        if self.neopixel:
            if not self.disable_auto_write:
                self.set_hsv_fill(0, 0, 0)

    def show(self):
        '''
        Turns on all LEDs/Neopixels without changing stored values
        '''
        if self.neopixel:
            self.neopixel.show()

    def animate(self):
        '''
        Activates a "step" in the animation based on the active mode
        :return: Returns the new state in animation
        '''
        if self.enabled:
            if self.animation_mode == 'breathing':
                return self.effect_breathing()
            elif self.animation_mode == 'rainbow':
                return self.effect_rainbow()
            if self.animation_mode == 'static':
                return self.effect_static()
        else:
            self.off()

        return self

    def animation_step(self):
        interval = self.time_ms() - self.time
        if interval >= max(self.intervals):
            self.time = self.time_ms()
            return max(self.intervals)
        if interval in self.intervals:
            return interval
        else:
            return False

    def effect_static(self):
        self.set_hsv_fill(self.hue, self.sat, self.val)
        return self

    def effect_breathing(self):
        RGBLIGHT_EFFECT_BREATHE_CENTER = 1.5  # 1.0-2.7
        RGBLIGHT_EFFECT_BREATHE_MAX = 100  # 0-255
        # http://sean.voisen.org/blog/2011/10/breathing-led-with-arduino/
        # https://github.com/qmk/qmk_firmware/blob/9f1d781fcb7129a07e671a46461e501e3f1ae59d/quantum/rgblight.c#L787
        self.val = floor((exp(sin((self.pos/255.0)*pi)) - RGBLIGHT_EFFECT_BREATHE_CENTER/M_E)*
                         (RGBLIGHT_EFFECT_BREATHE_MAX/(M_E-1/M_E)))
        self.pos = (self.pos + 1) % 256;
        self.set_hsv_fill(self.hue, self.sat, self.val)

        return self

    def effect_rainbow(self):
        if self.animation_step(self):
            self.increase_hue(self.hue, 1)
            self.set_hsv_fill(self.hue, self.sat, self.val)

        return self

    def effect_rainbow_swirl(self):
        interval = self.animation_step(self)
        if interval:
            for i in range(0, self.num_pixels):
                self.hue = (360 / self.num_pixels * i + self.hue) % 360
                self.set_hsv_fill(self.hue, self.sat, self.val)

        if interval % 2:
            self.increase_hue(self.hue, 1)
        else:
            self.decrease_hue(self.hue, 1)

        return self