/*---------------------------------------------------------------------------*    baker transformation* ---------------------------------------------------------------------------*/#include <tina/all_tina.h>#include "bmp.h"
#define MAXPATHLEN 64static char directory_name[MAXPATHLEN];static char file_name[MAXPATHLEN];static char pathname[MAXPATHLEN];
static void *pdir=0, *pfile=0;static int SCRAM_n = 1;static Tv *tv = NULL;static Tv *tv1=NULL;/*---------------------------------------------------------------------------     To generate the scrambling mapping-matrix of baker transformation. ---------------------------------------------------------------------------*/void baker_matrix(int** r, int** c, int height, int width)
{
    int x, y, x1, y1;
	int med = height / 2;
	
	printf("\nBaker transform\n");
	for(x = 0; x < med; x++)
	{
		for(y = 0; y < width; y++)
		{/*
			x1 = 2*x + (y%2);
			y1 = (y - (y%2)) / 2;
			r[height-1-y][x] = height-1-y1;
			c[height-1-y][x] = x1;*/			r[x][y] = 2*x + (y%2);
			c[x][y] = (y - (y%2)) / 2;
		}
	}
	for(x = med; x < height; x++)
	{
		for(y =0; y < width; y++)
		{/*
			x1 = 2*x + y%2 - width;
			y1 = (y - (y%2)) / 2 + med;
			r[height-1-y][x] = height-1-y1;
			c[height-1-y][x] = x1;*/			r[x][y] = 2*x + y%2 - height;
			c[x][y] = (y - (y%2)) / 2 + med;
		}
	}
}/*---------------------------------------------------------------------------  To generate the inverse scrambling mapping-matrix of baker transformation. ---------------------------------------------------------------------------*/void r_baker_matrix(int** src_r,int** src_c, int height, int width){	int i,j,r,c;	int **trans_r, **trans_c;
	trans_r = int_matrix(height, width);
	trans_c = int_matrix(height, width);	baker_matrix(trans_r, trans_c, height, width);	printf("\nR_Baker transform\n");	for(i = 0; i < height; i++)
	{
		for(j = 0; j < width; j++)
		{
			r = trans_r[i][j];
			c = trans_c[i][j];
			src_r[r][c] = i;
			src_c[r][c] = j;
		}
	}	free_int_matrix(trans_r, height);
	free_int_matrix(trans_c, height);}static 	Imrect *read_image(void){	Imrect *srcIm;/*----------------Read the image---------------------------*/  	(void) strip_spaces(file_name);  	(void) strip_spaces(directory_name);  	(void) string_append(pathname, directory_name, "/", file_name, NULL);	srcIm = ReadGIF(pathname, 1);/*------------------------------------------------*/	return(srcIm);}/*---------------------------------------------------------------------------     baker transformation ---------------------------------------------------------------------------*/void Baker_Trans(int nTrans)
{
	Imrect *srcIm,*destIm,*tmpIm;
	int width, height;
	Imregion *roi;	int i,j,k;	int type;
	BYTE pix;/*	if (stack_check_types(IMRECT, NULL) == false)
	{
		error("Baker : wrong types on stack", warning);
		return;
	}	srcIm = (Imrect *) stack_pop(&type);*/	srcIm = read_image();	//srcIm = DrawRGB_proc();
	width = srcIm->width;
    	height = srcIm->height;
	if (width != height)
	{
		error("Baker:width != height", warning);
		return;
	}

	roi = srcIm->region;
	if (roi == NULL) return ;/*------------------------------------------------*/	int **trans_r, **trans_c;
	trans_r = int_matrix(height, width);
	trans_c = int_matrix(height, width);	baker_matrix(trans_r, trans_c, height, width);/*------------------------------------------------*/
	printf("\n\n=== Baker Transform begin: ===\n");	destIm = im_alloc( height, width, roi, int_v );	int r,c;
	for( k = 0; k < SCRAM_n; k++)
	{			for (i = 0; i < height  ; i++)
		{
			for (j = 0; j< width ; j++)
			{								IM_PIX_GET(srcIm, i, j, pix);
				IM_PIX_SET(destIm, trans_r[i][j], trans_c[i][j], pix);
			}
		}
 		tmpIm = srcIm;
		srcIm = destIm;
		destIm = tmpIm;	}/*----------------------Save the image as .gif--------------------------*/	char filename[64];	char string[25];	gcvt(k,5,string);	printf("string=%s\n",string);	char *filename0 ="result/Baker/";	strcpy(filename,filename0);	//strcat(filename,file_name);	strcat(filename,"Baker_");	strcat(filename, string);	strcat(filename,".gif");	//gif_write_file(srcIm,filename);	gif_write_file_color(srcIm,filename);	//strcat(filename,".bmp");	//ImrectToBMP8(srcIm,filename);//}/*------------------------------------------------*/	tv_imrect2(tv1, srcIm);	im_free(destIm);	free_int_matrix(trans_r, height);
	free_int_matrix(trans_c, height);	printf("=== Baker transform complete! ===\n");
}
/*---------------------------------------------------------------------------    inverse baker transformation ---------------------------------------------------------------------------*/void R_Baker_Trans(int nTrans)
{
	Imrect *srcIm,*destIm,*tmpIm;
	int width, height;
	Imregion *roi;	int i,j,k;	int type;
	BYTE pix;/*	if (stack_check_types(IMRECT, NULL) == false)
	{
		error("Baker : wrong types on stack", warning);
		return;
	}	srcIm = (Imrect *) stack_pop(&type);*/	srcIm = read_image();
	width = srcIm->width;
    	height = srcIm->height;
	if (width != height)
	{
		error("R_Baker:width != height", warning);
		return;
	}

	roi = srcIm->region;
	if (roi == NULL) return ;
/*------------------------------------------------*/	int **trans_r, **trans_c;
	trans_r = int_matrix(height, width);
	trans_c = int_matrix(height, width);	r_baker_matrix(trans_r, trans_c, height, width);/*------------------------------------------------*/
	printf("\n\n=== R_Baker Transform begin: ===\n");	destIm = im_alloc( height, width, roi, int_v );	int r,c;
	for( k = 0; k < SCRAM_n; k++)
	{			for (i = 0; i < height  ; i++)
		{
			for (j = 0; j< width ; j++)
			{								IM_PIX_GET(srcIm, i, j, pix);
				IM_PIX_SET(destIm, trans_r[i][j], trans_c[i][j], pix);
			}
		}
 		tmpIm = srcIm;
		srcIm = destIm;
		destIm = tmpIm;	}/*----------------------Save the image as .gif--------------------------*/	char filename[64];	char string[25];	gcvt(k,5,string);	printf("string=%s\n",string);	char *filename0 ="result/Baker/";	strcpy(filename,filename0);	strcat(filename,file_name);	strcat(filename,"+R_Baker_");	strcat(filename, string);	strcat(filename,".gif");	gif_write_file(srcIm,filename);/*------------------------------------------------*/	tv_imrect2(tv1, srcIm);	im_free(destIm);	free_int_matrix(trans_r, height);
	free_int_matrix(trans_c, height);	printf("=== R_Baker transform complete! ===\n");
}static void tv_choice_proc(choice)
int     choice;
{
    switch (choice)
    	{
    	case 0: tv_set_next(tv);
		break;
    	case 1: tv_set_next(tv1);
		break;
    	default:error("tv_choice_proc: unknown choice\n", warning);
		break;
    	}}static void scan_proc(void){    scan_files(directory_name,file_name);    tw_sglobal_reset(pdir);    tw_sglobal_reset(pfile);}void            Baker_tool(int x, int y)
{
	static void *tool = NULL;
	static void tv_choice_proc();	if (tool)
	{
		tw_show_tool(tool);
		return;
	}
	tool = (void *)tw_tool("Baker Scrambling tool", x, y);    	/* Initialise pathname from environment variable (or #define) */    	(void) environ_pathname_get(directory_name, file_name,				"TINA_IMAGE_DEFAULT",				"/home/wzz/newimscramdegree/result/Baker/gRGB.gif");	tv = tv_create("Baker original");
     	tv1 = tv_create("Baker scrambled");
        tw_choice("Tv choice", tv_choice_proc, 0, "original","scrambled", NULL);	tw_newrow();
	tw_newrow();	/*---------------------------*/  	pdir = (void *) tw_sglobal("Directory:", directory_name, 32);    	tw_button("scan", scan_proc, NULL);  	tw_newrow();  	pfile = (void*) tw_sglobal("File:", file_name, 32);  	tw_newrow();	/*---------------------------*/	tw_iglobal("Scrambling times = ", &SCRAM_n, 5);
	tw_newrow();
	tw_button("Baker", Baker_Trans,NULL);	tw_button("R_Baker", R_Baker_Trans,NULL);	tw_newrow();	tw_newrow();
	tw_end_tool();
}