// Copyright 2021 Rockchip Electronics Co., Ltd. All rights reserved.
// Use of this source code is governed by a BSD-style license that can be
// found in the LICENSE file.
#include "font_factory.h"
#include "rk_debug.h"
#include <freetype2/ft2build.h>

#include FT_FREETYPE_H
#include FT_GLYPH_H
#include FT_STROKER_H
#include FT_IMAGE_H
#include <pthread.h>
#include <stdlib.h>
#include <string.h>

static pthread_mutex_t g_font_mutex = PTHREAD_MUTEX_INITIALIZER;

FT_Library library_;
FT_Face face_;
FT_GlyphSlot slot_;
FT_Vector pen_;

double font_angle_;
int font_size_;
unsigned int font_color_;
char *font_path_[128];
unsigned int color_index_;
unsigned int trans_index_;

int create_font(const char *font_path, int font_size) {
	pthread_mutex_lock(&g_font_mutex);
	FT_Init_FreeType(&library_);
	if (!library_) {
		RK_LOGE("FT_Init_FreeType fail\n");
		pthread_mutex_unlock(&g_font_mutex);
		return -1;
	}
	FT_New_Face(library_, font_path, 0, &face_);
	if (!face_) {
		RK_LOGE("please check font_path %s\n", font_path);
		FT_Done_FreeType(library_);
		library_ = NULL;
		pthread_mutex_unlock(&g_font_mutex);
		return -1;
	}

	FT_Set_Pixel_Sizes(face_, font_size, 0);
	font_size_ = font_size;
	memcpy(font_path_, font_path, strlen(font_path));
	slot_ = face_->glyph;
	pthread_mutex_unlock(&g_font_mutex);

	return 0;
}

int destroy_font() {
	pthread_mutex_lock(&g_font_mutex);
	if (face_) {
		FT_Done_Face(face_);
		face_ = NULL;
	}
	if (library_) {
		FT_Done_FreeType(library_);
		library_ = NULL;
	}
	pthread_mutex_unlock(&g_font_mutex);

	return 0;
}

int set_font_size(int font_size) {
	if (!face_) {
		RK_LOGE("face_ is null\n");
		return -1;
	}
	pthread_mutex_lock(&g_font_mutex);
	FT_Set_Pixel_Sizes(face_, font_size, font_size);
	// FT_Set_Char_Size(face_, font_size * 64, font_size * 64, 0, 0);
	font_size_ = font_size;
	pthread_mutex_unlock(&g_font_mutex);

	return 0;
}

int get_font_size() { return font_size_; }

unsigned int set_font_color(unsigned int font_color) {
	pthread_mutex_lock(&g_font_mutex);
	// argb → bgra
	font_color_ = 0x000000FF;
	font_color_ |= font_color >> 8 & 0x0000FF00;  // R
	font_color_ |= font_color << 8 & 0x00FF0000;  // G
	font_color_ |= font_color << 24 & 0xFF000000; // B
	pthread_mutex_unlock(&g_font_mutex);

	return 0;
}

unsigned int get_font_color() { return font_color_; }

void draw_argb8888_buffer(unsigned int *buffer, int buf_w, int buf_h) {
	int i, j, p, q;
	int left = slot_->bitmap_left;
	int top = (face_->size->metrics.ascender >> 6) - slot_->bitmap_top;
	int right = left + slot_->bitmap.width;
	int bottom = top + slot_->bitmap.rows;
	// LOG_DEBUG("top is %d, bottom is %d, left is %d, right is %d\n", top,
	// bottom, left, right);

	for (j = top, q = 0; j < bottom; j++, q++) {
		int offset = j * buf_w;
		int bmp_offset = q * slot_->bitmap.width;
		for (i = left, p = 0; i < right; i++, p++) {
			if (i < 0 || j < 0 || i >= buf_w || j >= buf_h)
				continue;
			// RK_LOGI("bmp_offset + p is %d\n", bmp_offset + p);
			if (slot_->bitmap.buffer[bmp_offset + p]) {
				// printf("0");
				buffer[offset + i] = font_color_;
			} else {
				// printf(".");
				buffer[offset + i] = 0x00000000;
			}
			// if (!((i + 1) % slot_->bitmap.width))
			// printf("\n");
		}
	}
}

void draw_argb8888_wchar(unsigned char *buffer, int buf_w, int buf_h, const wchar_t wch) {
	pthread_mutex_lock(&g_font_mutex);
	if (!face_) {
		RK_LOGE("please check font_path %s\n", font_path_);
		pthread_mutex_unlock(&g_font_mutex);
		return;
	}
	FT_Error error;
	FT_Set_Transform(face_, NULL, &pen_);
	error = FT_Load_Char(face_, wch, FT_LOAD_DEFAULT | FT_LOAD_NO_BITMAP);
	FT_Render_Glyph(slot_, FT_RENDER_MODE_NORMAL); // 8bit per pixel
	if (error) {
		RK_LOGE("FT_Load_Char error\n");
		pthread_mutex_unlock(&g_font_mutex);
		return;
	}
	draw_argb8888_buffer((unsigned int *)buffer, buf_w, buf_h);
	pthread_mutex_unlock(&g_font_mutex);
}

void draw_argb8888_text(unsigned char *buffer, int buf_w, int buf_h,
                        const wchar_t *wstr) {
	if (wstr == NULL) {
		RK_LOGE("wstr is NULL\n");
		return;
	}
	int len = wcslen(wstr);
	pen_.x = 0;
	pen_.y = 0;
	for (int i = 0; i < len; i++) {
		draw_argb8888_wchar(buffer, buf_w, buf_h, wstr[i]);
		pen_.x += slot_->advance.x;
		pen_.y += slot_->advance.y;
	}
}

int wstr_get_actual_advance_x(const wchar_t *wstr) {
	if (wstr == NULL) {
		RK_LOGE("wstr is NULL\n");
		return -1;
	}
	int len = wcslen(wstr);
	pen_.x = 0;
	pen_.y = 0;
	pthread_mutex_lock(&g_font_mutex);
	if (!face_) {
		RK_LOGE("please check font_path %s\n", *font_path_);
		pthread_mutex_unlock(&g_font_mutex);
		return -1;
	}
	FT_Error error;
	for (int i = 0; i < len; i++) {
		FT_Set_Transform(face_, NULL, &pen_);
		error = FT_Load_Char(face_, wstr[i], FT_LOAD_DEFAULT | FT_LOAD_NO_BITMAP);
		pen_.x += slot_->advance.x;
		pen_.y += slot_->advance.y;
	}
	pthread_mutex_unlock(&g_font_mutex);
	return pen_.x;
}