/*
 * Copyright (c) 2004-2019 Julien Nadeau Carriere <vedge@csoft.net>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
 * USE OF THIS SOFTWARE EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * Line entity.
 */

#include <agar/core/core.h>
#include <agar/gui/widget.h>
#include <agar/gui/primitive.h>
#include <agar/gui/numerical.h>
#include <agar/gui/radio.h>
#include <agar/gui/iconmgr.h>
#include <agar/vg/vg.h>
#include <agar/vg/vg_view.h>
#include <agar/vg/icons.h>

#include <stdarg.h>

VG_Line *
VG_LineNew(void *pNode, VG_Point *p1, VG_Point *p2)
{
	VG_Line *vl = Malloc(sizeof(VG_Line));

	VG_NodeInit(vl, &vgLineOps);
	vl->p1 = p1;
	vl->p2 = p2;
	VG_AddRef(vl, p1);
	VG_AddRef(vl, p2);
	VG_NodeAttach(pNode, vl);
	return (vl);
}

void
VG_LineThickness(VG_Line *vl, Uint8 t)
{
	VG *vg = VGNODE(vl)->vg;

	AG_ObjectLock(vg);
	vl->thickness = t;
	AG_ObjectUnlock(vg);
}

void
VG_LineStipple(VG_Line *vl, Uint16 s)
{
	VG *vg = VGNODE(vl)->vg;

	AG_ObjectLock(vg);
	vl->stipple = s;
	AG_ObjectUnlock(vg);
}

static void
Init(void *_Nonnull obj)
{
	VG_Line *vl = obj;

	vl->p1 = NULL;
	vl->p2 = NULL;
	vl->endPt = VG_LINE_SQUARE;
	vl->stipple = 0xffff;
	vl->miterLen = 0;
	vl->thickness = 1;
}

void
VG_LineEndpointStyle(VG_Line *vl, enum vg_line_endpoint style, ...)
{
	VG *vg = VGNODE(vl)->vg;
	va_list ap;

	AG_ObjectLock(vg);
	
	vl->endPt = style;

	if (style == VG_LINE_MITERED) {
		va_start(ap, style);
		vl->miterLen = (Uint8)va_arg(ap, int);
		va_end(ap);
	}

	AG_ObjectUnlock(vg);
}

static int
Load(void *_Nonnull obj, AG_DataSource *_Nonnull ds, const AG_Version *_Nonnull ver)
{
	VG_Line *vl = obj;

	if ((vl->p1 = VG_ReadRef(ds, vl, "Point")) == NULL) {
		return (-1);
	}
	if ((vl->p2 = VG_ReadRef(ds, vl, "Point")) == NULL) {
		return (-1);
	}
	vl->endPt = (enum vg_line_endpoint)AG_ReadUint8(ds);
	vl->stipple = AG_ReadUint16(ds);
	vl->miterLen = AG_ReadUint8(ds);
	vl->thickness = AG_ReadUint8(ds);
	return (0);
}

static void
Save(void *_Nonnull obj, AG_DataSource *_Nonnull ds)
{
	VG_Line *vl = obj;

	VG_WriteRef(ds, vl->p1);
	VG_WriteRef(ds, vl->p2);
	AG_WriteUint8(ds, (Uint8)vl->endPt);
	AG_WriteUint16(ds, vl->stipple);
	AG_WriteUint8(ds, vl->miterLen);
	AG_WriteUint8(ds, vl->thickness);
}

static void
Draw(void *_Nonnull obj, VG_View *_Nonnull vv)
{
	VG_Line *vl = obj;
	AG_Color c = VG_MapColorRGB(VGNODE(vl)->color);
	int x1,y1, x2,y2;

	VG_GetViewCoords(vv, VG_Pos(vl->p1), &x1, &y1);
	VG_GetViewCoords(vv, VG_Pos(vl->p2), &x2, &y2);

	/* XXX TODO: endpoint style */
	AG_DrawLine(vv, x1,y1, x2,y2, &c);
}

static void
Extent(void *_Nonnull obj, VG_View *_Nonnull vv, VG_Vector *_Nonnull a,
    VG_Vector *_Nonnull b)
{
	VG_Line *vl = obj;
	VG_Vector p1, p2;

	p1 = VG_Pos(vl->p1);
	p2 = VG_Pos(vl->p2);
	a->x = MIN(p1.x, p2.x);
	a->y = MIN(p1.y, p2.y);
	b->x = MAX(p1.x, p2.x);
	b->y = MAX(p1.y, p2.y);
}

static float
PointProximity(void *_Nonnull obj, VG_View *_Nonnull vv, VG_Vector *_Nonnull vPt)
{
	VG_Line *vl = obj;
	VG_Vector v1 = VG_Pos(vl->p1);
	VG_Vector v2 = VG_Pos(vl->p2);

	return VG_PointLineDistance(v1, v2, vPt);
}

static void
Delete(void *_Nonnull obj)
{
	VG_Line *vl = obj;

	if (VG_DelRef(vl, vl->p1) == 0) { VG_Delete(vl->p1); }
	if (VG_DelRef(vl, vl->p2) == 0) { VG_Delete(vl->p2); }
}

static void
Move(void *_Nonnull obj, VG_Vector vCurs, VG_Vector vRel)
{
	/* TODO */
}

static void *_Nonnull
Edit(void *_Nonnull obj, VG_View *vv)
{
	VG_Line *vl = obj;
	AG_Box *box = AG_BoxNewVert(NULL, AG_BOX_EXPAND);
	const char *endPtStyles[] = {
		N_("Square"),
		N_("Beveled"),
		N_("Rounded"),
		N_("Mitered"),
		NULL
	};
	AG_Numerical *num;

	num = AG_NumericalNew(box, 0, NULL, _("Thickness: "));
	AG_BindUint8(num, "value", &vl->thickness);

	num = AG_NumericalNew(box, 0, NULL, _("Stipple pattern: "));
	AG_BindUint16(num, "value", &vl->stipple);

	AG_LabelNew(box, 0, _("Endpoint style: "));
	AG_RadioNewUint(box, AG_RADIO_EXPAND, endPtStyles, (void *)&vl->endPt);

	return (box);
}

VG_NodeOps vgLineOps = {
	N_("Line"),
	&vgIconLine,
	sizeof(VG_Line),
	Init,
	NULL,			/* destroy */
	Load,
	Save,
	Draw,
	Extent,
	PointProximity,
	NULL,			/* lineProximity */
	Delete,
	Move,
	Edit
};