/*
 *  newdemo.c	-	A demo program using PDCurses. The program 
 *			illustrates the use of colors for text output.
 *
 *  Hacks by [email protected] on 12/29/96
 *
 *  $Id: newdemo.c,v 1.37 2007/07/07 17:12:18 wmcbrine Exp $
 */

#include <stdio.h>
#include <signal.h>
#include <string.h>
#include <curses.h>
#include <stdlib.h>
#include <time.h>

int WaitForUser(void);
int SubWinTest(WINDOW *);
int BouncingBalls(WINDOW *);
void trap(int);

/* An ASCII map of Australia */

char *AusMap[17] =
{
	"                       A ",
	"           AA         AA ",
	"    N.T. AAAAA       AAAA ",
	"     AAAAAAAAAAA  AAAAAAAA ",
	"   AAAAAAAAAAAAAAAAAAAAAAAAA Qld.",
	" AAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
	" AAAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
	" AAAAAAAAAAAAAAAAAAAAAAAAAAAA ",
	"   AAAAAAAAAAAAAAAAAAAAAAAAA N.S.W.",
	"W.A. AAAAAAAAA      AAAAAA Vic.",
	"       AAA   S.A.     AA",
	"                       A  Tas.",
	""
};

/* Funny messages for the scroller */

char *messages[] =
{
	"Hello from the Land Down Under",
	"The Land of crocs, and a big Red Rock",
	"Where the sunflower runs along the highways",
	"The dusty red roads lead one to loneliness",
	"Blue sky in the morning and",
	"Freezing nights and twinkling stars",
	NULL
};

int WaitForUser(void)
{
	chtype ch;

	nodelay(stdscr, TRUE);
	halfdelay(50);

	ch = getch();

	nodelay(stdscr, FALSE);
	nocbreak();		/* Reset the halfdelay() value */
	cbreak();

	return (ch == '\033') ? ch : 0;
}

int SubWinTest(WINDOW *win)
{
	WINDOW *swin1, *swin2, *swin3;
	int w, h, sw, sh, bx, by;

	wattrset(win, 0);
	getmaxyx(win, h, w);
	getbegyx(win, by, bx);

	sw = w / 3;
	sh = h / 3;

	if ((swin1 = derwin(win, sh, sw, 3, 5)) == NULL)
		return 1;
	if ((swin2 = subwin(win, sh, sw, by + 4, bx + 8)) == NULL)
		return 1;
	if ((swin3 = subwin(win, sh, sw, by + 5, bx + 11)) == NULL)
		return 1;

	init_pair(8, COLOR_RED, COLOR_BLUE);
	wbkgd(swin1, COLOR_PAIR(8));
	werase(swin1);
	mvwaddstr(swin1, 0, 3, "Sub-window 1");
	wrefresh(swin1);

	init_pair(9, COLOR_CYAN, COLOR_MAGENTA);
	wbkgd(swin2, COLOR_PAIR(9));
	werase(swin2);
	mvwaddstr(swin2, 0, 3, "Sub-window 2");
	wrefresh(swin2);

	init_pair(10, COLOR_YELLOW, COLOR_GREEN);
	wbkgd(swin3, COLOR_PAIR(10));
	werase(swin3);
	mvwaddstr(swin3, 0, 3, "Sub-window 3");
	wrefresh(swin3);

	delwin(swin1);
	delwin(swin2);
	delwin(swin3);
	WaitForUser();

	return 0;
}

int BouncingBalls(WINDOW *win)
{
	chtype c1, c2, c3, ball1, ball2, ball3;
	int w, h, x1, y1, xd1, yd1, x2, y2, xd2, yd2, x3, y3, xd3, yd3, c;

	curs_set(0);

	wbkgd(win, COLOR_PAIR(1));
	wrefresh(win);
	wattrset(win, 0);

	init_pair(11, COLOR_RED, COLOR_GREEN);
	init_pair(12, COLOR_BLUE, COLOR_RED);
	init_pair(13, COLOR_YELLOW, COLOR_WHITE);

	ball1 = 'O' | COLOR_PAIR(11);
	ball2 = '*' | COLOR_PAIR(12);
	ball3 = '@' | COLOR_PAIR(13);

	getmaxyx(win, h, w);

	x1 = 2 + rand() % (w - 4);
	y1 = 2 + rand() % (h - 4);
	x2 = 2 + rand() % (w - 4);
	y2 = 2 + rand() % (h - 4);
	x3 = 2 + rand() % (w - 4);
	y3 = 2 + rand() % (h - 4);

	xd1 = 1;
	yd1 = 1;
	xd2 = 1;
	yd2 = -1;
	xd3 = -1;
	yd3 = 1;

	nodelay(stdscr, TRUE);

	while ((c = getch()) == ERR)
	{
		x1 += xd1;
		if (x1 <= 1 || x1 >= w - 2)
			xd1 *= -1;

		y1 += yd1;
		if (y1 <= 1 || y1 >= h - 2)
			yd1 *= -1;

		x2 += xd2;
		if (x2 <= 1 || x2 >= w - 2)
			xd2 *= -1;

		y2 += yd2;
		if (y2 <= 1 || y2 >= h - 2)
			yd2 *= -1;

		x3 += xd3;
		if (x3 <= 1 || x3 >= w - 2)
			xd3 *= -1;

		y3 += yd3;
		if (y3 <= 1 || y3 >= h - 2)
			yd3 *= -1;

		c1 = mvwinch(win, y1, x1);
		c2 = mvwinch(win, y2, x2);
		c3 = mvwinch(win, y3, x3);

		mvwaddch(win, y1, x1, ball1);
		mvwaddch(win, y2, x2, ball2);
		mvwaddch(win, y3, x3, ball3);

		wmove(win, 0, 0);
		wrefresh(win);

		mvwaddch(win, y1, x1, c1);
		mvwaddch(win, y2, x2, c2);
		mvwaddch(win, y3, x3, c3);

		napms(150);
	}

	nodelay(stdscr, FALSE);
	ungetch(c);
	return 0;
}

/* Trap interrupt */

void trap(int sig)
{
	if (sig == SIGINT)
	{
		endwin();

		exit(0);
	}
}

int main(int argc, char **argv)
{
	WINDOW *win;
	chtype save[80], ch;
	int width, height, w, x, y, i, j, seed;

#ifdef XCURSES
	Xinitscr(argc, argv);
#else
	initscr();
#endif
	seed = time((time_t *)0);
        srand(seed);

	start_color();
# if defined(NCURSES_VERSION) || (defined(PDC_BUILD) && PDC_BUILD > 3000)
	use_default_colors();
# endif
	cbreak();
	noecho();

	curs_set(0);

#if !defined(__TURBOC__) && !defined(OS2)
	signal(SIGINT, trap);
#endif
	noecho();

	/* refresh stdscr so that reading from it will not cause it to 
	   overwrite the other windows that are being created */

	refresh();

	/* Create a drawing window */

	width  = 48;
	height = 15;

	win = newwin(height, width, (LINES - height) / 2, (COLS - width) / 2);

	if (win == NULL)
	{
		endwin();

		return 1;
	}

	for (;;)
	{
		init_pair(1, COLOR_WHITE, COLOR_BLUE);
		wbkgd(win, COLOR_PAIR(1));
		werase(win);

		init_pair(2, COLOR_RED, COLOR_RED);
		wattrset(win, COLOR_PAIR(2));
		box(win, ' ', ' ');
		wrefresh(win);
      
		wattrset(win, 0);

		/* Do random output of a character */

		ch = 'a';

		nodelay(stdscr, TRUE);

		for (i = 0; i < 5000; ++i)
		{
			x = rand() % (width - 2) + 1;
			y = rand() % (height - 2) + 1;

			mvwaddch(win, y, x, ch);
			wrefresh(win);

			if (getch() != ERR)
				break;

			if (i == 2000)
			{
				ch = 'b';
				init_pair(3, COLOR_CYAN, COLOR_YELLOW);
				wattrset(win, COLOR_PAIR(3));
			}
		}

		nodelay(stdscr, FALSE);

		SubWinTest(win);

		/* Erase and draw green window */

		init_pair(4, COLOR_YELLOW, COLOR_GREEN);
		wbkgd(win, COLOR_PAIR(4));
		wattrset(win, A_BOLD);
		werase(win);
		wrefresh(win);

		/* Draw RED bounding box */

		wattrset(win, COLOR_PAIR(2));
		box(win, ' ', ' ');
		wrefresh(win);

		/* Display Australia map */

		wattrset(win, A_BOLD);
		i = 0;

		while (*AusMap[i])
		{
			mvwaddstr(win, i + 1, 8, AusMap[i]);
			wrefresh(win);
			napms(100);
			++i;
		}

		init_pair(5, COLOR_BLUE, COLOR_WHITE);
		wattrset(win, COLOR_PAIR(5) | A_BLINK);
		mvwaddstr(win, height - 2, 3,
			" PDCurses 3.3 - DOS, OS/2, Win32, X11, SDL");
		wrefresh(win);

		/* Draw running messages */

		init_pair(6, COLOR_BLACK, COLOR_WHITE);
		wattrset(win, COLOR_PAIR(6));
		w = width - 2;
		nodelay(win, TRUE);

		/* jbuhler's re-hacked scrolling messages */

		for (j = 0; messages[j] != NULL; j++)
		{
			char *message = messages[j];
			int msg_len = strlen(message);
			int scroll_len = w + 2 * msg_len;
			char *scrollbuf = malloc(scroll_len);
			char *visbuf = scrollbuf + msg_len;
			int stop = 0;
			int i;

			for (i = w + msg_len; i > 0; i--)
			{
				memset(visbuf, ' ', w);
				strncpy(scrollbuf + i, message, msg_len);
				mvwaddnstr(win, height / 2, 1, visbuf, w);
				wrefresh(win);

				if (wgetch(win) != ERR)
				{
					flushinp();
					stop = 1;
					break;
				}

				napms(100);
			}

			free(scrollbuf);

			if (stop)
				break;
		}

		j = 0;

		/*  Draw running 'A's across in RED */

		init_pair(7, COLOR_RED, COLOR_GREEN);
		wattron(win, COLOR_PAIR(7));

		for (i = 2; i < width - 4; ++i)
		{
			ch = mvwinch(win, 5, i);
			save[j++] = ch;
			ch = ch & 0x7f;
			mvwaddch(win, 5, i, ch);
		}

		wrefresh(win);

		/* Put a message up; wait for a key */

		i = height - 2;
		wattrset(win, COLOR_PAIR(5));
		mvwaddstr(win, i, 3,
			"   Type a key to continue or ESC to quit  ");
		wrefresh(win);

		if (WaitForUser() == '\033')
			break;

		/* Restore the old line */

		wattrset(win, 0);

		for (i = 2, j = 0; i < width - 4; ++i)
			mvwaddch(win, 5, i, save[j++]);

		wrefresh(win);

		BouncingBalls(win);

		/* BouncingBalls() leaves a keystroke in the queue */

		if (WaitForUser() == '\033')
			break;
	}

	endwin();

	return 0;
}

/* End of NEWDEMO.C */