#include <gd.h>
#include <math.h>
#include <stdlib.h>
#include <string>
#include <vector>
#include <ctime>

#include "error.h"
#include "utils.h"
#include "graph.h"

graph::graph(std::string font_in) : font(font_in)
{
}

graph::~graph()
{
}

void graph::calc_text_width(std::string font_descr, double font_height, std::string str, int *width, int *height)
{
	int brect[8];

	const char *err = gdImageStringFT(NULL, &brect[0], 0, (char *)font_descr.c_str(), font_height, 0., 0, 0, (char *)str.c_str());
	if (err)
		error_exit("Failed working with %s: %s", font_descr.c_str(), err);

	*width = brect[2] - brect[6];
	*height = brect[3] - brect[7];
}

void graph::draw_text(gdImagePtr im, std::string font_descr, double font_height, int color, std::string str, int x, int y)
{
	int brect[8];

	gdImageStringFT(im, &brect[0], color, (char *)font_descr.c_str(), font_height, 0., x, y, (char *)str.c_str());
}

std::string graph::shorten(double value)
{
	double chk = fabs(value);

	double divider = 1.0;
	std::string si;
	if (chk >= 1000000000000.0)
	{
		si = "T";
		divider = 1000000000000.0;
	}
	else if (chk >= 1000000000.0)
	{
		si = "G";
		divider = 1000000000.0;
	}
	else if (chk >= 1000000.0)
	{
		si = "M";
		divider = 1000000.0;
	}
	else if (chk >= 1000.0)
	{
		si = "k";
		divider = 1000.0;
	}
	else if (chk == 0.0)
		return "0";
	else if (chk <= 0.000001)
	{
		si = "u";
		divider = 0.000001;
	}
	else if (chk <= 0.001)
	{
		si = "m";
		divider = 0.001;
	}

	std::string dummy = format("%.0f", value / divider);
	int len = dummy.length();
	if (len < 3)
	{
		std::string fmt = "%." + format("%d", 3 - len) + "f";
		dummy = format(fmt.c_str(), value / divider);
	}

	return dummy + si;
}

void graph::do_draw(int width, int height, std::string title, long int *ts, double *values, int n_values, char **result, size_t *result_len)
{
	int yAxisTop = (!title.empty()) ? 12 : 5;
	int yAxisBottom = height - 25;
	int yTicks = 10;
	int xTicks = -1;
	int xAxisLeft = -1;
	int xAxisRight = width - 5;
	int font_height = 10;

	gdImagePtr im = gdImageCreate(width, height);

	int black = gdImageColorAllocate(im, 0, 0, 0);
	int gray = gdImageColorAllocate(im, 64, 64, 64);
	int white = gdImageColorAllocate(im, 255, 255, 255);
	int red = gdImageColorAllocate(im, 255, 0, 0);
	int green = gdImageColorAllocate(im, 0, 255, 0);

        // determine center of date string
	int dateWidth = -1, dummy;
	calc_text_width(font, 10.0, "8888/88/88", &dateWidth, &dummy);
	int timeWidth = -1;
	calc_text_width(font, 10.0, "88:88:88", &timeWidth, &dummy);

	double dataMin = 99999999999.9;
	double dataMax = -99999999999.9;
	double tMin = 99999999999.9;
	double tMax = -99999999999.9;
	double avg = 0.0;
	for(int index=0; index<n_values; index++)
	{
		if (ts[index] < tMin) tMin = ts[index];
		if (values[index] < dataMin) dataMin = values[index];
		if (ts[index] > tMax) tMax = ts[index];
		if (values[index] > dataMax) dataMax = values[index];

		avg += values[index];
	}
	avg /= double(n_values);

	// determine x-position of y-axis
	std::string use_width = "9999W";
	if (dataMin < 0)
		use_width = "-9999W";
	calc_text_width(font, font_height, use_width, &xAxisLeft, &dummy);
	xAxisLeft++; // 1 pixel extra space between text and lines

        xTicks = (width - xAxisLeft) / dateWidth;

	double scaleX = (double)(xAxisRight - xAxisLeft) / (double)(tMax - tMin);
	double scaleY = (double)(yAxisBottom - yAxisTop) / (dataMax - dataMin);
	double scaleT = (double)(tMax - tMin) / (double)xTicks;

	if (!title.empty())
	{
		int textWidth = -1;
		calc_text_width(font, 10.0, title, &textWidth, &dummy);

		int plotX = (width / 2) - (textWidth / 2);

		draw_text(im, font, font_height, white, title, plotX, 9);
	}

	gdImageLine(im, xAxisLeft, yAxisTop, xAxisLeft, yAxisBottom, black);
	gdImageLine(im, xAxisLeft, yAxisBottom, xAxisRight, yAxisBottom, black);

	// draw ticks horizonal
	for(int xti=0; xti<=xTicks; xti++)
	{
		int x = (double(xAxisRight - xAxisLeft) * double(xti)) / double(xTicks) + xAxisLeft;

		time_t epoch = tMin + scaleT * double(xti);
		struct tm *tm = localtime(&epoch);

		char buffer[128];
		strftime(buffer, sizeof buffer, "%Y/%m/%d", tm);
		std::string strDate = std::string(buffer);
		strftime(buffer, sizeof buffer, "%H:%M:%S", tm);
		std::string strTime = std::string(buffer);

		if (xti > 0)
			gdImageLine(im, x, yAxisTop + 1, x, yAxisBottom, gray);

		bool date = true;
		int xPosDate = -1, xPosTime = -1;
		if (xti == 0)
			xPosTime = xPosDate = std::max(0, x - dateWidth / 2);
		else if (xti == xTicks)
		{
			xPosDate = width - dateWidth;
			xPosTime = width - timeWidth;
		}
		else if (xti == xTicks - 1)
		{
			xPosTime = xPosDate = x - (dateWidth * 5) / 8;
			date = false;
		}
		else
		{
			xPosTime = xPosDate = x - dateWidth / 2;
		}

		draw_text(im, font, font_height, white, strTime, xPosTime, yAxisBottom + 14);
		if (date)
			draw_text(im, font, font_height, white, strDate, xPosDate, yAxisBottom + 24);

		gdImageLine(im, x, yAxisBottom, x, yAxisBottom + 2, black);
	}

	// draw ticks vertical
	for(int yti=0; yti<=yTicks; yti++)
	{
		int y = (double(yAxisBottom - yAxisTop) * double(yti)) / double(yTicks) + yAxisTop;
		gdImageLine(im, xAxisLeft - 2, y, xAxisLeft, y, black);

		double value = (((dataMax - dataMin) / double(yTicks)) * double(yTicks - yti) + dataMin);

		std::string str = shorten(value);

		gdImageLine(im, xAxisLeft + 1, y, xAxisRight, y, gray);

		draw_text(im, font, font_height, white, str, 1, y == yAxisTop ? y + 6 : y + 3);
	}

	// draw data
	if (n_values > 1 && dataMax - dataMin > 0.001)
	{
		bool first = true;
		int yPrev = -1, xPrev = -1;
		for(int index=0; index<n_values; index++)
		{
			double t = ts[index];
			double value = values[index];
			int x = xAxisLeft + int(scaleX * double(t - tMin));
			int y = yAxisBottom - int(scaleY * double(value - dataMin));

			if (first)
			{
				xPrev = x;
				yPrev = y;
				first = false;
			}
			else
			{
				gdImageLine(im, xPrev, yPrev, x, y, red);
				xPrev = x;
				yPrev = y;
			}
		}

		int yAvg = yAxisBottom - int(scaleY * double(avg - dataMin));
		gdImageLine(im, xAxisLeft + 1, yAvg, xAxisRight, yAvg, green);

		std::string avg_str = "avg: " + shorten(avg) + ", last: " + shorten(values[n_values - 1]);
		int text_y = yAxisTop + font_height;
		if (abs(yAvg - text_y) < font_height * 2)
			text_y = yAxisBottom - font_height * 2;
		draw_text(im, font, font_height, green, avg_str, xAxisLeft + double(xAxisRight-xAxisLeft) * 0.03125, text_y);
	}
	else
	{
		draw_text(im, font, font_height * 1.5, red, "No data or data too constant", xAxisLeft + 5, height / 2 + yAxisTop / 2);
	}

	// draw to memory
	FILE *fh = open_memstream(result, result_len);
	if (!fh)
		error_exit("graph: open_memstream failed");

	gdImagePng(im, fh);

	fclose(fh);

	gdImageDestroy(im);
}