/* +-------------------------------------------------------------------+ */
/* | Copyright 1992, 1993, David Koblas (koblas@netcom.com)            | */
/* |                                                                   | */
/* | Permission to use, copy, modify, and to distribute this software  | */
/* | and its documentation for any purpose is hereby granted without   | */
/* | fee, provided that the above copyright notice appear in all       | */
/* | copies and that both that copyright notice and this permission    | */
/* | notice appear in supporting documentation.  There is no           | */
/* | representations about the suitability of this software for        | */
/* | any purpose.  this software is provided "as is" without express   | */
/* | or implied warranty.                                              | */
/* |                                                                   | */
/* +-------------------------------------------------------------------+ */

#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include "xpaint.h"
#include "Paint.h"
#include "misc.h"

typedef struct {
	Boolean	lastFlag;
	int	rx, ry, startX, startY, endX, endY, drawn;
	GC	gcx;
} LocalInfo;

#define MKRECT(rect, sx, sy, ex, ey, flag) do {				\
	(rect)->x      = MIN(sx, ex);					\
	(rect)->y      = MIN(sy, ey);					\
	(rect)->width  = MAX(sx, ex) - (rect)->x;			\
	(rect)->height = MAX(sy, ey) - (rect)->y;			\
	if (flag) {							\
		(rect)->width = MIN((rect)->width, (rect)->height);	\
		(rect)->height = (rect)->width; 			\
		(rect)->x = (ex - sx) < 0 ? sx - (rect)->width : sx;	\
		(rect)->y = (ey - sy) < 0 ? sy - (rect)->width : sy;	\
	}								\
	if (sx < ex) {							\
		if (sy < ey) {						\
			/* +,+ */					\
			(rect)->x -= (rect)->width;			\
			(rect)->angle1 =   0*64;			\
			(rect)->angle2 =  90*64;			\
		} else {						\
			/* +,- */					\
			/* No Change */					\
			(rect)->angle1 =  90*64;			\
			(rect)->angle2 =  90*64;			\
		}							\
	} else {							\
		if (sy < ey) {						\
			/* -,+ */					\
			(rect)->x -= (rect)->width;			\
			(rect)->y -= (rect)->height;			\
			(rect)->angle1 =   0*64;			\
			(rect)->angle2 = -90*64;			\
		} else {						\
			/* -,- */					\
			(rect)->y -= (rect)->height;			\
			(rect)->angle1 = -90*64;			\
			(rect)->angle2 = -90*64;			\
		}							\
	}								\
	(rect)->width *= 2;						\
	(rect)->height *= 2;						\
	} while (0)

static void	press(Widget w, LocalInfo *l, XButtonEvent *event, OpInfo *info)
{
	/*
	**  Check to make sure all buttons are up, before doing this
	*/
	if ((event->state & (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask)) != 0)
		return;

	l->rx   = info->x;
	l->ry   = info->y;
	l->endX = l->startX = event->x;
	l->endY = l->startY = event->y;

	l->drawn = False;
}


static void	motion(Widget w, LocalInfo *l, 
			XMotionEvent *event, OpInfo *info) 
{
	XArc	rect;

	if (l->drawn) {
		MKRECT(&rect, l->startX, l->startY, l->endX, l->endY, l->lastFlag);

		XDrawArcs(XtDisplay(w), XtWindow(w), l->gcx,
				&rect, 1);
	}

	l->endX = event->x;
	l->endY = event->y;
	l->lastFlag = event->state & ShiftMask;

	/*
	**  Really set this flag in the if statement
	*/
	if (l->drawn = (l->startX != l->endX && l->startY != l->endY)) {
		MKRECT(&rect, l->startX, l->startY, l->endX, l->endY, l->lastFlag);

		XDrawArcs(XtDisplay(w), XtWindow(w), l->gcx,
				&rect, 1);
	}
}

static void	release(Widget w, LocalInfo *l, 
				XButtonEvent *event, OpInfo *info) 
{
	XArc		rect;
	XRectangle	undo;
	int		mask;

	/*
	**  Check to make sure all buttons are up, before doing this
	*/
	mask = Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask;
	switch (event->button) {
	case Button1:	mask ^= Button1Mask; break;
	case Button2:	mask ^= Button2Mask; break;
	case Button3:	mask ^= Button3Mask; break;
	case Button4:	mask ^= Button4Mask; break;
	case Button5:	mask ^= Button5Mask; break;
	}
	if ((event->state & mask) != 0)
		return;

	if (l->drawn && info->surface == opWindow)  {
		MKRECT(&rect, l->startX, l->startY, l->endX, l->endY, l->lastFlag);

		XDrawArcs(XtDisplay(w), XtWindow(w), l->gcx,
				&rect, 1);
	}

        if (info->surface == opWindow && info->isFat)
		return;

	UndoStart(w, info);

	MKRECT(&rect, l->rx, l->ry, event->x, event->y, l->lastFlag);
	XDrawArcs(XtDisplay(w), info->drawable, info->first_gc, &rect, 1);

	if (info->surface == opPixmap) {
		XYtoRECT(l->rx, l->ry, event->x, event->y, &undo);
		UndoSetRectangle(w, &undo);
		PwUpdate(w, &undo, False);
	}
}

/*
**  Those public functions
*/
void *ArcAdd(Widget w)
{
	LocalInfo	*l = (LocalInfo*)XtMalloc(sizeof(LocalInfo));

	XtVaSetValues(w, XtNcompress, True, NULL);
	OpAddEventHandler(w, opWindow, ButtonPressMask, FALSE, (OpEventProc)press, l);
	OpAddEventHandler(w, opWindow, ButtonMotionMask, FALSE, (OpEventProc)motion, l);
	OpAddEventHandler(w, opWindow|opPixmap, ButtonReleaseMask, FALSE, (OpEventProc)release, l);
	SetCrossHairCursor(w);
	l->gcx = GetGCX(w);
	return l;
}
void ArcRemove(Widget w, LocalInfo *l)
{
	OpRemoveEventHandler(w, opWindow, ButtonPressMask, FALSE, (OpEventProc)press, l);
	OpRemoveEventHandler(w, opWindow, ButtonMotionMask,FALSE, (OpEventProc)motion, l);
	OpRemoveEventHandler(w, opWindow|opPixmap, ButtonReleaseMask, FALSE, (OpEventProc)release, l);
	XtFree((XtPointer)l);
}