/*
 * Copyright (C) 2022 The V-Gears Team
 *
 * This file is part of V-Gears
 *
 * V-Gears is free software: you can redistribute it and/or modify it under
 * terms of the GNU General Public License as published by the Free Software
 * Foundation, version 3.0 (GPLv3) of the License.
 *
 * V-Gears 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.
 */

#include <Ogre.h>
#include "common/FileSystem.h"
#include "common/Logger.h"
#include "FontFile.h"
#include "common/TypeDefine.h"

using namespace VGears;

/*
FontFile::FontFile(const Ogre::String& file): File(*GAMEFILESYSTEM, file){}
*/


FontFile::FontFile(File* file): File(file){}

FontFile::FontFile(File* file, const u32& offset, const u32& length):
  File(file, offset, length){}

FontFile::FontFile(u8* buffer, const u32& offset, const u32& length):
  File(buffer, offset, length){}

FontFile::~FontFile(void){}

Surface* FontFile::GetSurface(void){
    int width = 512;
    int height = 4096;
    int chars = 0;
    int char_num = 6165;
    Surface* ret = CreateSurface(width, height);
    int x_16 = 0;
    int y_16 = 0;

    /**
     * CLUT colour.
     *
     * CLUT stands for Color LookUp Table.
     */
    struct ClutColor{

        /**
         * Red component in the CLUT.
         */
        u8 r;

        /**
         * Green component in the CLUT.
         */
        u8 g;

        /**
         * Blue component in the CLUT.
         */
        u8 b;

        /**
         * Alpha component in the CLUT.
         */
        u8 a;
    };

    ClutColor color;
    color.r = 0;
    color.g = 0;
    color.b = 0;
    color.a = 255;
    u8 data = 0;


    for (int chars = 0; chars < char_num; ++chars){
        Surface* glyth = CreateSurface(16, 16);
        for (int y = 0; y < 16; ++ y){
            data = (y < 11) ? GetU8(0xE + chars * 22 + y * 2 + 0) : 0;
            //LOGGER->Log(LOGGER_INFO, "%x, %02x", y, data);
            int j = 0;
            for (int i = 7; i >= 0; -- i){
                color.r = (((data >> i) & 0x01) == 1) ? 0 : 255;
                color.g = (((data >> i) & 0x01) == 1) ? 0 : 255;
                color.b = (((data >> i) & 0x01) == 1) ? 0 : 255;
                color.a = (((data >> i) & 0x01) == 1) ? 255 : 255;
                memcpy(
                  glyth->pixels.data() + 64 * y + j, &color, sizeof(ClutColor)
                );
                j += 4;
            }
            data = (y < 11) ? GetU8(0xE + chars * 22 + y * 2 + 1) : 0;
            //LOGGER->Log(LOGGER_INFO, "%02x", data);
            for (int i = 7; i >= 0; --i){
                color.r = (((data >> i) & 0x01) == 1) ? 0 : 255;
                color.g = (((data >> i) & 0x01) == 1) ? 0 : 255;
                color.b = (((data >> i) & 0x01) == 1) ? 0 : 255;
                color.a = (((data >> i) & 0x01) == 1) ? 255 : 255;
                memcpy(
                  glyth->pixels.data() + 64 * y + j, &color, sizeof(ClutColor)
                );
                j += 4;
            }
        }
        CopyToSurface(ret, x_16, y_16, glyth);
        delete glyth;
        x_16 += 16;
        if (x_16 == ret->width){
            y_16 += 16;
            x_16 = 0;
        }
    }

    Ogre::TexturePtr ptex;
    Ogre::HardwarePixelBufferSharedPtr buffer;
    ptex = Ogre::TextureManager::getSingleton().createManual(
      "DynaTex", "General", Ogre::TEX_TYPE_2D,
      ret->width, ret->height, 0, Ogre::PF_R8G8B8A8, Ogre::TU_STATIC
    );
    buffer = ptex->getBuffer(0, 0);
    buffer->lock(Ogre::HardwareBuffer::HBL_DISCARD);
    const Ogre::PixelBox& pb = buffer->getCurrentLock();
    for (auto y = 0; y < ret->height; ++ y){
        // IVV type cast
        auto* data = static_cast<unsigned int*> (
          (unsigned int *)(pb.data) + y * pb.rowPitch
        );
        for (auto x = 0; x < ret->width; ++ x){
            auto clut
              = ret->pixels[y * ret->width * 4 + x * 4 + 3]
                | (ret->pixels[y * ret->width * 4 + x * 4 + 2] << 8)
                | (ret->pixels[y * ret->width * 4 + x * 4 + 1] << 16)
                | (ret->pixels[y * ret->width * 4 + x * 4 + 0] << 24);
            data[x] = clut;
        }
    }
    Ogre::Image image;
    image.loadDynamicImage(
      (Ogre::uchar*) pb.data, ret->width, ret->height, Ogre::PF_R8G8B8A8
    );
    image.save("font.png");
    buffer->unlock();
    Ogre::TextureManager::getSingleton().remove("DynaTex");
    return ret;
}