/*
 * Copyright (C) 2024 Bernd Herzog
 *
 * This file is part of PortaPack.
 *
 * 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, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; see the file COPYING.  If not, write to
 * the Free Software Foundation, Inc., 51 Franklin Street,
 * Boston, MA 02110-1301, USA.
 */

#pragma once

#include "standalone_app.hpp"

#include "ui/ui_widget.hpp"
#include "ui/theme.hpp"
#include "ui/string_format.hpp"
#include <string.h>
#include "ui/ui_font_fixed_5x8.hpp"
#include "ui/ui_painter.hpp"
#include <string>
#include <random>
#include <cstdlib>  // for std::rand() and std::srand()
#include <ctime>    // for std::time()

void initialize(const standalone_application_api_t& api);
void on_event(const uint32_t& events);
void shutdown();
void OnFocus();
bool OnKeyEvent(uint8_t);
bool OnEncoder(int32_t);
void OnTouchEvent(int, int, uint32_t);
bool OnKeyboad(uint8_t);
void PaintViewMirror();

extern const standalone_application_api_t* _api;
extern uint16_t screen_height;
extern uint16_t screen_width;

class DigitalRain {
   private:
    ui::Painter painter{};
    int WIDTH = 0;   // 240;
    int HEIGHT = 0;  // 325;
    int MARGIN_TOP = 20;
    int CHAR_WIDTH = 5;
    int CHAR_HEIGHT = 8;
    int COLS = 0;  // WIDTH / CHAR_WIDTH;
    int ROWS = 0;  //(HEIGHT - MARGIN_TOP) / CHAR_HEIGHT;
    static const int MAX_DROPS = 36;

    const ui::Font& font = ui::font::fixed_5x8();

    struct Drop {
        uint8_t x;
        int16_t y;
        uint8_t length;
        uint8_t speed;
        uint8_t morph_counter[16];
        char chars[16];
        int16_t old_y;  // Track previous position for clearing
        bool active;
    };

    Drop drops[MAX_DROPS];
    const char char_set[16] = {
        '@', '#', '$', '0', '1', '2', '>', '<',
        '/', '\\', '[', ']', '{', '}', '.', ' '};

    inline int random(int min, int max) {
        return min + (std::rand() % (max - min + 1));
    }

    void init_drop(uint8_t index, bool force_top = false) {
        drops[index].x = random(0, COLS - 1);
        drops[index].y = force_top ? -random(0, 5) : -5;
        drops[index].old_y = drops[index].y;  // Initialize old position
        drops[index].length = random(5, 15);
        drops[index].speed = random(1, 3);
        drops[index].active = true;

        for (uint8_t i = 0; i < 16; i++) {
            drops[index].chars[i] = char_set[random(0, 15)];
            drops[index].morph_counter[i] = random(2, 6);
        }
    }

    void clear_drop_trail(const Drop& drop) {
        // Convert to int16_t for consistent type comparison
        int16_t start_y = std::max<int16_t>(0, drop.old_y - drop.length + 1);
        int16_t end_y = std::min<int16_t>(ROWS - 1, drop.old_y);

        if (start_y <= end_y) {
            int16_t pixel_y = start_y * CHAR_HEIGHT + MARGIN_TOP;
            uint16_t height = (end_y - start_y + 1) * CHAR_HEIGHT;

            painter.fill_rectangle_unrolled8(
                {static_cast<int16_t>(drop.x * CHAR_WIDTH),
                 pixel_y,
                 CHAR_WIDTH,
                 height},
                ui::Color::black());
        }
    }

    void morph_characters(Drop& drop) {
        for (uint8_t i = 0; i < drop.length; i++) {
            if (--drop.morph_counter[i] == 0) {
                drop.chars[i] = char_set[random(0, 15)];
                drop.morph_counter[i] = random(2, 6);
            }
        }
    }

   public:
    DigitalRain() {
        std::srand(0);
        WIDTH = screen_width;
        HEIGHT = screen_height + 5;
        COLS = WIDTH / CHAR_WIDTH;
        ROWS = (HEIGHT - MARGIN_TOP) / CHAR_HEIGHT;
        for (uint8_t i = 0; i < MAX_DROPS; ++i) {
            init_drop(i, true);
        }
    }

    void update() {
        for (uint8_t i = 0; i < MAX_DROPS; ++i) {
            if (!drops[i].active) continue;

            // Store old position before updating
            drops[i].old_y = drops[i].y;

            // Update position
            drops[i].y += drops[i].speed;
            morph_characters(drops[i]);

            // Reset drop if off screen
            if (drops[i].y - drops[i].length > ROWS) {
                clear_drop_trail(drops[i]);  // Clear final position
                init_drop(i);
            }
        }
    }

    void render() {
        for (uint8_t i = 0; i < MAX_DROPS; ++i) {
            if (!drops[i].active) continue;

            // Clear previous position
            clear_drop_trail(drops[i]);

            // Draw new position
            for (uint8_t j = 0; j < drops[i].length; ++j) {
                int y = drops[i].y - j;
                if (y >= 0 && y < ROWS) {
                    ui::Point p{
                        static_cast<int16_t>(drops[i].x * CHAR_WIDTH),
                        static_cast<int16_t>(y * CHAR_HEIGHT + MARGIN_TOP)};

                    ui::Color fg;
                    if (j == 0) {
                        fg = ui::Color::white();
                    } else if (j < 3) {
                        fg = ui::Color(0, 255, 0);
                    } else {
                        uint8_t intensity = std::max(40, 180 - (j * 15));
                        fg = ui::Color(0, intensity, 0);
                    }

                    std::string ch(1, drops[i].chars[j]);
                    painter.draw_string(
                        p,
                        font,
                        fg,
                        ui::Color::black(),
                        ch);
                }
            }
        }
    }
};

class StandaloneViewMirror : public ui::View {
   public:
    StandaloneViewMirror(ui::Context& context, const ui::Rect parent_rect)
        : View{parent_rect}, context_(context) {
        set_style(ui::Theme::getInstance()->bg_darkest);
    }
    ~StandaloneViewMirror() {
        ui::Theme::destroy();
    }
    ui::Context& context() const override {
        return context_;
    }

    void focus() override {
    }

    bool need_refresh() {
        update++;
        if (update % 2 == 0) {
            return false;
        }
        digitalRain.update();
        digitalRain.render();
        return true;
    }

   private:
    ui::Context& context_;
    ui::Console console{{0, 0, 240, 320}};
    DigitalRain digitalRain{};
    uint8_t update = 0;
};