#include <librnd/core/hid_dad.h>

typedef struct {
	RND_DAD_DECL_NOINIT(dlg)
	pcb_board_t *pcb;
	pcb_data_t *data;
	pcb_layer_t *layer;
	pcb_any_obj_t *obj;

	/* tab management */
	int tab;

	/* regpoly */
	int prx, pry, corners, pcx, pcy, prot, pell;

	/* roundrect */
	int w, h, rrect, rcx, rcy, rx, ry, rres, rrot, rell, corner[4];

	/* circle */
	int dia, ccx, ccy;

} ctx_t;

/* Last open non-modal shape dialog */
static ctx_t *shape_active = NULL;

static void shp_close_cb(void *caller_data, rnd_hid_attr_ev_t ev)
{
	ctx_t *shp = caller_data;

	if (shp == shape_active)
		shape_active = NULL;

	RND_DAD_FREE(shp->dlg);
	free(shp);
}

static void del_obj(ctx_t *shp)
{
	if (shp->obj != NULL) {
/*		pcb_remove_object(shp->obj->type, shp->layer, shp->obj, shp->obj);*/
		shp->obj = NULL;
	}
}

static void shp_chg_regpoly(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	ctx_t *shp = caller_data;

	/* elliptical logics */
	if (!shp->dlg[shp->pell].val.lng) {
		rnd_gui->attr_dlg_widget_state(hid_ctx, shp->pry, rnd_false);
		RND_DAD_SET_VALUE(hid_ctx, shp->pry, crd, shp->dlg[shp->prx].val.crd);
	}
	else
		rnd_gui->attr_dlg_widget_state(hid_ctx, shp->pry, rnd_true);

	del_obj(shp);
	shp->obj = (pcb_any_obj_t *)regpoly_place(
		shp->data, shp->layer, shp->dlg[shp->corners].val.lng,
		shp->dlg[shp->prx].val.crd, shp->dlg[shp->pry].val.crd,
		shp->dlg[shp->prot].val.dbl,
		shp->dlg[shp->pcx].val.crd, shp->dlg[shp->pcy].val.crd);
}

static void shp_chg_roundrect(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	ctx_t *shp = caller_data;
	pcb_shape_corner_t corner[4];
	int n;

	/* elliptical logics */
	if (!shp->dlg[shp->rell].val.lng) {
		rnd_gui->attr_dlg_widget_state(hid_ctx, shp->ry, rnd_false);
		RND_DAD_SET_VALUE(hid_ctx, shp->ry, crd, shp->dlg[shp->rx].val.crd);
	}
	else
		rnd_gui->attr_dlg_widget_state(hid_ctx, shp->ry, rnd_true);

	/* rectangular logics */
	if (!shp->dlg[shp->rrect].val.lng) {
		rnd_gui->attr_dlg_widget_state(hid_ctx, shp->h, rnd_false);
		RND_DAD_SET_VALUE(hid_ctx, shp->h, crd, shp->dlg[shp->w].val.crd);
	}
	else
		rnd_gui->attr_dlg_widget_state(hid_ctx, shp->h, rnd_true);

	for(n = 0; n < 4; n++)
		corner[n] = shp->dlg[shp->corner[n]].val.lng;

	del_obj(shp);
	shp->obj = (pcb_any_obj_t *)roundrect_place(
		shp->data, shp->layer,
		shp->dlg[shp->w].val.crd, shp->dlg[shp->h].val.crd,
		shp->dlg[shp->rx].val.crd, shp->dlg[shp->ry].val.crd,
		shp->dlg[shp->rrot].val.dbl,
		shp->dlg[shp->rcx].val.crd, shp->dlg[shp->rcy].val.crd,
		corner, shp->dlg[shp->rres].val.dbl);
}

static void shp_chg_circle(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	ctx_t *shp = caller_data;
	rnd_coord_t dia = shp->dlg[shp->dia].val.crd;

	if ((dia < 1) || (dia > (PCB->hidlib.size_x + PCB->hidlib.size_y)/4)) {
		rnd_message(RND_MSG_ERROR, "Invalid diameter.\n");
		return;
	}

	shp->obj = (pcb_any_obj_t *)circle_place(
		shp->data, shp->layer,
		dia,
		shp->dlg[shp->ccx].val.crd, shp->dlg[shp->ccy].val.crd);
}


static void shape_layer_chg(rnd_hidlib_t *hidlib, void *user_data, int argc, rnd_event_arg_t argv[])
{
	void *hid_ctx;
	int tab;

	if (shape_active == NULL)
		return;

	hid_ctx = shape_active->dlg_hid_ctx;
	tab = shape_active->dlg[shape_active->tab].val.lng;
	switch(tab) {
		case 0: shp_chg_regpoly(hid_ctx, shape_active, NULL); break;
		case 1: shp_chg_roundrect(hid_ctx, shape_active, NULL); break;
		case 2: shp_chg_circle(hid_ctx, shape_active, NULL); break;
	}
}

static void shp_chg_tab(void *hid_ctx, void *caller_data, rnd_hid_attribute_t *attr)
{
	shape_layer_chg(NULL, NULL, 0, NULL);
}

void pcb_shape_dialog(pcb_board_t *pcb, pcb_data_t *data, pcb_layer_t *layer, rnd_bool modal)
{
	ctx_t *shp = calloc(sizeof(ctx_t), 1);
	rnd_coord_t mm2 = RND_MM_TO_COORD(2);
	rnd_coord_t maxr = RND_MM_TO_COORD(1000);
	const char *tabs[] = {"Regular polygon", "Round rectangle", "Filled circle", NULL};
	rnd_hid_dad_buttons_t clbtn[] = {{"Close", 0}, {NULL, 0}};

	shp->pcb = pcb;
	shp->data = data;
	shp->layer = layer;

	RND_DAD_BEGIN_VBOX(shp->dlg);
		RND_DAD_COMPFLAG(shp->dlg, RND_HATF_EXPFILL);
		RND_DAD_BEGIN_TABBED(shp->dlg, tabs);
			shp->tab = RND_DAD_CURRENT(shp->dlg);
			RND_DAD_CHANGE_CB(shp->dlg, shp_chg_tab);

			/* regpoly tab */
			RND_DAD_BEGIN_VBOX(shp->dlg);
				RND_DAD_LABEL(shp->dlg, "Generate regular polygon");
				RND_DAD_BEGIN_TABLE(shp->dlg, 2);
					RND_DAD_LABEL(shp->dlg, "Number of corners");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_INTEGER(shp->dlg);
							shp->corners = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINVAL(shp->dlg, 3);
							RND_DAD_MAXVAL(shp->dlg, 64);
							RND_DAD_DEFAULT_NUM(shp->dlg, 8);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Shape radius");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->prx = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_DEFAULT_NUM(shp->dlg, mm2);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
						RND_DAD_LABEL(shp->dlg, "x (horizontal)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->pry = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_DEFAULT_NUM(shp->dlg, mm2);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
						RND_DAD_LABEL(shp->dlg, "y (vertical)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_BOOL(shp->dlg);
							shp->pell = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
						RND_DAD_LABEL(shp->dlg, "elliptical");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Rotation angle:");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_REAL(shp->dlg);
							shp->prot = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINVAL(shp->dlg, -360);
							RND_DAD_MAXVAL(shp->dlg, 360);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
						RND_DAD_LABEL(shp->dlg, "deg");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Center offset");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->pcx = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
						RND_DAD_LABEL(shp->dlg, "x (horizontal)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->pcy = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_regpoly);
						RND_DAD_LABEL(shp->dlg, "y (vertical)");
					RND_DAD_END(shp->dlg);
				RND_DAD_END(shp->dlg);

			RND_DAD_END(shp->dlg);

			/* roundrect tab */
			RND_DAD_BEGIN_VBOX(shp->dlg);
				RND_DAD_LABEL(shp->dlg, "Generate rectange with rounded corners");
				RND_DAD_BEGIN_TABLE(shp->dlg, 2);

					RND_DAD_LABEL(shp->dlg, "Rectangle size");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->w = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_DEFAULT_NUM(shp->dlg, mm2);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "width (horizontal)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->h = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_DEFAULT_NUM(shp->dlg, mm2);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "height (vertical)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_BOOL(shp->dlg);
							shp->rrect = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "rectangular");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Rounding radius");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->rx = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_DEFAULT_NUM(shp->dlg, mm2/10);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "x (horizontal)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->ry = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_DEFAULT_NUM(shp->dlg, mm2/10);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "y (vertical)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_BOOL(shp->dlg);
							shp->rell = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "elliptical");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Arc resolution factor:");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_REAL(shp->dlg);
							shp->rres = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINVAL(shp->dlg, 0.1);
							RND_DAD_MAXVAL(shp->dlg, 5);
							RND_DAD_DEFAULT_NUM(shp->dlg, 1);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Rotation angle:");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_REAL(shp->dlg);
							shp->rrot = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINVAL(shp->dlg, -360);
							RND_DAD_MAXVAL(shp->dlg, 360);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "deg");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "Center offset");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->rcx = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "x (horizontal)");
					RND_DAD_END(shp->dlg);

					RND_DAD_LABEL(shp->dlg, "");
					RND_DAD_BEGIN_HBOX(shp->dlg);
						RND_DAD_COORD(shp->dlg);
							shp->rcy = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_MINMAX(shp->dlg, 0, maxr);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_LABEL(shp->dlg, "y (vertical)");
					RND_DAD_END(shp->dlg);
				RND_DAD_END(shp->dlg);

				RND_DAD_LABEL(shp->dlg, "Corner style:");
				RND_DAD_BEGIN_HBOX(shp->dlg);
					RND_DAD_BEGIN_TABLE(shp->dlg, 2);
						RND_DAD_ENUM(shp->dlg, pcb_shape_corner_name);
							shp->corner[0] = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_ENUM(shp->dlg, pcb_shape_corner_name);
							shp->corner[1] = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_ENUM(shp->dlg, pcb_shape_corner_name);
							shp->corner[2] = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
						RND_DAD_ENUM(shp->dlg, pcb_shape_corner_name);
							shp->corner[3] = RND_DAD_CURRENT(shp->dlg);
							RND_DAD_CHANGE_CB(shp->dlg, shp_chg_roundrect);
					RND_DAD_END(shp->dlg);
				RND_DAD_END(shp->dlg);
			RND_DAD_END(shp->dlg);

			/* circle tab */
			RND_DAD_BEGIN_VBOX(shp->dlg);
				RND_DAD_LABEL(shp->dlg, "Generate filled circle");
				RND_DAD_BEGIN_HBOX(shp->dlg);
					RND_DAD_LABEL(shp->dlg, "Diameter:");
					RND_DAD_COORD(shp->dlg);
						shp->dia = RND_DAD_CURRENT(shp->dlg);
						RND_DAD_MINMAX(shp->dlg, 0, maxr);
						RND_DAD_DEFAULT_NUM(shp->dlg, mm2);
						RND_DAD_CHANGE_CB(shp->dlg, shp_chg_circle);
				RND_DAD_END(shp->dlg);

				RND_DAD_LABEL(shp->dlg, "Center offset");
				RND_DAD_BEGIN_HBOX(shp->dlg);
					RND_DAD_COORD(shp->dlg);
						shp->ccx = RND_DAD_CURRENT(shp->dlg);
						RND_DAD_MINMAX(shp->dlg, 0, maxr);
						RND_DAD_CHANGE_CB(shp->dlg, shp_chg_circle);
					RND_DAD_LABEL(shp->dlg, "x (horizontal)");
				RND_DAD_END(shp->dlg);

				RND_DAD_LABEL(shp->dlg, "");
				RND_DAD_BEGIN_HBOX(shp->dlg);
					RND_DAD_COORD(shp->dlg);
						shp->ccy = RND_DAD_CURRENT(shp->dlg);
						RND_DAD_MINMAX(shp->dlg, 0, maxr);
						RND_DAD_CHANGE_CB(shp->dlg, shp_chg_circle);
					RND_DAD_LABEL(shp->dlg, "y (vertical)");
				RND_DAD_END(shp->dlg);
			RND_DAD_END(shp->dlg);
		RND_DAD_END(shp->dlg);
		RND_DAD_BUTTON_CLOSES(shp->dlg, clbtn);
	RND_DAD_END(shp->dlg);

	RND_DAD_NEW("shape", shp->dlg, "dlg_shape", shp, modal, shp_close_cb);
	RND_DAD_SET_VALUE(shp->dlg_hid_ctx, shp->dia, crd, RND_MM_TO_COORD(25.4)); /* suppress a runtime warning on invalid dia (zero) */
	shp_chg_circle(shp->dlg_hid_ctx, shp, NULL);
	shp_chg_roundrect(shp->dlg_hid_ctx, shp, NULL);
	shp_chg_regpoly(shp->dlg_hid_ctx, shp, NULL); /* has to be the last */
	if (modal) {
		RND_DAD_RUN(shp->dlg);
		RND_DAD_FREE(shp->dlg);
	}
	else
		shape_active = shp;
}


static const char pcb_acts_shape[] = "shape()";
static const char pcb_acth_shape[] = "Interactive shape generator.";
fgw_error_t pcb_act_shape(fgw_arg_t *res, int argc, fgw_arg_t *argv)
{
	pcb_shape_dialog(PCB, PCB_PASTEBUFFER->Data, pcb_shape_current_layer, rnd_false);
	RND_ACT_IRES(0);
	return 0;
}

