#include "xgrafixint.h"
#include <stdlib.h>


// Function int C_UpdateCrosshairProc(ClientData cl, Tcl_Interp *interp, argc) {{{
int C_UpdateCrosshairProc(ClientData cl, Tcl_Interp *interp, int argc,
						char **argv)
{
	double xCoord=0,yCoord=0;
	int x,y;
	WindowType theWindow = theWindowArray[atoi(argv[1])];

	x=atoi(argv[2]);
	y=atoi(argv[3]);

	if (x < theCrosshairx1)
		x = theCrosshairx1;
	else if (x > theCrosshairx2)
		x = theCrosshairx2;

	if (y < theCrosshairy1)
		y = theCrosshairy1;
	else if (y > theCrosshairy2)
		y = theCrosshairy2;

	/*****************************/
	/* Updating the Coordinates. */

	if (Is_X_Log(theWindow))
		xCoord=pow(10.0, x * theCrosshairmx + theCrosshairbx);
	else
		xCoord=x * theCrosshairmx + theCrosshairbx;

	if (Is_Y_Log(theWindow))
		yCoord=pow(10.0, y * theCrosshairmy + theCrosshairby);
	else
		yCoord=y * theCrosshairmy + theCrosshairby;

	if (snprintf(TclCommand, TclCommand_MAX, "%g %g\n", xCoord, yCoord) == -1) {
		fprintf(stderr, "Warning: TclCommand truncated at %s:%d\n", __FILE__, __LINE__);
	}
	interp->result=TclCommand;
	return TCL_OK;
} // }}}

// Function int C_SetCrosshairParametersProc(ClientData cl, Tcl_Interp *inter {{{
int C_SetCrosshairParametersProc(ClientData cl, Tcl_Interp *interp, int argc,
						char **argv)
{
	LabelType       label_Ptr;
	WindowType theWindow = theWindowArray[atoi(argv[1])];

	theCrosshairx1 = theWindow->ulxc + 1;
	theCrosshairy1 = theWindow->ulyc + 1;
	theCrosshairx2 = theWindow->lrxc - 1;
	theCrosshairy2 = theWindow->lryc - 1;

	label_Ptr = theWindow->label;

	if (Is_X_Log(theWindow)) {
		theCrosshairmx =
			log10(max(label_Ptr->X_Max / (label_Ptr->X_Min+DBL_MIN), DBL_MIN)) /
			(theCrosshairx2 - theCrosshairx1 + DBL_MIN);
		theCrosshairbx =
			(log10(max(label_Ptr->X_Min, DBL_MIN)) * theCrosshairx2 -
			 log10(max(label_Ptr->X_Max, DBL_MIN)) * theCrosshairx1) /
			(theCrosshairx2 - theCrosshairx1 + DBL_MIN);
	} else {
		theCrosshairmx =
			(label_Ptr->X_Max - label_Ptr->X_Min) /
			(theCrosshairx2 - theCrosshairx1 + DBL_MIN);
		theCrosshairbx =
			(label_Ptr->X_Min * theCrosshairx2 -
			 label_Ptr->X_Max * theCrosshairx1) /
			(theCrosshairx2 - theCrosshairx1 + DBL_MIN);
	}
	if (Is_Y_Log(theWindow)) {
		theCrosshairmy =
			log10(max(label_Ptr->Y_Max / (label_Ptr->Y_Min + DBL_MIN), DBL_MIN)) /
			(theCrosshairy1 - theCrosshairy2 + DBL_MIN);
		theCrosshairby =
			(log10(max(label_Ptr->Y_Min, DBL_MIN)) * theCrosshairy1 -
			 log10(max(label_Ptr->Y_Max, DBL_MIN)) * theCrosshairy2) /
			(theCrosshairy1 - theCrosshairy2 + DBL_MIN);
	} else {
		theCrosshairmy =
			(label_Ptr->Y_Max - label_Ptr->Y_Min) /
			(theCrosshairy1 - theCrosshairy2 + DBL_MIN);
		theCrosshairby =
			(label_Ptr->Y_Min * theCrosshairy1 -
			 label_Ptr->Y_Max * theCrosshairy2) /
			(theCrosshairy1 - theCrosshairy2 + DBL_MIN);
	}

	return TCL_OK;
} // }}}

// Modeline for ViM {{{1
// vim:set ts=4:
// vim600:fdm=marker fdl=0 fdc=3:
// 1}}}