#include <assert.h>
#include <stdlib.h>
#include <string.h>
#include <wlr/render/color.h>
#include "render/color.h"
#include "util/matrix.h"

// See H.273 ColourPrimaries

static const struct wlr_color_primaries COLOR_PRIMARIES_SRGB = { // code point 1
	.red = { 0.640, 0.330 },
	.green = { 0.300, 0.600 },
	.blue = { 0.150, 0.060 },
	.white = { 0.3127, 0.3290 },
};

static const struct wlr_color_primaries COLOR_PRIMARIES_BT2020 = { // code point 9
	.red = { 0.708, 0.292 },
	.green = { 0.170, 0.797 },
	.blue = { 0.131, 0.046 },
	.white = { 0.3127, 0.3290 },
};

void wlr_color_transform_init(struct wlr_color_transform *tr, enum wlr_color_transform_type type) {
	*tr = (struct wlr_color_transform){
		.type = type,
		.ref_count = 1,
	};
	wlr_addon_set_init(&tr->addons);
}

struct wlr_color_transform *wlr_color_transform_init_linear_to_inverse_eotf(
		enum wlr_color_transfer_function tf) {
	struct wlr_color_transform_inverse_eotf *tx = calloc(1, sizeof(*tx));
	if (!tx) {
		return NULL;
	}
	wlr_color_transform_init(&tx->base, COLOR_TRANSFORM_INVERSE_EOTF);
	tx->tf = tf;
	return &tx->base;
}

struct wlr_color_transform *wlr_color_transform_init_lut_3x1d(size_t dim,
		const uint16_t *r, const uint16_t *g, const uint16_t *b) {
	uint16_t *lut_3x1d = malloc(3 * dim * sizeof(lut_3x1d[0]));
	if (lut_3x1d == NULL) {
		return NULL;
	}

	memcpy(&lut_3x1d[0 * dim], r, dim * sizeof(lut_3x1d[0]));
	memcpy(&lut_3x1d[1 * dim], g, dim * sizeof(lut_3x1d[0]));
	memcpy(&lut_3x1d[2 * dim], b, dim * sizeof(lut_3x1d[0]));

	struct wlr_color_transform_lut_3x1d *tx = calloc(1, sizeof(*tx));
	if (!tx) {
		free(lut_3x1d);
		return NULL;
	}
	wlr_color_transform_init(&tx->base, COLOR_TRANSFORM_LUT_3X1D);
	tx->lut_3x1d = lut_3x1d;
	tx->dim = dim;
	return &tx->base;
}

struct wlr_color_transform *wlr_color_transform_init_matrix(const float matrix[static 9]) {
	struct wlr_color_transform_matrix *tx = calloc(1, sizeof(*tx));
	if (!tx) {
		return NULL;
	}
	wlr_color_transform_init(&tx->base, COLOR_TRANSFORM_MATRIX);
	memcpy(tx->matrix, matrix, sizeof(tx->matrix));
	return &tx->base;
}

struct wlr_color_transform *wlr_color_transform_init_pipeline(
		struct wlr_color_transform **transforms, size_t len) {
	assert(len > 0);

	struct wlr_color_transform **copy = calloc(len, sizeof(copy[0]));
	if (copy == NULL) {
		return NULL;
	}

	struct wlr_color_transform_pipeline *tx = calloc(1, sizeof(*tx));
	if (!tx) {
		free(copy);
		return NULL;
	}
	wlr_color_transform_init(&tx->base, COLOR_TRANSFORM_PIPELINE);

	for (size_t i = 0; i < len; i++) {
		assert(transforms[i] != NULL);
		copy[i] = wlr_color_transform_ref(transforms[i]);
	}

	tx->transforms = copy;
	tx->len = len;

	return &tx->base;
}

static void color_transform_destroy(struct wlr_color_transform *tr) {
	switch (tr->type) {
	case COLOR_TRANSFORM_INVERSE_EOTF:
	case COLOR_TRANSFORM_MATRIX:
		break;
	case COLOR_TRANSFORM_LCMS2:
		color_transform_lcms2_finish(color_transform_lcms2_from_base(tr));
		break;
	case COLOR_TRANSFORM_LUT_3X1D:;
		struct wlr_color_transform_lut_3x1d *lut_3x1d = color_transform_lut_3x1d_from_base(tr);
		free(lut_3x1d->lut_3x1d);
		break;
	case COLOR_TRANSFORM_PIPELINE:;
		struct wlr_color_transform_pipeline *pipeline =
			wl_container_of(tr, pipeline, base);
		for (size_t i = 0; i < pipeline->len; i++) {
			wlr_color_transform_unref(pipeline->transforms[i]);
		}
		free(pipeline->transforms);
		break;
	}
	wlr_addon_set_finish(&tr->addons);
	free(tr);
}

struct wlr_color_transform *wlr_color_transform_ref(struct wlr_color_transform *tr) {
	tr->ref_count += 1;
	return tr;
}

void wlr_color_transform_unref(struct wlr_color_transform *tr) {
	if (!tr) {
		return;
	}
	assert(tr->ref_count > 0);
	tr->ref_count -= 1;
	if (tr->ref_count == 0) {
		color_transform_destroy(tr);
	}
}

struct wlr_color_transform_inverse_eotf *wlr_color_transform_inverse_eotf_from_base(
		struct wlr_color_transform *tr) {
	assert(tr->type == COLOR_TRANSFORM_INVERSE_EOTF);
	struct wlr_color_transform_inverse_eotf *inverse_eotf = wl_container_of(tr, inverse_eotf, base);
	return inverse_eotf;
}

struct wlr_color_transform_lut_3x1d *color_transform_lut_3x1d_from_base(
		struct wlr_color_transform *tr) {
	assert(tr->type == COLOR_TRANSFORM_LUT_3X1D);
	struct wlr_color_transform_lut_3x1d *lut_3x1d = wl_container_of(tr, lut_3x1d, base);
	return lut_3x1d;
}

static float srgb_eval_inverse_eotf(float x) {
	// See https://www.w3.org/Graphics/Color/srgb
	if (x <= 0.0031308) {
		return 12.92 * x;
	} else {
		return 1.055 * powf(x, 1.0 / 2.4) - 0.055;
	}
}

static float st2084_pq_eval_inverse_eotf(float x) {
	// H.273 TransferCharacteristics code point 16
	float c1 = 0.8359375;
	float c2 = 18.8515625;
	float c3 = 18.6875;
	float m = 78.84375;
	float n = 0.1593017578125;
	if (x < 0) {
		x = 0;
	}
	if (x > 1) {
		x = 1;
	}
	float pow_n = powf(x, n);
	return powf((c1 + c2 * pow_n) / (1 + c3 * pow_n), m);
}

static float bt1886_eval_inverse_eotf(float x) {
	float lb = powf(0.0001, 1.0 / 2.4);
	float lw = powf(1.0, 1.0 / 2.4);
	float a  = powf(lw - lb, 2.4);
	float b  = lb / (lw - lb);
	return powf(x / a, 1.0 / 2.4) - b;
}

static float transfer_function_eval_inverse_eotf(
		enum wlr_color_transfer_function tf, float x) {
	switch (tf) {
	case WLR_COLOR_TRANSFER_FUNCTION_SRGB:
		return srgb_eval_inverse_eotf(x);
	case WLR_COLOR_TRANSFER_FUNCTION_ST2084_PQ:
		return st2084_pq_eval_inverse_eotf(x);
	case WLR_COLOR_TRANSFER_FUNCTION_EXT_LINEAR:
		return x;
	case WLR_COLOR_TRANSFER_FUNCTION_GAMMA22:
		return powf(x, 1.0 / 2.2);
	case WLR_COLOR_TRANSFER_FUNCTION_BT1886:
		return bt1886_eval_inverse_eotf(x);
	}
	abort(); // unreachable
}

static void color_transform_inverse_eotf_eval(
		struct wlr_color_transform_inverse_eotf *tr,
		float out[static 3], const float in[static 3]) {
	for (size_t i = 0; i < 3; i++) {
		out[i] = transfer_function_eval_inverse_eotf(tr->tf, in[i]);
	}
}

static float lut_1d_get(const uint16_t *lut, size_t len, size_t i) {
	if (i >= len) {
		i = len - 1;
	}
	return (float) lut[i] / UINT16_MAX;
}

static float lut_1d_eval(const uint16_t *lut, size_t len, float x) {
	double pos = x * (len - 1);
	double int_part;
	double frac_part = modf(pos, &int_part);
	size_t i = (size_t) int_part;
	double a = lut_1d_get(lut, len, i);
	double b = lut_1d_get(lut, len, i + 1);
	return a * (1 - frac_part) + b * frac_part;
}

static void color_transform_lut_3x1d_eval(struct wlr_color_transform_lut_3x1d *tr,
		float out[static 3], const float in[static 3]) {
	for (size_t i = 0; i < 3; i++) {
		out[i] = lut_1d_eval(&tr->lut_3x1d[tr->dim * i], tr->dim, in[i]);
	}
}

static void multiply_matrix_vector(float out[static 3], float m[static 9], const float v[static 3]);

void wlr_color_transform_eval(struct wlr_color_transform *tr,
		float out[static 3], const float in[static 3]) {
	switch (tr->type) {
	case COLOR_TRANSFORM_INVERSE_EOTF:
		color_transform_inverse_eotf_eval(wlr_color_transform_inverse_eotf_from_base(tr), out, in);
		break;
	case COLOR_TRANSFORM_LCMS2:
		color_transform_lcms2_eval(color_transform_lcms2_from_base(tr), out, in);
		break;
	case COLOR_TRANSFORM_LUT_3X1D:
		color_transform_lut_3x1d_eval(color_transform_lut_3x1d_from_base(tr), out, in);
		break;
	case COLOR_TRANSFORM_MATRIX:;
		struct wlr_color_transform_matrix *matrix = wl_container_of(tr, matrix, base);
		multiply_matrix_vector(out, matrix->matrix, in);
		break;
	case COLOR_TRANSFORM_PIPELINE:;
		struct wlr_color_transform_pipeline *pipeline =
			wl_container_of(tr, pipeline, base);
		float color[3];
		memcpy(color, in, sizeof(color));
		for (size_t i = 0; i < pipeline->len; i++) {
			wlr_color_transform_eval(pipeline->transforms[i], color, color);
		}
		memcpy(out, color, sizeof(color));
		break;
	}
}

static size_t color_transform_compose_collect(struct wlr_color_transform **out,
		size_t out_capacity, struct wlr_color_transform **transforms, size_t len) {
	size_t count = 0;
	for (size_t i = 0; i < len; i++) {
		struct wlr_color_transform *transform = transforms[i];
		if (transform == NULL) {
			continue;
		}

		if (transform->type == COLOR_TRANSFORM_PIPELINE) {
			struct wlr_color_transform_pipeline *pipeline = wl_container_of(transform,
				pipeline, base);
			count += color_transform_compose_collect(out, out_capacity,
				pipeline->transforms, pipeline->len);
		} else {
			if (out_capacity > 0) {
				*out = wlr_color_transform_ref(transform);
				out++;
				out_capacity--;
			}
			count++;
		}
	}
	return count;
}

bool wlr_color_transform_compose(struct wlr_color_transform **result,
		struct wlr_color_transform **transforms, size_t len) {
	// The normalized form has the following properties :
	// - No NULL transform in a pipeline
	// - No pipeline of length 1
	// - No nested pipelines
	bool status = false;

	size_t result_len = color_transform_compose_collect(NULL, 0, transforms, len);
	if (result_len == 0) {
		*result = NULL;
		return true;
	}

	struct wlr_color_transform **result_transforms = calloc(result_len,
		sizeof(result_transforms[0]));
	if (result_transforms == NULL) {
		return false;
	}
	color_transform_compose_collect(result_transforms, result_len, transforms, len);

	if (result_len == 1) {
		*result = wlr_color_transform_ref(result_transforms[0]);
	} else {
		*result = wlr_color_transform_init_pipeline(result_transforms, result_len);
		if (*result == NULL) {
			goto cleanup_transforms;
		}
	}
	status = true;

cleanup_transforms:
	for (size_t i = 0; i < result_len; i++) {
		wlr_color_transform_unref(result_transforms[i]);
	}
	free(result_transforms);
	return status;
}

void wlr_color_primaries_from_named(struct wlr_color_primaries *out,
		enum wlr_color_named_primaries named) {
	switch (named) {
	case WLR_COLOR_NAMED_PRIMARIES_SRGB:
		*out = COLOR_PRIMARIES_SRGB;
		return;
	case WLR_COLOR_NAMED_PRIMARIES_BT2020:
		*out = COLOR_PRIMARIES_BT2020;
		return;
	}
	abort();
}

static void multiply_matrix_vector(float out[static 3], float m[static 9], const float v[static 3]) {
	float result[3] = {
		m[0] * v[0] + m[1] * v[1] + m[2] * v[2],
		m[3] * v[0] + m[4] * v[1] + m[5] * v[2],
		m[6] * v[0] + m[7] * v[1] + m[8] * v[2],
	};
	memcpy(out, result, sizeof(result));
}

static void xy_to_xyz(float out[static 3], struct wlr_color_cie1931_xy src) {
	if (src.y == 0) {
		out[0] = out[1] = out[2] = 0;
		return;
	}

	out[0] = src.x / src.y;
	out[1] = 1;
	out[2] = (1 - src.x - src.y) / src.y;
}

void wlr_color_primaries_to_xyz(const struct wlr_color_primaries *primaries, float matrix[static 9]) {
	// See: http://www.brucelindbloom.com/index.html?Eqn_RGB_XYZ_Matrix.html

	float r[3], g[3], b[3], w[3];
	xy_to_xyz(r, primaries->red);
	xy_to_xyz(g, primaries->green);
	xy_to_xyz(b, primaries->blue);
	xy_to_xyz(w, primaries->white);

	float xyz_matrix[9] = {
		r[0], g[0], b[0],
		r[1], g[1], b[1],
		r[2], g[2], b[2],
	};
	matrix_invert(xyz_matrix, xyz_matrix);

	float S[3];
	multiply_matrix_vector(S, xyz_matrix, w);

	float result[] = {
		S[0] * r[0], S[1] * g[0], S[2] * b[0],
		S[0] * r[1], S[1] * g[1], S[2] * b[1],
		S[0] * r[2], S[1] * g[2], S[2] * b[2],
	};
	memcpy(matrix, result, sizeof(result));
}

void wlr_color_primaries_transform_absolute_colorimetric(
		const struct wlr_color_primaries *source,
		const struct wlr_color_primaries *destination, float matrix[static 9]) {
	float source_to_xyz[9];
	wlr_color_primaries_to_xyz(source, source_to_xyz);
	float destination_to_xyz[9];
	wlr_color_primaries_to_xyz(destination, destination_to_xyz);
	float xyz_to_destination[9];
	matrix_invert(xyz_to_destination, destination_to_xyz);
	wlr_matrix_multiply(matrix, xyz_to_destination, source_to_xyz);
}

void wlr_color_transfer_function_get_default_luminance(enum wlr_color_transfer_function tf,
		struct wlr_color_luminances *lum) {
	switch (tf) {
	case WLR_COLOR_TRANSFER_FUNCTION_ST2084_PQ:
		*lum = (struct wlr_color_luminances){
			.min = 0.005,
			.max = 10000,
			.reference = 203,
		};
		break;
	case WLR_COLOR_TRANSFER_FUNCTION_BT1886:
		*lum = (struct wlr_color_luminances){
			.min = 0.01,
			.max = 100,
			.reference = 100,
		};
		break;
	default:
		*lum = (struct wlr_color_luminances){
			.min = 0.2,
			.max = 80,
			.reference = 80,
		};
		break;
	}
}
