Font.c

Go to the documentation of this file.

/*
 * ObjectivelyMVC: Object oriented MVC framework for SDL3 and 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 <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#include <Objectively/Hash.h>
#include <Objectively/Array.h>
#include <Objectively/String.h>
 
#include "Font.h"
#include "Log.h"
#include "View.h"
#include "Window.h"
 
#include "../Assets/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 Dictionary *_cache;
static Array *_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 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) {
      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 - 1);
    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->scale = 1.0f;
 
    $(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_RenderText_Blended_Wrapped(self->font, chars, 0, color, wrapWidth * self->scale);
  } else {
    surface = TTF_RenderText_Blended(self->font, chars, 0, color);
  }
 
  SDL_Surface *converted = NULL;
  if (surface) {
    converted = SDL_ConvertSurface(surface, SDL_PIXELFORMAT_RGBA32);
    SDL_DestroySurface(surface);
  } else {
    MVC_LogError("%s\n", SDL_GetError());
  }
 
  return converted;
}
 
static void renderDeviceDidReset(Font *self) {
 
  const int renderSize = self->size * self->scale;
  if (renderSize != self->renderSize) {
 
    self->renderSize = renderSize;
 
    if (self->font) {
      TTF_CloseFont(self->font);
    }
 
    SDL_IOStream *buffer = SDL_IOFromConstMem(self->data->bytes, (int) self->data->length);
    assert(buffer);
 
    self->font = TTF_OpenFontIO(buffer, 1, self->renderSize);
    assert(self->font);
 
    TTF_SetFontStyle(self->font, self->style);
    TTF_SetFontHinting(self->font, TTF_HINTING_LIGHT_SUBPIXEL);
  }
}
 
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);
 
    const int font_h = TTF_GetFontHeight(self->font);
 
    for (char *line = strtok(lines, "\n\r"); line; line = strtok(NULL, "\n\r")) {
 
      if (w) {
 
        // A little ghetto whitespace padding to ensure TTF doesn't truncate words 🫠
 
        const size_t len = strlen(line) + 2;
        char buf[len];
 
        snprintf(buf, len, "%s ", line);
 
        int line_w;
 
        TTF_GetStringSize(self->font, buf, 0, &line_w, NULL);
        *w = max(*w, line_w);
      }
      if (h) {
        *h += font_h;
      }
    }
    free(lines);
 
    if (w) {
      *w = ceilf(*w / self->scale);
    }
    if (h) {
      *h = ceilf(*h / self->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 bool init = TTF_Init();
  assert(init);
  (void) init;
 
  _cache = $$(Dictionary, dictionary);
  assert(_cache);
 
  _fonts = $$(Array, 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