#include <stdio.h>
#include "inforegion.h"
#include "tnz4.h"
/*---------------------------------------------------------------------------*/

void getInfoRegion(
	register INFO_REGION *region,
	int x1_out, int y1_out, int x2_out, int y2_out, int scale,
	int width_in, int height_in)
{

	/*
   *    I suffissi _in e _out sono relativi alle immagini di
   *    input e output, cioe' all'immagine sorgente (input)
   *    ca cui prendere (leggere) la regione voluta (output).
   */

	register int x1_in, y1_in, x2_in, y2_in;

#define SWAP(a, b)        \
	{                     \
		register int tmp; \
		tmp = a;          \
		a = b;            \
		b = tmp;          \
	}

	/* Scambia le coordinate della regione da leggere se invertite */
	if (x1_out > x2_out)
		SWAP(x1_out, x2_out);
	if (y1_out > y2_out)
		SWAP(y1_out, y2_out);

#ifdef DEBUG
	/* Controllo della consistenza delle coordinate della regione */
	if (((x2_out - x1_out) < 0) || ((y2_out - y1_out) < 0))
		printf("warning: bad region coord.\n");
#endif

	/* Copia delle coordinate della regione per region globale */
	region->x1 = x1_out;
	region->y1 = y1_out;
	region->x2 = x2_out;
	region->y2 = y2_out;

	/* Imposta le dimensioni dell'immagine in output */
	if (scale <= 0) {
		printf("error: scale value negative or zero\n");
		return;
	} else {
		region->xsize = ((x2_out - x1_out + 1) - 1) / scale + 1;
		region->ysize = ((y2_out - y1_out + 1) - 1) / scale + 1;
	}

	/* Passo sull'asse delle y e delle x */
	region->step = scale;

	/* Coordinate immagine sorgente */
	x1_in = 0;
	y1_in = 0;
	x2_in = width_in - 1;
	y2_in = height_in - 1;

	/* Dimensioni immagine sorgente */
	region->lx_in = width_in;
	region->ly_in = height_in;

	/* Numero di righe e colonne dell'immagine sorgente da scandire */
	region->scanNcol = region->xsize;
	region->scanNrow = region->ysize;

	/* Coordinate all'interno dell'immagine sorgente, da cui deve
   * partire la scansione.
   */
	region->startScanRow = y1_out;
	region->startScanCol = x1_out - x1_in;

	/* 
   * Questi offset sono relativi al buffer di uscita, nel caso
   * in cui una parte della regione sfora rispetto all'immagine
   * sorgente.
   */
	region->x_offset = 0;
	region->y_offset = 0;

	/* La regione sfora sulla destra e sulla sinistra */
	if (x2_out > x2_in && x1_out < x1_in) {
		region->scanNcol = width_in / scale;
		region->x_offset = (x1_in - x1_out) / scale;
		region->startScanCol = 0;
	} else {
		/* La regione sfora solo sulla destra */
		if (x2_out > x2_in) {
			region->scanNcol = (x2_in - x1_out) / scale + 1;
			region->x_offset = 0;
		} else
			/* La regione sfora solo sulla sinistra */
			if (x1_out < x1_in) {
			region->x_offset = (x1_in - x1_out) / scale;
			region->scanNcol = (x2_out - x1_in) / scale + 1;
			region->startScanCol = 0;
		}
	}

	/* La regione sfora in alto e in basso */
	if (y2_out > y2_in && y1_out < y1_in) {
		region->scanNrow = height_in / scale;
		region->y_offset = (y1_in - y1_out) / scale;
		region->startScanRow = 0;
	} else {
		/* La regione sfora solo in alto */
		if (y2_out > y2_in) {
			region->scanNrow = (y2_in - y1_out) / scale + 1;
			region->y_offset = 0;
		} else
			/* La regione sfora solo in basso */
			if (y1_out < y1_in) {
			region->scanNrow = (y2_out - y1_in) / scale + 1;
			region->y_offset = (y1_in - y1_out) / scale;
			region->startScanRow = 0;
		}
	}
}

/*---------------------------------------------------------------------------*/

int get_info_region(EXT_INFO_REGION *region,
					int x1_out, int y1_out, int x2_out, int y2_out, int scale,
					int width_in, int height_in, int orientation)
{

	/*
   *    I suffissi _in e _out sono relativi alle immagini di
   *    input e output, cioe' all'immagine sorgente (input)
   *    ca cui prendere (leggere) la regione voluta (output).
   */

	int x1_in, y1_in, x2_in, y2_in;
	int appo, appoNcol, appoNrow;

#define SWAP(a, b)        \
	{                     \
		register int tmp; \
		tmp = a;          \
		a = b;            \
		b = tmp;          \
	}

	/* Scambia le coordinate della regione da leggere se invertite */
	if (x1_out > x2_out)
		SWAP(x1_out, x2_out);
	if (y1_out > y2_out)
		SWAP(y1_out, y2_out);

	/* Controllo della consistenza delle coordinate della regione */
	if (((x2_out - x1_out) < 1) || ((y2_out - y1_out) < 1)) {
		printf("error: bad image read region coordinates\n");
		return FALSE;
	}

	/* Copia delle coordinate della regione per region globale */
	region->x1 = x1_out;
	region->y1 = y1_out;
	region->x2 = x2_out;
	region->y2 = y2_out;

	/* Imposta le dimensioni dell'immagine in output */
	if (scale <= 0) {
		printf("error: scale value negative or zero\n");
		return FALSE;
	} else {
		region->xsize = (x2_out - x1_out) / scale + 1;
		region->ysize = (y2_out - y1_out) / scale + 1;
	}

	/* Passo sull'asse delle y e delle x */
	region->step = scale;

	/* Coordinate immagine sorgente */
	x1_in = 0;
	y1_in = 0;
	x2_in = width_in - 1;
	y2_in = height_in - 1;

	/* Dimensioni immagine sorgente */
	region->lx_in = width_in;
	region->ly_in = height_in;

	/* Numero di righe e colonne dell'immagine sorgente da scandire */
	region->scanNcol = region->xsize;
	region->scanNrow = region->ysize;

	/* Coordinate all'interno dell'immagine sorgente, da cui deve
   * partire la scansione.
   */
	region->startScanRow = y1_out;
	region->startScanCol = x1_out;

	/* 
   * Questi offset sono relativi al buffer di uscita, nel caso
   * in cui una parte della regione sfora rispetto all'immagine
   * sorgente.
   */
	region->x_offset = 0;
	region->y_offset = 0;

	/* La regione sfora sulla destra e sulla sinistra */
	if (x2_out > x2_in && x1_out < x1_in) {
		region->scanNcol = (width_in - 1) / scale /* +1 */;
		region->x_offset = (x1_in - x1_out + scale - 1) / scale;
		region->startScanCol = 0;
	} else {
		/* La regione sfora solo sulla destra */
		if (x2_out > x2_in) {
			region->scanNcol = (x2_in - x1_out) / scale /* +1 */;
			region->x_offset = 0;
		} else
			/* La regione sfora solo sulla sinistra */
			if (x1_out < x1_in) {
			region->scanNcol = (x2_out - x1_in) / scale /* +1 */;
			region->x_offset = (x1_in - x1_out + scale - 1) / scale;
			region->startScanCol = 0;
		}
	}

	/* La regione sfora in alto e in basso */
	if (y2_out > y2_in && y1_out < y1_in) {
		region->scanNrow = (height_in - 1) / scale /* +1 */;
		region->y_offset = (y1_in - y1_out + scale - 1) / scale;
		region->startScanRow = 0;
	} else {
		/* La regione sfora solo in alto */
		if (y2_out > y2_in) {
			region->scanNrow = (y2_in - y1_out) / scale /* +1 */;
			region->y_offset = 0;
		} else
			/* La regione sfora solo in basso */
			if (y1_out < y1_in) {
			region->scanNrow = (y2_out - y1_in) / scale /* +1 */;
			region->y_offset = (y1_in - y1_out + scale - 1) / scale;
			region->startScanRow = 0;
		}
	}

	appoNcol = MIN((region->scanNcol * scale), width_in);
	appoNrow = MIN((region->scanNrow * scale), height_in);

	switch (orientation) {
		CASE TNZ_TOPLEFT : region->buf_inc = 1;
		region->y_offset += region->scanNrow - 1;
		region->verso_x = 0;
		region->verso_y = -1;
		region->sxpix = region->startScanCol;
		region->sypix = height_in - region->startScanRow - appoNrow;
		region->sypix = MAX(0, region->sypix);
		CASE TNZ_TOPRIGHT : region->buf_inc = -1;
		region->y_offset += region->scanNrow - 1;
		region->x_offset += region->scanNcol - 1;
		region->verso_x = 0;
		region->verso_y = -1;
		region->sxpix = width_in - region->startScanCol - appoNcol;
		region->sypix = height_in - region->startScanRow - appoNrow;
		region->sxpix = MAX(0, region->sxpix);
		region->sypix = MAX(0, region->sypix);
		CASE TNZ_BOTRIGHT : region->buf_inc = -1;
		region->x_offset += region->scanNcol - 1;
		region->verso_x = 0;
		region->verso_y = 1;
		region->sxpix = width_in - region->startScanCol - appoNcol;
		region->sypix = region->startScanRow;
		CASE TNZ_BOTLEFT : region->buf_inc = 1;
		region->verso_x = 0;
		region->verso_y = 1;
		region->sxpix = region->startScanCol;
		region->sypix = region->startScanRow;
		CASE TNZ_LEFTOP : region->buf_inc = -region->xsize;
		region->y_offset += region->scanNrow - 1;
		region->verso_x = 1;
		region->verso_y = 0;
		region->sxpix = height_in - region->startScanRow - appoNrow;
		region->sypix = region->startScanCol;
		CASE TNZ_RIGHTOP : region->buf_inc = -region->xsize;
		region->y_offset += region->scanNrow - 1;
		region->x_offset += region->scanNcol - 1;
		region->verso_x = -1;
		region->verso_y = 0;
		if ((region->sxpix = height_in - region->startScanRow - appoNrow) < 0)
			region->sxpix = 0;
		if ((region->sypix = width_in - region->startScanCol - appoNcol) < 0)
			region->sypix = 0;
		CASE TNZ_RIGHTBOT : region->buf_inc = region->xsize;
		region->x_offset += region->scanNcol - 1;
		region->verso_x = -1;
		region->verso_y = 0;
		region->sxpix = region->startScanRow;
		region->sypix = width_in - region->startScanCol - appoNcol;
		CASE TNZ_LEFTBOT : region->buf_inc = region->xsize;
		region->verso_x = 1;
		region->verso_y = 0;
		region->sxpix = region->startScanRow;
		region->sypix = region->startScanCol;
	DEFAULT:
		printf("error: bad orientation type\n");
		return FALSE;
	}
	/*  Se le righe sono verticali, allora ... */
	if (orientation > 4) {
		appo = region->lx_in;
		region->lx_in = region->ly_in;
		region->ly_in = appo;
		appo = region->scanNcol;
		region->scanNcol = region->scanNrow;
		region->scanNrow = appo;
	}
	return TRUE;
}

/*-------------------------------------------------------------------------*/

void print_info_region(EXT_INFO_REGION *region)
{
	if (!region)
		return;

	printf("IMAGE INPUT:\n");
	printf(" size              (lx_in, ly_in)........ (%d,%d)\n",
		   region->lx_in, region->ly_in);
	printf(" start offset      (sScanCol, sScanRow).. (%d,%d)\n",
		   region->startScanCol, region->startScanRow);
	printf(" region size       (scanNcol, scanNrow).. (%d,%d)\n",
		   region->scanNcol, region->scanNrow);
	printf(" bottom-left       (sxpix, sypix)........ (%d,%d)\n",
		   region->sxpix, region->sypix);
	printf(" scale             (step)................ (   %d)\n",
		   region->step);

	printf("IMAGE OUTPUT:\n");
	printf(" size              (xsize, ysize)........ (%d,%d)\n",
		   region->xsize, region->ysize);
	printf(" start offset      (x_offset, y_offset).. (%d,%d)\n",
		   region->x_offset, region->y_offset);
	printf(" verso             (verso_x, verso_y).... (%d,%d)\n",
		   region->verso_x, region->verso_y);
	printf(" buffer increment  (buf_inc)............. (   %d)\n",
		   region->buf_inc);
}