Font.c

Go to the documentation of this file.

/*
 * ObjectivelyMVC: Object oriented MVC framework for OpenGL, SDL2 and GNU C.
 * Copyright (C) 2014 Jay Dolan <jay@jaydolan.com>
 *
 * This software is provided 'as-is', without any express or implied
 * warranty. In no event will the authors be held liable for any damages
 * arising from the use of this software.
 *
 * Permission is granted to anyone to use this software for any purpose,
 * including commercial applications, and to alter it and redistribute it
 * freely, subject to the following restrictions:
 *
 * 1. The origin of this software must not be misrepresented; you must not
 * claim that you wrote the original software. If you use this software
 * in a product, an acknowledgment in the product documentation would be
 * appreciated but is not required.
 *
 * 2. Altered source versions must be plainly marked as such, and must not be
 * misrepresented as being the original software.
 *
 * 3. This notice may not be removed or altered from any source distribution.
 */
 
#include <assert.h>
#include <string.h>
 
#include <Objectively/Hash.h>
#include <Objectively/MutableArray.h>
#include <Objectively/String.h>
 
#include "Font.h"
#include "Log.h"
#include "View.h"
#include "Window.h"
 
#include "coda.ttf.h"
 
const EnumName FontStyleNames[] = MakeEnumNames(
    MakeEnumAlias(FontStyleRegular, regular),
    MakeEnumAlias(FontStyleBold, bold),
    MakeEnumAlias(FontStyleItalic, italic),
    MakeEnumAlias(FontStyleUnderline, underline),
    MakeEnumAlias(FontStyleStrikeThrough, strikethrough)
);
 
#define _Class _Font
 
#pragma mark - Object
 
static void dealloc(Object *self) {
 
    Font *this = (Font *) self;
 
    free(this->family);
 
    release(this->data);
    
    TTF_CloseFont(this->font);
 
    super(Object, self, dealloc);
}
 
static int hash(const Object *self) {
 
    Font *this = (Font *) self;
 
    int hash = HASH_SEED;
    hash = HashForCString(hash, this->family);
    hash = HashForInteger(hash, this->size);
    hash = HashForInteger(hash, this->style);
    hash = HashForInteger(hash, this->renderSize);
 
    return hash;
}
 
static _Bool isEqual(const Object *self, const Object *other) {
 
    if (super(Object, self, isEqual, other)) {
        return true;
    }
 
    if (other && $(other, isKindOfClass, _Font())) {
 
        const Font *this = (Font *) self;
        const Font *that = (Font *) other;
 
        if (!strcmp(this->family, that->family) &&
                this->size == that->size &&
                this->style == that->style &&
                this->renderSize == that->renderSize) {
            return true;
        }
    }
 
    return false;
}
 
#pragma mark - Font
 
static MutableDictionary *_cache;
static MutableArray *_fonts;
 
static void cacheFont(Data *data, const char *family) {
    $(_cache, setObjectForKeyPath, data, family);
}
 
static Font *cachedFont(const char *family, int size, int style) {
 
    if (family == NULL) {
        family = DEFAULT_FONT_FAMILY;
    }
    if (size < 1) {
        size = DEFAULT_FONT_SIZE;
    }
    if (style < FontStyleRegular || style > FontStyleStrikeThrough) {
        style = DEFAULT_FONT_STYLE;
    }
 
    const int renderSize = size * MVC_WindowScale(NULL, NULL, NULL);
 
    const Array *fonts = (Array *) _fonts;
    for (size_t i = 0; i < fonts->count; i++) {
 
        Font *font = $(fonts, objectAtIndex, i);
 
        if (!strcmp(font->family, family) &&
                font->size == size &&
                font->style == style &&
                font->renderSize == renderSize) {
            return font;
        }
    }
 
    Data *data = $((Dictionary *) _cache, objectForKeyPath, family);
    if (data) {
        Font *font = $(alloc(Font), initWithData, data, family, size, style);
        assert(font);
 
        $(_fonts, addObject, font);
        release(font);
 
        return font;
    }
 
    MVC_LogWarn("%s-%d-%d not found\n", family, size, style);
    return $$(Font, defaultFont);
}
 
static void clearCache(void) {
    $(_cache, removeAllObjects);
}
 
static Font *defaultFont(void) {
    static Once once;
 
    do_once(&once, {
        Data *data = $(alloc(Data), initWithConstMemory, coda_ttf, coda_ttf_len);
        assert(data);
 
        $$(Font, cacheFont, data, DEFAULT_FONT_FAMILY);
 
        release(data);
    });
 
    return $$(Font, cachedFont, DEFAULT_FONT_FAMILY, DEFAULT_FONT_SIZE, DEFAULT_FONT_STYLE);
}
 
static Font *initWithData(Font *self, Data *data, const char *family, int size, int style) {
 
    self = (Font *) super(Object, self, init);
    if (self) {
 
        self->data = retain(data);
        assert(self->data);
 
        self->family = strdup(family);
        assert(self->family);
 
        self->size = size;
        assert(self->size);
 
        self->style = style;
 
        $(self, renderDeviceDidReset);
    }
 
    return self;
}
 
static SDL_Surface *renderCharacters(const Font *self, const char *chars, SDL_Color color, int wrapWidth) {
 
    SDL_Surface *surface;
    if (wrapWidth) {
        surface = TTF_RenderUTF8_Blended_Wrapped(self->font, chars, color, wrapWidth * MVC_WindowScale(NULL, NULL, NULL));
    } else {
        surface = TTF_RenderUTF8_Blended(self->font, chars, color);
    }
 
    SDL_Surface *converted = NULL;
    if (surface) {
        converted = SDL_ConvertSurfaceFormat(surface, SDL_PIXELFORMAT_RGBA32, 0);
        SDL_FreeSurface(surface);
    } else {
        MVC_LogError("%s\n", TTF_GetError());
    }
 
    return converted;
}
 
static void renderDeviceDidReset(Font *self) {
 
    const int renderSize = self->size * MVC_WindowScale(NULL, NULL, NULL);
    if (renderSize != self->renderSize) {
 
        self->renderSize = renderSize;
 
        if (self->font) {
            TTF_CloseFont(self->font);
        }
 
        SDL_RWops *buffer = SDL_RWFromConstMem(self->data->bytes, (int) self->data->length);
        assert(buffer);
 
        self->font = TTF_OpenFontRW(buffer, 1, self->renderSize);
        assert(self->font);
 
        TTF_SetFontStyle(self->font, self->style);
    }
}
 
static void sizeCharacters(const Font *self, const char *chars, int *w, int *h) {
 
    if (w) {
        *w = 0;
    }
    if (h) {
        *h = 0;
    }
 
    if (chars) {
        char *lines = strdup(chars);
 
        for (char *line = strtok(lines, "\n\r"); line; line = strtok(NULL, "\n\r")) {
 
            int line_w, line_h;
            TTF_SizeUTF8(self->font, line, &line_w, &line_h);
 
            if (w) {
                *w = max(*w, line_w);
            }
            if (h) {
                *h += line_h;
            }
        }
        free(lines);
 
        const float scale = MVC_WindowScale(NULL, NULL, NULL);
        if (w) {
            *w = ceil(*w / scale);
        }
        if (h) {
            *h = ceil(*h / scale);
        }
    }
}
 
#pragma mark - Class lifecycle
 
static void initialize(Class *clazz) {
 
    ((ObjectInterface *) clazz->interface)->dealloc = dealloc;
    ((ObjectInterface *) clazz->interface)->hash = hash;
    ((ObjectInterface *) clazz->interface)->isEqual = isEqual;
 
    ((FontInterface *) clazz->interface)->cachedFont = cachedFont;
    ((FontInterface *) clazz->interface)->cacheFont = cacheFont;
    ((FontInterface *) clazz->interface)->clearCache = clearCache;
    ((FontInterface *) clazz->interface)->defaultFont = defaultFont;
    ((FontInterface *) clazz->interface)->initWithData = initWithData;
    ((FontInterface *) clazz->interface)->renderCharacters = renderCharacters;
    ((FontInterface *) clazz->interface)->renderDeviceDidReset = renderDeviceDidReset;
    ((FontInterface *) clazz->interface)->sizeCharacters = sizeCharacters;
 
    const int err = TTF_Init();
    assert(err == 0);
 
    _cache = $$(MutableDictionary, dictionary);
    assert(_cache);
 
    _fonts = $$(MutableArray, array);
    assert(_fonts);
}
 
static void destroy(Class *clazz) {
 
    release(_cache);
    release(_fonts);
 
    TTF_Quit();
}
 
Class *_Font(void) {
    static Class *clazz;
    static Once once;
 
    do_once(&once, {
        clazz = _initialize(&(const ClassDef) {
            .name = "Font",
            .superclass = _Object(),
            .instanceSize = sizeof(Font),
            .interfaceOffset = offsetof(Font, interface),
            .interfaceSize = sizeof(FontInterface),
            .initialize = initialize,
            .destroy = destroy,
        });
    });
 
    return clazz;
}
 
#undef _Class