Font.c

/*
 * Copyright (c) scott.cgi All Rights Reserved.
 *
 * This source code belongs to project Mojoc, which is a pure C Game Engine hosted on GitHub.
 * The Mojoc Game Engine is licensed under the MIT License, and will continue to be iterated with coding passion.
 *
 * License  : https://github.com/scottcgi/Mojoc/blob/master/LICENSE
 * GitHub   : https://github.com/scottcgi/Mojoc
 * CodeStyle: https://github.com/scottcgi/Mojoc/blob/master/Docs/CodeStyle.md
 *
 * Since    : 2016-7-27
 * Update   : 2021-2-8
 * Author   : scott.cgi
 */


#include <stdio.h>
#include <string.h>

#include "Engine/Toolkit/Utils/ArrayIntSet.h"
#include "Engine/Extension/Font.h"
#include "Engine/Toolkit/Platform/Log.h"
#include "Engine/Graphics/OpenGL/SubMesh.h"


static ArrayList(Font*)     fontCacheList[1] = AArrayList_Init(Font*,     5);
static ArrayList(FontText*) textCacheList[1] = AArrayList_Init(FontText*, 30);


static Font* Get(const char* filePath)
{
    TextureAtlas* textureAtlas = ATextureAtlas->Get(filePath);

    ALog_A
    (
        textureAtlas->textureList->size == 1,
        "Font not support TextureAtlas has multiple texture"
    );

    Font* font = AArrayList_Pop(fontCacheList, Font*);

    if (font == NULL)
    {
        font = malloc(sizeof(Font));

        AMesh->InitWithCapacity
        (
            AArrayList_Get(textureAtlas->textureList, 0, Texture*),
            50,
            font->mesh
        );

        AArrayIntSet->Init(font->fontTextSet);
        AArrayList  ->Init(sizeof(SubMesh*), font->unusedSubMeshList);
    }
    else
    {
        AArrayIntSet->Clear(font->fontTextSet);
        AArrayList  ->Clear(font->unusedSubMeshList);
        AMesh       ->Clear(font->mesh);
    }

    font->textureAtlas = textureAtlas;

    return font;
}


static FontText* GetText(Font* font)
{
    FontText* text = AArrayList_Pop(textCacheList, FontText*);

    if (text == NULL)
    {
        text = malloc(sizeof(FontText));
        AArrayList->Init(sizeof(SubMesh*), text->usedSubMeshList);
        text->usedSubMeshList->increase = 10;
    }
    else
    {
        AArrayList->Clear(text->usedSubMeshList);
    }

    // reset drawable
    ADrawable->Init(text->drawable);

    text->alignment   = FontTextAlignment_HorizontalLeft;
    text->charSpacing = 0.0f;
    text->font        = font;
    AArrayIntSet->TryAdd(font->fontTextSet, (intptr_t) text);

    return text;
}


static void Draw(Font* font)
{
    for (int i = 0; i < font->fontTextSet->elementList->size; ++i)
    {
        ADrawable->Draw(AArrayList_Get(font->fontTextSet->elementList, i, FontText*)->drawable);
    }

    AMesh_Draw(font->mesh);
}


static inline TextureAtlasQuad* GetAtlasQuad(FontText* text, const char* str, int index)
{
    TextureAtlasQuad* atlasQuad = ATextureAtlas_GetQuad(text->font->textureAtlas, (char[2]) {str[index], '\0'});

    ALog_A
    (
        atlasQuad != NULL,
        "AFont SetString not found char = %c in TextureAtlas quads = %s",
        str[index],
        text->font->textureAtlas->filePath
    );

    return atlasQuad;
}


static inline void SetNewChar(FontText* text, const char* str, int len)
{
    // set text new char
    for (int i = 0; i < len; ++i)
    {
        TextureAtlasQuad* atlasQuad = GetAtlasQuad(text, str, i);
        SubMesh*          subMesh   = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);

        ASubMesh->SetUVWithQuad
        (
            subMesh,
            atlasQuad->quad
        );
    }
}


static void SetString(FontText* text, const char* str)
{
    ArrayList* children    = text->font->mesh->childList;
    int        len         = (int) strlen(str);

    text->drawable->height = 0.0f;
    text->drawable->width  = 0.0f;

    if (len == text->usedSubMeshList->size)
    {
        SetNewChar(text, str, len);
    }
    else if (len > text->usedSubMeshList->size)
    {
        SetNewChar(text, str, text->usedSubMeshList->size);

        int originalSize = children->size;

        // add chars more than text has
        for (int i = text->usedSubMeshList->size; i < len; ++i)
        {
            TextureAtlasQuad* atlasQuad = GetAtlasQuad(text, str, i);
            SubMesh*          subMesh;

            if (text->font->unusedSubMeshList->size > 0)
            {
                subMesh = AArrayList_Pop(text->font->unusedSubMeshList, SubMesh*);

                ADrawable_SetVisible(subMesh->drawable);
                ADrawable_SetPositionSame2(subMesh->drawable, 0.0f);
                ADrawable_SetColor(subMesh->drawable, COLOR_WHITE_ARRAY);

                ASubMesh->SetUVWithQuad
                (
                    subMesh,
                    atlasQuad->quad
                );

                if (subMesh->drawable->parent != text->drawable)
                {
                    ADrawable_SetParent(subMesh->drawable, text->drawable);
                }
            }
            else
            {
                // not enough SubMesh for text char so add SubMesh
                subMesh = AMesh->AddChildWithQuad(text->font->mesh, atlasQuad->quad);
                ADrawable_SetParent(subMesh->drawable, text->drawable);
            }

            AArrayList_Add(text->usedSubMeshList, subMesh);
        }

        if (originalSize != children->size)
        {
            // if regenerate the SubMesh's drawable the parent must visible,
            // or parent property will lost
            AMesh->GenerateBuffer(text->font->mesh);
        }
    }
    else
    {
        SetNewChar(text, str, len);

        // text has more chars remove it
        for (int i = text->usedSubMeshList->size - 1; i >= len; --i)
        {
            SubMesh* subMesh = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);

            if (ADrawable_CheckVisible(subMesh->drawable))
            {
                ADrawable_SetInvisible(subMesh->drawable);
            }

            AArrayList->Remove(text->usedSubMeshList, i);
            AArrayList_Add(text->font->unusedSubMeshList, subMesh);
        }
    }

    // set text size arrangement and alignment
    // set each char position
    switch (text->alignment)
    {
        case FontTextAlignment_HorizontalLeft:
        {
            for (int i = 0; i < text->usedSubMeshList->size; ++i)
            {
                SubMesh* subMesh = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);

                if (subMesh->drawable->height > text->drawable->height)
                {
                    text->drawable->height = subMesh->drawable->height;
                }

                ADrawable_SetPositionX(subMesh->drawable, text->drawable->width + subMesh->drawable->width / 2);
                text->drawable->width += subMesh->drawable->width + text->charSpacing;
            }

            // remove the end space
            text->drawable->width -= text->charSpacing;
            break;
        }

        case FontTextAlignment_HorizontalRight:
        {
            for (int i = text->usedSubMeshList->size - 1; i > -1; --i)
            {
                SubMesh* subMesh = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);

                if (subMesh->drawable->height > text->drawable->height)
                {
                    text->drawable->height = subMesh->drawable->height;
                }

                ADrawable_SetPositionX(subMesh->drawable, -text->drawable->width - subMesh->drawable->width / 2);
                text->drawable->width += subMesh->drawable->width + text->charSpacing;
            }
            
            // remove the end space
            text->drawable->width -= text->charSpacing;
            break;
        }

        case FontTextAlignment_VerticalTop:
        {
            for (int i = 0; i < text->usedSubMeshList->size; ++i)
            {
                SubMesh* subMesh = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);

                if (subMesh->drawable->width > text->drawable->width)
                {
                    text->drawable->width = subMesh->drawable->width;
                }

                ADrawable_SetPositionY(subMesh->drawable, -text->drawable->height - subMesh->drawable->height / 2);
                text->drawable->height += subMesh->drawable->height + text->charSpacing;
            }

            // remove the end space
            text->drawable->height -= text->charSpacing;
            break;
        }

        case FontTextAlignment_VerticalBottom:
        {
            for (int i = text->usedSubMeshList->size - 1; i > -1; --i)
            {
                SubMesh* subMesh = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);

                if (subMesh->drawable->width > text->drawable->width)
                {
                    text->drawable->width = subMesh->drawable->width;
                }

                ADrawable_SetPositionY(subMesh->drawable, text->drawable->height + subMesh->drawable->height / 2);
                text->drawable->height += subMesh->drawable->height + text->charSpacing;
            }

            // remove the end space
            text->drawable->height -= text->charSpacing;
            break;
        }
    }
}


static void SetInt(FontText* text, int num)
{
    // max int digits count
    char buffer[12];
    sprintf  (buffer, "%d", num);
    SetString(text,   buffer);
}


static void SetFloat(FontText* text, float num)
{
    // max float digits count
    char buffer[20];
    sprintf  (buffer, "%.1f", num);
    SetString(text,   buffer);
}


static void Release(Font* font)
{
    ALog_A(font->textureAtlas != NULL, "AFont Release font %p already Released", font);

    for (int i = 0; i < font->fontTextSet->elementList->size; ++i)
    {
        FontText* text = AArrayList_Get(font->fontTextSet->elementList, i, FontText*);
        text->font     = NULL;
        AArrayList_Add(textCacheList, text);
    }

    font->textureAtlas = NULL;
    AArrayList_Add(fontCacheList, font);
}


static void ReleaseText(FontText* text)
{
    ALog_A(text->font != NULL, "AFont ReleaseText text %p already Released", text);

    for (int i = 0; i < text->usedSubMeshList->size; ++i)
    {
        SubMesh* subMesh = AArrayList_Get(text->usedSubMeshList, i, SubMesh*);
        ADrawable_SetInvisible(subMesh->drawable);
        AArrayList_Add(text->font->unusedSubMeshList, subMesh);
    }

    AArrayIntSet->TryRemove(text->font->fontTextSet, (intptr_t) text);
    ADrawable_SetColor(text->drawable, COLOR_WHITE_ARRAY);
    text->font = NULL;

    AArrayList_Add(textCacheList, text);
}


struct AFont AFont[1] =
{{
    Get,
    GetText,
    Draw,

    SetString,
    SetInt,
    SetFloat,

    Release,
    ReleaseText,
}};