/*

    viDOOM - level editor for DOOM

    Copyright (C) 2000  Ian Cowburn (ianc@noddybox.demon.co.uk)

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    -------------------------------------------------------------------------

    Test program for GFX interface
*/
static const char rcs_id[]="$Id$";

#include "config.h"
#include "globals.h"
#include <stdio.h>
#include <ctype.h>
#include <time.h>
#include "gfx.h"
#include "platgui.h"
#include "editvar.h"
#include "mem.h"

#define SCRW    640
#define SCRH    480

#define RND(x)	(rand()%(x))
#define RCOL	V_RGB(RND(255),RND(255),RND(255))

void TestPrint(void)
{
    int f;

    GFX_clear(BLACK);

    GFX_print(0,0,WHITE,"Top left");
    GFX_print(0,SCRH-GFX_fh(),WHITE,"Bottom left");
    GFX_print(SCRW-GFX_fw()*strlen("Top right"),0,WHITE,"Top right");
    GFX_print(SCRW-GFX_fw()*strlen("Bottom right"),
    		SCRH-GFX_fh(),WHITE,"Bottom right");

    for(f=1;f<4;f++)
        GFX_print(0,100+f*GFX_fh(),WHITE,"Row %d",f);

    GFX_redraw();
    GFX_waitkey(NULL);
}


void TestMouse(void)
{
    GFXEvent e;
    int q;
    int f;

    GFX_clear(BLACK);

    q=FALSE;

    while(!q)
    	{
	GFX_redraw();
	GFX_await_input_full(&e);

	switch(e.type)
	    {
	    case GFX_KEY_EVENT:
	        if (e.key.code==GFX_ESC)
		    q=TRUE;

	        if (e.key.code==GFX_ENTER)
		    GFX_clear(BLACK);
		break;

	    case GFX_MOUSE_EVENT:
		f=0;
	        if (e.mouse.b&GFX_BUTLEFT)
		    f|=0xff0000;
	        if (e.mouse.b&GFX_BUTMIDDLE)
		    f|=0xff00;
	        if (e.mouse.b&GFX_BUTRIGHT)
		    f|=0xff;

		if (f==0)
		    f=0x808080;

		GFX_frect(0,0,SCRW,GFX_fh(),BLACK);
		GFX_print(0,0,WHITE,"x:%-4d  y:%-4d  b:%c%c%c",
				e.mouse.x,e.mouse.y,
				e.mouse.b&GFX_BUTLEFT ? 'L':' ',
				e.mouse.b&GFX_BUTMIDDLE ? 'M':' ',
				e.mouse.b&GFX_BUTRIGHT ? 'R':' ');

		GFX_plot(e.mouse.x,e.mouse.y,f);
		break;
	    }
	}
}


void TestRect(void)
{
    int f,w;
    int ox,oy;

    ox=20;
    oy=100;

    for(w=3;w>-4;w--)
    	{
	GFX_clear(BLACK);

	GFX_print(0,0,WHITE,"Width/height %d",w);

	for(f=0;f<5;f++)
	    {
	    GFX_plot(ox+f*20,oy+20,WHITE);
	    GFX_rect(ox+f*20+10,oy+20,w,w,WHITE);

	    GFX_plot(ox+f*20,oy+40,WHITE);
	    GFX_frect(ox+f*20+10,oy+40,w,w,WHITE);

	    GFX_plot(ox+f*20,oy+60,WHITE);
	    GFX_rect(ox+f*20+10,oy+60,w,w*2,WHITE);

	    GFX_plot(ox+f*20,oy+80,WHITE);
	    GFX_frect(ox+f*20+10,oy+80,w,w*2,WHITE);

	    GFX_plot(ox+f*20,oy+100,WHITE);
	    GFX_rect(ox+f*20+10,oy+100,w*2,w,WHITE);

	    GFX_plot(ox+f*20,oy+120,WHITE);
	    GFX_frect(ox+f*20+10,oy+120,w*2,w,WHITE);
	    }

	GFX_redraw();
	GFX_waitkey(NULL);
	}
}


void TestDim(void)
{
    GFX_clear(BLACK);

    GFX_line(0,0,SCRW-1,0,WHITE);
    GFX_line(0,SCRH-1,SCRW-1,SCRH-1,WHITE);

    GFX_line(0,0,0,SCRH-1,WHITE);
    GFX_line(SCRW-1,0,SCRW-1,SCRH-1,WHITE);

    GFX_line(0,0,SCRW-1,SCRH-1,WHITE);
    GFX_line(SCRW-1,0,0,SCRH-1,WHITE);

    GFX_print(20,SCRH/2,WHITE,"GFX_line()");

    GFX_redraw();
    GFX_waitkey(NULL);

    GFX_clear(BLACK);

    GFX_rect(0,0,SCRW,SCRH,WHITE);
    GFX_print(20,SCRH/2,WHITE,"GFX_rect()");

    GFX_redraw();
    GFX_waitkey(NULL);

    GFX_clear(BLACK);

    GFX_frect(0,0,SCRW,SCRH,RED);
    GFX_print(20,SCRH/2,WHITE,"GFX_frect()");

    GFX_redraw();
    GFX_waitkey(NULL);
}


void TestCol(void)
{
    GFX_clear(BLACK);

    GFX_frect(0,0,SCRW,10,WHITE);
    GFX_print(0,10,WHITE,"WHITE");

    GFX_frect(0,20,SCRW,10,RED);
    GFX_print(0,30,RED,"RED");

    GFX_frect(0,40,SCRW,10,BLUE);
    GFX_print(0,50,BLUE,"BLUE");

    GFX_frect(0,60,SCRW,10,GREEN);
    GFX_print(0,70,GREEN,"GREEN");

    GFX_frect(0,80,SCRW,10,GREY(128));
    GFX_print(0,90,GREY(128),"GREY(128)");

    GFX_redraw();
    GFX_waitkey(NULL);
}

static void TestDraw(void)
{
    int f;

    GFX_clear(BLACK);

    for(f=0;f<100;f++)
    	GFX_plot(f,10,WHITE);
    GFX_print(0,22,WHITE,"GFX_plot()");

    GFX_line(0,40,99,40,WHITE);
    GFX_print(0,42,WHITE,"GFX_line()");

    GFX_rect(0,60,100,10,WHITE);
    GFX_print(0,70,WHITE,"GFX_rect()");

    GFX_frect(0,80,100,10,WHITE);
    GFX_print(0,90,WHITE,"GFX_frect()");

    GFX_circle(50,150,50,WHITE);
    GFX_print(50,150,WHITE,"GFX_circle()");

    GFX_fcircle(50,250,50,GREEN);
    GFX_print(50,250,WHITE,"GFX_fircle()");

    for(f=101;f>=99;f--)
    	{
	GFX_line(f,0,f,100,RED);
	GFX_redraw();
	GFX_waitkey(NULL);
	}
}


static void TestBm(void)
{
    static unsigned char data[64]=
				    {
					0,0,0,0,0,0,0,0,
					0,1,1,1,1,1,1,0,
					0,1,2,2,0,0,1,0,
					0,1,2,2,0,0,1,1,
					0,1,0,0,2,2,1,1,
					0,1,0,0,2,2,1,0,
					0,1,1,1,1,1,1,0,
					0,0,0,1,1,0,0,0,
				    };
    GFX_IMAGE i;
    GFX_BITMAP bm;
    int f;

    bm.w=8;
    bm.h=8;
    bm.pal[0]=BLACK;
    bm.pal[1]=RED;
    bm.pal[2]=WHITE;
    bm.data=data;

    i=GFX_create_image(&bm);
    GFX_clear(GREEN);

    for(f=0;f<100;f++)
	{
    	GFX_draw_image(i,f,f);
	GFX_redraw();
	}

    GFX_waitkey(NULL);
    GFX_fill_screen(i);
    GFX_redraw();
    GFX_waitkey(NULL);

    GFX_destroy_image(i);
}


void TestKey(void)
{
    GFXEvent e;
    int q;

    q=FALSE;

    GFX_clear(BLACK);

    while(!q)
    	{
	GFX_print(0,0,WHITE,"Press key or mouse button to quit");
	GFX_redraw();
	GFX_clear(BLACK);
	GFX_await_input(&e);

	switch(e.type)
	    {
	    case GFX_KEY_EVENT:
		GFX_print(0,100,WHITE,".code   %d",e.key.code);
		GFX_print(0,100+GFX_fh()*2,WHITE,".ascii  %d (%c)",e.key.ascii,
				isprint(e.key.ascii) ? e.key.ascii : '?');

		GFX_print(0,100+GFX_fh()*4,WHITE,".modif  %c%c%c",
					e.key.shift ? 'S':' ',
					e.key.ctrl ? 'C':' ',
					e.key.alt ? 'A':' ');
		break;

	    case GFX_MOUSE_EVENT:
		q=TRUE;
		break;
	    }
	}
}


void TestGui(void)
{
    static PLAT_PICKLIST cpl[]=
			    {
				{"CPL 1",1},
				{"CPL 2",2},
				{"CPL 23",23},
				{"CPL 10",10},
				{"CPL 0",0},
    				{NULL,0},
			    };

    static char *pl_short[]=
    	{
	    "Picklist entry 0",
	    "Picklist entry 1", "Picklist entry 2", "Picklist entry 3",
	    NULL
	};

    static char *pl_d_short[]=
    	{
	    "Picklist entry 0", "Picklist entry 1", 
	    NULL
	};

    static char *pl[]=
    	{
	    "Picklist entry 0",
	    "Picklist entry 1", "Picklist entry 2", "Picklist entry 3",
	    "Picklist entry 4", "Picklist entry 5", "Picklist entry 6",
	    "Picklist entry 7", "Picklist entry 8", "Picklist entry 9",
	    "Picklist entry 10", "Picklist entry 11", "Picklist entry 12",
	    "Picklist entry 13", "Picklist entry 14", "Picklist entry 15",
	    "Picklist entry 16", "Picklist entry 17", "Picklist entry 18",
	    "Picklist entry 19", "Picklist entry 20", "Picklist entry 21",
	    "Picklist entry 22", "Picklist entry 23", "Picklist entry 24",
	    "Picklist entry 25", "Picklist entry 26", "Picklist entry 27",
	    "Picklist entry 28", "Picklist entry 29", "Picklist entry 30",
	    "Picklist entry 31", "Picklist entry 32", "Picklist entry 33",
	    "Picklist entry 34", "Picklist entry 35", "Picklist entry 36",
	    "Picklist entry 37", "Picklist entry 38", "Picklist entry 39",
	    "Picklist entry 40", "Picklist entry 41", "Picklist entry 42",
	    "Picklist entry 43", "Picklist entry 44", "Picklist entry 45",
	    "Picklist entry 46", "Picklist entry 47", "Picklist entry 48",
	    "Picklist entry 49", "Picklist entry 50", "Picklist entry 51",
	    "Picklist entry 52", "Picklist entry 53", "Picklist entry 54",
	    "Picklist entry 55", "Picklist entry 56", "Picklist entry 57",
	    "Picklist entry 58", "Picklist entry 59", "Picklist entry 60",
	    "Picklist entry 61", "Picklist entry 62", "Picklist entry 63",
	    "Picklist entry 64", "Picklist entry 65", "Picklist entry 66",
	    "Picklist entry 67", "Picklist entry 68", "Picklist entry 69",
	    "Picklist entry 70", "Picklist entry 71", "Picklist entry 72",
	    "Picklist entry 73", "Picklist entry 74", "Picklist entry 75",
	    "Picklist entry 76", "Picklist entry 77", "Picklist entry 78",
	    "Picklist entry 79", "Picklist entry 80", "Picklist entry 81",
	    "Picklist entry 82", "Picklist entry 83", "Picklist entry 84",
	    "Picklist entry 85", "Picklist entry 86", "Picklist entry 87",
	    "Picklist entry 88", "Picklist entry 89", "Picklist entry 90",
	    "Picklist entry 91", "Picklist entry 92", "Picklist entry 93",
	    "Picklist entry 94", "Picklist entry 95", "Picklist entry 96",
	    "Picklist entry 97", "Picklist entry 98", "Picklist entry 99",
	    NULL
	};

    static PLAT_IMG_PICKLIST ipl[]=
			    {
				{"IPL 1 (BLUE)",NULL,1},
				{"IPL 2",NULL,2},
				{"IPL 23 (GREEN)",NULL,23},
				{"IPL 10",NULL,10},
				{"IPL 0 (RED)",NULL,0},
    				{NULL,NULL,0},
			    };

    static PLAT_MENU ch2[]= {
    				{"Opt3",3,NULL},
    				{"Opt4",4,NULL},
    				{NULL,0,NULL},
			    };

    static PLAT_MENU ch1[]= {
    				{"Opt1",1,NULL},
    				{"Opt2",2,NULL},
    				{"Child 2",0,ch2},
    				{NULL,0,NULL},
			    };

    static char *pl_text[17]={"Opt 1","Opt 2","Opt 3","Opt 4","Opt 5",
			      "Opt 6","Opt 7","Opt 8","Opt 9","Opt 10",
			      "Opt 11","Opt 12","Opt 13","Opt 14","Opt 15",
			      "Opt 16",
			      "A very very very very long option"};

    static PLAT_DIALOG dialog[6]={
				    {"String",PLAT_DIAL_STRING,{0}},
				    {"Integer",PLAT_DIAL_INTEGER,{0}},
				    {"Double",PLAT_DIAL_DOUBLE,{0}},
				    {"Picklist 1",PLAT_DIAL_PICKLIST,{0}},
				    {"Picklist 2",PLAT_DIAL_PICKLIST,{0}},
				    {"Picklist 3",PLAT_DIAL_PICKLIST,{0}},
				 };

    static PLAT_RADIO radio[]= {
				{"Radio 0",0},
				{"Radio 2",2},
				{"Radio 4",4},
				{"Radio 8",8},
				{"Radio -33",-33},
				{NULL,0}
			       };

    int cur_radio=4;

    static PLAT_MULTI multi[]= {
				{"Opt 1",0,TRUE},
				{"Opt 2",0,FALSE},
				{"Opt 3",0,FALSE},
				{"Group 1.1",1,TRUE},
				{"Group 1.2",1,FALSE},
				{"Group 1.3",1,FALSE},
				{"Opt 4",0,FALSE},
				{"Group 2.1",2,FALSE},
				{"Group 2.2",2,TRUE},
				{"Opt 5",0,FALSE},
				{NULL,0,0}
			       };

    PLAT_DIALOG work_dial[6];

    static PLAT_MENU menu[]={
				{"Recursive",0,menu},
				{"Child 1",0,ch1},
				{"Test fsel and file_view",100,NULL},
				{"Test text edit",101,NULL},
				{"Test picklist",102,NULL},
				{"Test client data picklist",103,NULL},
				{"Test client data image picklist",104,NULL},
				{"Test DIALOG",105,NULL},
				{"Test GUI_alert()",106,NULL},
				{"Test GUI_yesno()",107,NULL},
				{"Test GUI_yesno_all()",108,NULL},
				{"Test GUI_radio_box()",109,NULL},
				{"Test GUI_multi_box()",110,NULL},
				{"Quit",999,NULL},
				{NULL,0,NULL},
			    };
    static char *text=NULL;

    int opt;
    char s[80];
    char *path;
    char *new;
    int ret;

    strcpy(dialog[0].data.s,"String");
    dialog[1].data.i=123;
    dialog[2].data.d=1.23;

    dialog[3].data.pl.no=17;
    dialog[3].data.pl.current=0;
    dialog[3].data.pl.text=pl_text;

    dialog[4].data.pl.no=2;
    dialog[4].data.pl.current=0;
    dialog[4].data.pl.text=pl_d_short;

    dialog[5].data.pl.no=100;
    dialog[5].data.pl.current=0;
    dialog[5].data.pl.text=pl;

    opt=0;

    if (!text)
    	{
	GFX_BITMAP bm;
	int c;
	int f;

	text=Strdup("Test text\nof two lines follwed by\n"
		    "a big line (nnA - nnP):\n"
			"123456790A 123456790B 123456790C 123456790D "
			"123456790E 123456790F 123456790G 123456790H "
			"123456790I 123456790J 123456790K 123456790L "
			"123456790M 123456790N 123456790O 123456790P <END>"
			);
	bm.pal[0]=BLACK;

	c=0xff;

	for(f=0;f<3;f++)
	    {
	    int w,h;

	    w=256-(f)*64;
	    h=256-(f)*64;
	    bm.w=w;
	    bm.h=h;
	    bm.pal[1]=c;
	    bm.data=Grab(w*h);

	    memset(bm.data,1,w*h);
	    ipl[f*2].img=GFX_create_image(&bm);
	    Release(bm.data);
	    c=c<<8;
	    }
	}

    while(opt!=999)
    	{
	opt=GUI_menu("Menu",10,10,menu,-1);

	switch(opt)
	    {
	    case 100:
		if (GUI_yesno("Use filter?"))
		    path=GUI_fsel("File selector","",".c");
		else
		    path=GUI_fsel("File selector","",NULL);

		if (path)
		    {
		    GUI_view_file(path,path);
		    Release(path);
		    }

	    	break;

	    case 101:
	    	new=GUI_text_edit("Test",text);

		if (new)
		    {
		    Release(text);
		    text=new;
		    }
		break;

	    case 102:
	    	ret=GUI_picklist("Long Picklist",pl);
		sprintf(s,"You chose option|%d",ret);
		GUI_yesno(s);

	    	ret=GUI_picklist("Short Picklist",pl_short);
		sprintf(s,"You chose option|%d",ret);
		GUI_yesno(s);
		break;

	    case 103:
	    	ret=GUI_client_picklist("Client Picklist",cpl,-1);
		sprintf(s,"You chose option|%d",ret);
		GUI_yesno(s);
		break;

	    case 104:
	    	ret=GUI_image_picklist("Image Picklist",ipl,-1);
		sprintf(s,"You chose option|%d",ret);
		GUI_yesno(s);
		break;

	    case 105:
		memcpy(&work_dial,&dialog,sizeof(dialog));

	    	if (GUI_dialog("Dialog",6,work_dial))
		    memcpy(&dialog,&work_dial,sizeof(dialog));
		break;

	    case 106:
	    	GUI_alert("This is a long title","Text1","OK");
	    	GUI_alert("T","Longer text 1|Longer text 2","OK");
	    	GUI_alert("T","Text1","Longer button text");
		break;

	    case 107:
		if (GUI_yesno("Pick"))
		    GUI_alert("Answer","YES","OK");
		else
		    GUI_alert("Answer","NO","OK");

		if (GUI_yesno("With a much much much MUCH longer string|"
						"and some multiple|lines"))
		    GUI_alert("Answer","YES","OK");
		else
		    GUI_alert("Answer","NO","OK");

		break;

	    case 108:
	        GUI_start_yesno_all();

		if (GUI_yesno_all("Pick"))
		    GUI_alert("Pick","YES","OK");
		else
		    GUI_alert("Pick","NO","OK");

		if (GUI_yesno_all("With a much much much MUCH longer string|"
						"and some multiple|lines"))
		    GUI_alert("Long string","YES","OK");
		else
		    GUI_alert("Long string","NO","OK");

		if (GUI_yesno_all("Pick 2"))
		    GUI_alert("Pick 2","YES","OK");
		else
		    GUI_alert("Pick 2","NO","OK");

		if (GUI_yesno_all("Pick 3"))
		    GUI_alert("Pick 3","YES","OK");
		else
		    GUI_alert("Pick 3","NO","OK");

	    	break;

	    case 109:
	    	ret=GUI_radio_box("Radio Box",radio,cur_radio,-666);
		sprintf(s,"You chose option|%d",ret);
		GUI_yesno(s);
		cur_radio=ret;
	    	break;

	    case 110:
	    	GUI_multi_box("Multi Box",multi);
	    	break;

	    case 999:
	    	break;

	    default:
		sprintf(s,"You chose option|%d",opt);
		GUI_alert("Other",s,"OK");
		break;
	    }
	}
}

#define PERF_COUNT	1000000

time_t PerfClr(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
    	GFX_clear(BLACK);

    return time(NULL)-start;
}


time_t PerfRect(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
    	GFX_rect(10,10,600,600,WHITE);

    return time(NULL)-start;
}


time_t PerfFRect(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
    	GFX_frect(10,10,600,600,WHITE);

    return time(NULL)-start;
}


time_t PerfPlot(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
    	GFX_plot(10,10,WHITE);

    return time(NULL)-start;
}


time_t PerfLine(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
    	GFX_line(10,10,610,610,WHITE);

    return time(NULL)-start;
}


time_t PerfLRect(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
	{
    	GFX_line(10,10,610,610,WHITE);
    	GFX_line(610,610,610,610,WHITE);
    	GFX_line(610,610,10,610,WHITE);
    	GFX_line(10,610,10,10,WHITE);
	}

    return time(NULL)-start;
}


time_t PerfCirc(time_t start)
{
    int f;

    for(f=0;f<PERF_COUNT;f++)
    	GFX_circle(10,10,600,WHITE);

    return time(NULL)-start;
}


void TestPerformance(void)
{
    static struct
    	{
	char	*t;
	time_t	(*func)(time_t);
	} test[]= {
		    {"Clear screen",PerfClr},
		    {"Rectangles",PerfRect},
		    {"Filled rectangles",PerfFRect},
		    {"Plot",PerfPlot},
		    {"Line",PerfLine},
		    {"Rectangles using GFX_line",PerfLRect},
		    {"Circles",PerfCirc},
		    {NULL,NULL}
		  };

    PLAT_MENU pm[32];
    int quit;
    time_t t;
    int f;

    quit=FALSE;

    GFX_clear(BLACK);
    GFX_print(0,0,RED,"Select:");

    while(!quit)
    	{
	f=0;
	while(test[f].t)
	    {
	    pm[f].text=test[f].t;
	    pm[f].client_index=f;
	    pm[f].child=NULL;
	    f++;
	    }

	pm[f].text=NULL;

	GFX_redraw();

	if ((f=GUI_menu("Performance",16,16,pm,-1))==-1)
	    quit=TRUE;
	else
	    {
	    t=time(NULL);
	    while (time(NULL)==t);

	    t=test[f].func(time(NULL));

	    GFX_clear(BLACK);
	    GFX_print(0,0,WHITE,"Test %s completed in %ld seconds",test[f].t,t);
	    GFX_redraw();
	    }
	}
}




int viDOOM(int argc,char *argv[])
{
    static struct
    	{
	char	*t;
	void	(*func)(void);
	} test[]= {
		    {"Test printing",TestPrint},
		    {"Test mouse",TestMouse},
		    {"Test rectangles",TestRect},
		    {"Test screen dimensions",TestDim},
		    {"Test colours",TestCol},
		    {"Test drawing",TestDraw},
		    {"Test bitmap",TestBm},
		    {"Test keyboard",TestKey},
		    {"Test GUI",TestGui},
		    {"Test Performance",TestPerformance},
		    {NULL,NULL}
		  };

    PLAT_MENU pm[32];
    int quit;
    int f;

    INI_Load("vidoom.ini");
    GFX_init();
    GFX_open(SCRW,SCRH);
    GUI_setscreen(SCRW,SCRH);

    quit=FALSE;

    while(!quit)
    	{
	GFX_clear(BLACK);
	GFX_print(0,0,RED,"Select:");

	f=0;
	while(test[f].t)
	    {
	    pm[f].text=test[f].t;
	    pm[f].client_index=f;
	    pm[f].child=NULL;
	    f++;
	    }

	pm[f].text=NULL;

	GFX_redraw();

	if ((f=GUI_menu("GFXTEST",16,16,pm,-1))==-1)
	    quit=TRUE;
	else
	    test[f].func();
	}

    return(EXIT_SUCCESS);
}