Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/root/sys/src/ape/lib/curses/demos/xmas.c

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


/******************************************************************************/
/* asciixmas								      */
/* December 1989	     Larry Bartz	   Indianapolis, IN	      */
/*									      */
/*									      */
/* I'm dreaming of an ascii character-based monochrome Christmas,	      */
/* Just like the one's I used to know!					      */
/* Via a full duplex communications channel,				      */
/* At 9600 bits per second,						      */
/* Even though it's kinda slow.						      */
/*									      */
/* I'm dreaming of an ascii character-based monochrome Christmas,	      */
/* With ev'ry C program I write!					      */
/* May your screen be merry and bright!					      */
/* And may all your Christmases be amber or green,			      */
/* (for reduced eyestrain and improved visibility)!			      */
/*									      */
/*									      */
/*									      */
/* IMPLEMENTATION							      */
/*									      */
/* Feel free to modify the defined string FROMWHO to reflect you, your	      */
/* organization, your site, whatever.					      */
/*									      */
/* This looks a lot better if you can turn off your cursor before execution.  */
/* The cursor is distracting but it doesn't really ruin the show.	      */
/*									      */
/* At our site, we invoke this for our users just after login and the	      */
/* determination of terminal type.					      */
/*									      */
/*									      */
/* PORTABILITY								      */
/*									      */
/* I wrote this using only the very simplest curses functions so that it      */
/* might be the most portable. I was personally able to test on five	      */
/* different cpu/UNIX combinations.					      */
/*									      */
/*									      */
/* COMPILE								      */
/*									      */
/* usually this:							      */
/*									      */
/* cc -O xmas.c -lcurses -o xmas -s					      */
/*									      */
/******************************************************************************/

/* $Id: xmas.c,v 1.28 2007/06/29 21:40:07 wmcbrine Exp $ */

#include <curses.h>
#include <signal.h>

void lil(WINDOW *);
void midtop(WINDOW *);
void bigtop(WINDOW *);
void bigface(WINDOW *, chtype);
void legs1(WINDOW *);
void legs2(WINDOW *);
void legs3(WINDOW *);
void legs4(WINDOW *);
void initdeer(void);
void boxit(void);
void seas(void);
void greet(void);
void fromwho(void);
void del_msg(void);
void tree(void);
void balls(void);
void star(void);
void strng1(void);
void strng2(void);
void strng3(void);
void strng4(void);
void strng5(void);
void blinkit(void);
void reindeer(void);

#define FROMWHO "From Larry Bartz, Mark Hessling and William McBrine"

int y_pos, x_pos;

WINDOW *treescrn, *treescrn2, *treescrn3, *treescrn4, *treescrn5,
	*treescrn6, *treescrn7, *treescrn8, *dotdeer0, *stardeer0,
	*lildeer0, *lildeer1, *lildeer2, *lildeer3, *middeer0,
	*middeer1, *middeer2, *middeer3, *bigdeer0, *bigdeer1,
	*bigdeer2, *bigdeer3, *bigdeer4, *lookdeer0, *lookdeer1,
	*lookdeer2, *lookdeer3, *lookdeer4, *w_holiday, *w_del_msg;

int main(int argc, char **argv)
{
	int loopy;

#ifdef XCURSES
	Xinitscr(argc, argv);
#else
	initscr();
#endif
	nodelay(stdscr, TRUE);
	noecho();
	nonl();
	refresh();

#ifdef A_COLOR
	if (has_colors())
		start_color();
#endif
	curs_set(0);

	treescrn = newwin(16, 27, 3, 53);
	treescrn2 = newwin(16, 27, 3, 53);
	treescrn3 = newwin(16, 27, 3, 53);
	treescrn4 = newwin(16, 27, 3, 53);
	treescrn5 = newwin(16, 27, 3, 53);
	treescrn6 = newwin(16, 27, 3, 53);
	treescrn7 = newwin(16, 27, 3, 53);
	treescrn8 = newwin(16, 27, 3, 53);

	w_holiday = newwin(1, 26, 3, 27);

	w_del_msg = newwin(1, 12, 23, 60);

	mvwaddstr(w_holiday, 0, 0, "H A P P Y  H O L I D A Y S");

	initdeer();

	clear();
	werase(treescrn);
	touchwin(treescrn);
	werase(treescrn2);
	touchwin(treescrn2);
	werase(treescrn8);
	touchwin(treescrn8);
	refresh();
	napms(1000);

	boxit();
	del_msg();
	napms(1000);

	seas();
	del_msg();
	napms(1000);

	greet();
	del_msg();
	napms(1000);

	fromwho();
	del_msg();
	napms(1000);

	tree();
	napms(1000);

	balls();
	napms(1000);

	star();
	napms(1000);

	strng1();
	strng2();
	strng3();
	strng4();
	strng5();

	/* set up the windows for our blinking trees */
	/* **************************************** */
	/* treescrn3 */

	overlay(treescrn, treescrn3);

	/* balls */
	mvwaddch(treescrn3, 4, 18, ' ');
	mvwaddch(treescrn3, 7, 6, ' ');
	mvwaddch(treescrn3, 8, 19, ' ');
	mvwaddch(treescrn3, 11, 22, ' ');

	/* star */
	mvwaddch(treescrn3, 0, 12, '*');

	/* strng1 */
	mvwaddch(treescrn3, 3, 11, ' ');

	/* strng2 */
	mvwaddch(treescrn3, 5, 13, ' ');
	mvwaddch(treescrn3, 6, 10, ' ');

	/* strng3 */
	mvwaddch(treescrn3, 7, 16, ' ');
	mvwaddch(treescrn3, 7, 14, ' ');

	/* strng4 */
	mvwaddch(treescrn3, 10, 13, ' ');
	mvwaddch(treescrn3, 10, 10, ' ');
	mvwaddch(treescrn3, 11, 8, ' ');

	/* strng5 */
	mvwaddch(treescrn3, 11, 18, ' ');
	mvwaddch(treescrn3, 12, 13, ' ');

	/* treescrn4 */

	overlay(treescrn, treescrn4);

	/* balls */
	mvwaddch(treescrn4, 3, 9, ' ');
	mvwaddch(treescrn4, 4, 16, ' ');
	mvwaddch(treescrn4, 7, 6, ' ');
	mvwaddch(treescrn4, 8, 19, ' ');
	mvwaddch(treescrn4, 11, 2, ' ');
	mvwaddch(treescrn4, 12, 23, ' ');

	/* star */
	mvwaddch(treescrn4, 0, 12, '*' | A_STANDOUT);

	/* strng1 */
	mvwaddch(treescrn4, 3, 13, ' ');

	/* strng2 */

	/* strng3 */
	mvwaddch(treescrn4, 7, 15, ' ');
	mvwaddch(treescrn4, 8, 11, ' ');

	/* strng4 */
	mvwaddch(treescrn4, 9, 16, ' ');
	mvwaddch(treescrn4, 10, 12, ' ');
	mvwaddch(treescrn4, 11, 8, ' ');

	/* strng5 */
	mvwaddch(treescrn4, 11, 18, ' ');
	mvwaddch(treescrn4, 12, 14, ' ');

	/* treescrn5 */

	overlay(treescrn, treescrn5);

	/* balls */
	mvwaddch(treescrn5, 3, 15, ' ');
	mvwaddch(treescrn5, 10, 20, ' ');
	mvwaddch(treescrn5, 12, 1, ' ');

	/* star */
	mvwaddch(treescrn5, 0, 12, '*');

	/* strng1 */
	mvwaddch(treescrn5, 3, 11, ' ');

	/* strng2 */
	mvwaddch(treescrn5, 5, 12, ' ');

	/* strng3 */
	mvwaddch(treescrn5, 7, 14, ' ');
	mvwaddch(treescrn5, 8, 10, ' ');

	/* strng4 */
	mvwaddch(treescrn5, 9, 15, ' ');
	mvwaddch(treescrn5, 10, 11, ' ');
	mvwaddch(treescrn5, 11, 7, ' ');

	/* strng5 */
	mvwaddch(treescrn5, 11, 17, ' ');
	mvwaddch(treescrn5, 12, 13, ' ');

	/* treescrn6 */

	overlay(treescrn, treescrn6);

	/* balls */
	mvwaddch(treescrn6, 6, 7, ' ');
	mvwaddch(treescrn6, 7, 18, ' ');
	mvwaddch(treescrn6, 10, 4, ' ');
	mvwaddch(treescrn6, 11, 23, ' ');

	/* star */
	mvwaddch(treescrn6, 0, 12, '*' | A_STANDOUT);

	/* strng1 */

	/* strng2 */
	mvwaddch(treescrn6, 5, 11, ' ');

	/* strng3 */
	mvwaddch(treescrn6, 7, 13, ' ');
	mvwaddch(treescrn6, 8, 9, ' ');

	/* strng4 */
	mvwaddch(treescrn6, 9, 14, ' ');
	mvwaddch(treescrn6, 10, 10, ' ');
	mvwaddch(treescrn6, 11, 6, ' ');

	/* strng5 */
	mvwaddch(treescrn6, 11, 16, ' ');
	mvwaddch(treescrn6, 12, 12, ' ');

	/* treescrn7 */

	overlay(treescrn, treescrn7);

	/* balls */
	mvwaddch(treescrn7, 3, 15, ' ');
	mvwaddch(treescrn7, 6, 7, ' ');
	mvwaddch(treescrn7, 7, 18, ' ');
	mvwaddch(treescrn7, 10, 4, ' ');
	mvwaddch(treescrn7, 11, 22, ' ');

	/* star */
	mvwaddch(treescrn7, 0, 12, '*');

	/* strng1 */
	mvwaddch(treescrn7, 3, 12, ' ');

	/* strng2 */
	mvwaddch(treescrn7, 5, 13, ' ');
	mvwaddch(treescrn7, 6, 9, ' ');

	/* strng3 */
	mvwaddch(treescrn7, 7, 15, ' ');
	mvwaddch(treescrn7, 8, 11, ' ');

	/* strng4 */
	mvwaddch(treescrn7, 9, 16, ' ');
	mvwaddch(treescrn7, 10, 12, ' ');
	mvwaddch(treescrn7, 11, 8, ' ');

	/* strng5 */
	mvwaddch(treescrn7, 11, 18, ' ');
	mvwaddch(treescrn7, 12, 14, ' ');

	napms(1000);
	reindeer();

	touchwin(w_holiday);
	wrefresh(w_holiday);
	wrefresh(w_del_msg);

	napms(1000);

	for (loopy = 0; loopy < 50; loopy++)
		blinkit();

	clear();
	refresh();
	endwin();

	return 0;
}

void lil(WINDOW *win)
{
	mvwaddch(win, 0, 0, (chtype) 'V');
	mvwaddch(win, 1, 0, (chtype) '@');
	mvwaddch(win, 1, 3, (chtype) '~');
}

void midtop(WINDOW *win)
{
	mvwaddstr(win, 0, 2, "yy");
	mvwaddstr(win, 1, 2, "0(=)~");
}

void bigtop(WINDOW *win)
{
	mvwaddstr(win, 0, 17, "\\/");
	mvwaddstr(win, 0, 20, "\\/");
	mvwaddch(win, 1, 18, (chtype) '\\');
	mvwaddch(win, 1, 20, (chtype) '/');
	mvwaddstr(win, 2, 19, "|_");
	mvwaddstr(win, 3, 18, "/^0\\");
	mvwaddstr(win, 4, 17, "//\\");
	mvwaddch(win, 4, 22, (chtype) '\\');
	mvwaddstr(win, 5, 7, "^~~~~~~~~//  ~~U");
}

void bigface(WINDOW *win, chtype noseattr)
{
	mvwaddstr(win, 0, 16, "\\/     \\/");
	mvwaddstr(win, 1, 17, "\\Y/ \\Y/");
	mvwaddstr(win, 2, 19, "\\=/");
	mvwaddstr(win, 3, 17, "^\\o o/^");
	mvwaddstr(win, 4, 17, "//( )");
	mvwaddstr(win, 5, 7, "^~~~~~~~~// \\");
	waddch(win, 'O' | noseattr);
	waddstr(win, "/");
}

void legs1(WINDOW *win)
{
	mvwaddstr(win, 6, 7, "( \\_____( /");
	mvwaddstr(win, 7, 8, "( )    /");
	mvwaddstr(win, 8, 9, "\\\\   /");
	mvwaddstr(win, 9, 11, "\\>/>");
}

void legs2(WINDOW *win)
{
	mvwaddstr(win, 6, 7, "(( )____( /");
	mvwaddstr(win, 7, 7, "( /      |");
	mvwaddstr(win, 8, 8, "\\/      |");
	mvwaddstr(win, 9, 9, "|>     |>");
}

void legs3(WINDOW *win)
{
	mvwaddstr(win, 6, 6, "( ()_____( /");
	mvwaddstr(win, 7, 6, "/ /       /");
	mvwaddstr(win, 8, 5, "|/          \\");
	mvwaddstr(win, 9, 5, "/>           \\>");
}

void legs4(WINDOW *win)
{
	mvwaddstr(win, 6, 6, "( )______( /");
	mvwaddstr(win, 7, 5, "(/          \\");
	mvwaddstr(win, 8, 0, "v___=             ----^");
}

void initdeer(void)
{
	chtype noseattr;

#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(31, COLOR_RED, COLOR_BLACK);
		noseattr = COLOR_PAIR(31);
	}
	else
#endif
		noseattr = A_NORMAL;

	/* set up the windows for our various reindeer */

	dotdeer0 = newwin(3, 71, 0, 8);
	stardeer0 = newwin(4, 56, 0, 8);
	lildeer0 = newwin(7, 54, 0, 8);
	middeer0 = newwin(15, 42, 0, 8);
	bigdeer0 = newwin(10, 23, 0, 0);
	lookdeer0 = newwin(10, 25, 0, 0);

	/* lildeer1 */
	lildeer1 = newwin(2, 4, 0, 0);
	lil(lildeer1);
	mvwaddstr(lildeer1, 1, 1, "<>");

	/* lildeer2 */
	lildeer2 = newwin(2, 4, 0, 0);
	lil(lildeer2);
	mvwaddstr(lildeer2, 1, 1, "||");

	/* lildeer3 */
	lildeer3 = newwin(2, 4, 0, 0);
	lil(lildeer3);
	mvwaddstr(lildeer3, 1, 1, "><");

	/* middeer1 */
	middeer1 = newwin(3, 7, 0, 0);
	midtop(middeer1);
	mvwaddstr(middeer1, 2, 3, "\\/");

	/* middeer2 */
	middeer2 = newwin(3, 7, 0, 0);
	midtop(middeer2);
	mvwaddch(middeer2, 2, 3, (chtype) '|');
	mvwaddch(middeer2, 2, 5, (chtype) '|');

	/* middeer3 */
	middeer3 = newwin(3, 7, 0, 0);
	midtop(middeer3);
	mvwaddch(middeer3, 2, 2, (chtype) '/');
	mvwaddch(middeer3, 2, 6, (chtype) '\\');

	/* bigdeer1 */
	bigdeer1 = newwin(10, 23, 0, 0);
	bigtop(bigdeer1);
	legs1(bigdeer1);

	/* bigdeer2 */
	bigdeer2 = newwin(10, 23, 0, 0);
	bigtop(bigdeer2);
	legs2(bigdeer2);

	/* bigdeer3 */
	bigdeer3 = newwin(10, 23, 0, 0);
	bigtop(bigdeer3);
	legs3(bigdeer3);

	/* bigdeer4 */
	bigdeer4 = newwin(10, 23, 0, 0);
	bigtop(bigdeer4);
	legs4(bigdeer4);

	/* lookdeer1 */
	lookdeer1 = newwin(10, 25, 0, 0);
	bigface(lookdeer1, noseattr);
	legs1(lookdeer1);

	/* lookdeer2 */
	lookdeer2 = newwin(10, 25, 0, 0);
	bigface(lookdeer2, noseattr);
	legs2(lookdeer2);

	/* lookdeer3 */
	lookdeer3 = newwin(10, 25, 0, 0);
	bigface(lookdeer3, noseattr);
	legs3(lookdeer3);

	/* lookdeer4 */
	lookdeer4 = newwin(10, 25, 0, 0);
	bigface(lookdeer4, noseattr);
	legs4(lookdeer4);
}

void boxit(void)
{
	int x;

	for (x = 0; x < 20; ++x)
		mvaddch(x, 7, '|');

	for (x = 0; x < 80; ++x)
	{
		if (x > 7)
			mvaddch(19, x, '_');

		mvaddch(22, x, '_');
	}
}

void seas(void)
{
	mvaddch(4, 1, 'S');
	mvaddch(6, 1, 'E');
	mvaddch(8, 1, 'A');
	mvaddch(10, 1, 'S');
	mvaddch(12, 1, 'O');
	mvaddch(14, 1, 'N');
	mvaddch(16, 1, '`');
	mvaddch(18, 1, 'S');
}

void greet(void)
{
	mvaddch(3, 5, 'G');
	mvaddch(5, 5, 'R');
	mvaddch(7, 5, 'E');
	mvaddch(9, 5, 'E');
	mvaddch(11, 5, 'T');
	mvaddch(13, 5, 'I');
	mvaddch(15, 5, 'N');
	mvaddch(17, 5, 'G');
	mvaddch(19, 5, 'S');
}

void fromwho(void)
{
	mvaddstr(21, 13, FROMWHO);
}

void del_msg(void)
{
	refresh();
}

void tree(void)
{
#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(30, COLOR_GREEN, COLOR_BLACK);
		wattrset(treescrn, COLOR_PAIR(30));
	}
#endif
	mvwaddch(treescrn, 1, 11, (chtype) '/');
	mvwaddch(treescrn, 2, 11, (chtype) '/');
	mvwaddch(treescrn, 3, 10, (chtype) '/');
	mvwaddch(treescrn, 4, 9, (chtype) '/');
	mvwaddch(treescrn, 5, 9, (chtype) '/');
	mvwaddch(treescrn, 6, 8, (chtype) '/');
	mvwaddch(treescrn, 7, 7, (chtype) '/');
	mvwaddch(treescrn, 8, 6, (chtype) '/');
	mvwaddch(treescrn, 9, 6, (chtype) '/');
	mvwaddch(treescrn, 10, 5, (chtype) '/');
	mvwaddch(treescrn, 11, 3, (chtype) '/');
	mvwaddch(treescrn, 12, 2, (chtype) '/');

	mvwaddch(treescrn, 1, 13, (chtype) '\\');
	mvwaddch(treescrn, 2, 13, (chtype) '\\');
	mvwaddch(treescrn, 3, 14, (chtype) '\\');
	mvwaddch(treescrn, 4, 15, (chtype) '\\');
	mvwaddch(treescrn, 5, 15, (chtype) '\\');
	mvwaddch(treescrn, 6, 16, (chtype) '\\');
	mvwaddch(treescrn, 7, 17, (chtype) '\\');
	mvwaddch(treescrn, 8, 18, (chtype) '\\');
	mvwaddch(treescrn, 9, 18, (chtype) '\\');
	mvwaddch(treescrn, 10, 19, (chtype) '\\');
	mvwaddch(treescrn, 11, 21, (chtype) '\\');
	mvwaddch(treescrn, 12, 22, (chtype) '\\');

	mvwaddch(treescrn, 4, 10, (chtype) '_');
	mvwaddch(treescrn, 4, 14, (chtype) '_');
	mvwaddch(treescrn, 8, 7, (chtype) '_');
	mvwaddch(treescrn, 8, 17, (chtype) '_');

	mvwaddstr(treescrn, 13, 0,
		  "//////////// \\\\\\\\\\\\\\\\\\\\\\\\");

#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(20, COLOR_YELLOW, COLOR_BLACK);
		wattrset(treescrn, COLOR_PAIR(20));
	}
#endif
	mvwaddstr(treescrn, 14, 11, "| |");
	mvwaddstr(treescrn, 15, 11, "|_|");

	wrefresh(treescrn);
	wrefresh(w_del_msg);
}

void balls(void)
{
	chtype ball1, ball2, ball3, ball4, ball5, ball6;

	overlay(treescrn, treescrn2);

#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(1, COLOR_BLUE, COLOR_BLACK);
		init_pair(2, COLOR_RED, COLOR_BLACK);
		init_pair(3, COLOR_MAGENTA, COLOR_BLACK);
		init_pair(4, COLOR_CYAN, COLOR_BLACK);
		init_pair(5, COLOR_YELLOW, COLOR_BLACK);
		init_pair(6, COLOR_WHITE, COLOR_BLACK);
		ball1 = COLOR_PAIR(1) | '@';
		ball2 = COLOR_PAIR(2) | '@';
		ball3 = COLOR_PAIR(3) | '@';
		ball4 = COLOR_PAIR(4) | '@';
		ball5 = COLOR_PAIR(5) | '@';
		ball6 = COLOR_PAIR(6) | '@';
	}
	else
#endif
		ball1 = ball2 = ball3 = ball4 = ball5 = ball6 = '@';

	mvwaddch(treescrn2, 3, 9, ball1);
	mvwaddch(treescrn2, 3, 15, ball2);
	mvwaddch(treescrn2, 4, 8, ball3);
	mvwaddch(treescrn2, 4, 16, ball4);
	mvwaddch(treescrn2, 5, 7, ball5);
	mvwaddch(treescrn2, 5, 17, ball6);
	mvwaddch(treescrn2, 7, 6, ball1 | A_BOLD);
	mvwaddch(treescrn2, 7, 18, ball2 | A_BOLD);
	mvwaddch(treescrn2, 8, 5, ball3 | A_BOLD);
	mvwaddch(treescrn2, 8, 19, ball4 | A_BOLD);
	mvwaddch(treescrn2, 10, 4, ball5 | A_BOLD);
	mvwaddch(treescrn2, 10, 20, ball6 | A_BOLD);
	mvwaddch(treescrn2, 11, 2, ball1);
	mvwaddch(treescrn2, 11, 22, ball2);
	mvwaddch(treescrn2, 12, 1, ball3);
	mvwaddch(treescrn2, 12, 23, ball4);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void star(void)
{
	mvwaddch(treescrn2, 0, 12, (chtype) '*' | A_STANDOUT);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void strng1(void)
{
#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(10, COLOR_YELLOW, COLOR_BLACK);
		wattrset(treescrn2, COLOR_PAIR(10) | A_BOLD);
	}
#endif
	mvwaddstr(treescrn2, 3, 11, ".:'");

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void strng2(void)
{
#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(11, COLOR_RED, COLOR_BLACK);
		wattrset(treescrn2, COLOR_PAIR(11) | A_BOLD);
	}
#endif
	mvwaddstr(treescrn2, 5, 11, ",.:'");
	mvwaddstr(treescrn2, 6, 9, ":'");

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void strng3(void)
{
#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(12, COLOR_GREEN, COLOR_BLACK);
		wattrset(treescrn2, COLOR_PAIR(12) | A_BOLD);
	}
#endif
	mvwaddstr(treescrn2, 7, 13, ",.:'");
	mvwaddstr(treescrn2, 8, 9, ",.:'");

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void strng4(void)
{
#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(13, COLOR_WHITE, COLOR_BLACK);
		wattrset(treescrn2, COLOR_PAIR(13) | A_BOLD);
	}
#endif
	mvwaddstr(treescrn2, 9, 14, ",.:'");
	mvwaddstr(treescrn2, 10, 10, ",.:'");
	mvwaddstr(treescrn2, 11, 6, ",.:'");
	mvwaddch(treescrn2, 12, 5, (chtype) '\'');

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void strng5(void)
{
#ifdef A_COLOR
	if (has_colors())
	{
		init_pair(14, COLOR_CYAN, COLOR_BLACK);
		wattrset(treescrn2, COLOR_PAIR(14) | A_BOLD);
	}
#endif
	mvwaddstr(treescrn2, 11, 16, ",.:'");
	mvwaddstr(treescrn2, 12, 12, ",.:'");

	/* save a fully lit tree */
	overlay(treescrn2, treescrn);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
}

void blinkit(void)
{
	static int cycle;

	if (cycle > 4)
		cycle = 0;

	touchwin(treescrn8);

	switch (cycle)
	{
	case 0:
		overlay(treescrn3, treescrn8);
		break;

	case 1:
		overlay(treescrn4, treescrn8);
		break;

	case 2:
		overlay(treescrn5, treescrn8);
		break;

	case 3:
		overlay(treescrn6, treescrn8);
		break;

	case 4:
		overlay(treescrn7, treescrn8);
	}

	wrefresh(treescrn8);
	wrefresh(w_del_msg);

	napms(50);
	touchwin(treescrn8);

	/*ALL ON************************************************** */

	overlay(treescrn, treescrn8);
	wrefresh(treescrn8);
	wrefresh(w_del_msg);

	++cycle;
}

#define TSHOW(win, pause) touchwin(win); wrefresh(win); \
			  wrefresh(w_del_msg); napms(pause)

#define SHOW(win, pause) mvwin(win, y_pos, x_pos); wrefresh(win); \
			 wrefresh(w_del_msg); napms(pause)

void reindeer(void)
{
	int looper;

	y_pos = 0;

	for (x_pos = 70; x_pos > 62; x_pos--)
	{
		if (x_pos < 62)
			y_pos = 1;

		for (looper = 0; looper < 4; looper++)
		{
			mvwaddch(dotdeer0, y_pos, x_pos, (chtype) '.');
			wrefresh(dotdeer0);
			wrefresh(w_del_msg);
			werase(dotdeer0);
			wrefresh(dotdeer0);
			wrefresh(w_del_msg);
		}
	}

	y_pos = 2;

	for (; x_pos > 50; x_pos--)
	{
		for (looper = 0; looper < 4; looper++)
		{
			if (x_pos < 56)
			{
				y_pos = 3;

				mvwaddch(stardeer0, y_pos, x_pos,
					 (chtype) '*');
				wrefresh(stardeer0);
				wrefresh(w_del_msg);
				werase(stardeer0);
				wrefresh(stardeer0);
			}
			else
			{
				mvwaddch(dotdeer0, y_pos, x_pos,
					 (chtype) '*');
				wrefresh(dotdeer0);
				wrefresh(w_del_msg);
				werase(dotdeer0);
				wrefresh(dotdeer0);
			}
			wrefresh(w_del_msg);
		}
	}

	x_pos = 58;

	for (y_pos = 2; y_pos < 5; y_pos++)
	{
		TSHOW(lildeer0, 50);

		for (looper = 0; looper < 4; looper++)
		{
			SHOW(lildeer3, 50);
			SHOW(lildeer2, 50);
			SHOW(lildeer1, 50);
			SHOW(lildeer2, 50);
			SHOW(lildeer3, 50);

			TSHOW(lildeer0, 50);

			x_pos -= 2;
		}
	}

	x_pos = 35;

	for (y_pos = 5; y_pos < 10; y_pos++)
	{
		touchwin(middeer0);
		wrefresh(middeer0);
		wrefresh(w_del_msg);

		for (looper = 0; looper < 2; looper++)
		{
			SHOW(middeer3, 50);
			SHOW(middeer2, 50);
			SHOW(middeer1, 50);
			SHOW(middeer2, 50);
			SHOW(middeer3, 50);

			TSHOW(middeer0, 50);

			x_pos -= 3;
		}
	}

	napms(2000);

	y_pos = 1;

	for (x_pos = 8; x_pos < 16; x_pos++)
	{
		SHOW(bigdeer4, 30);
		SHOW(bigdeer3, 30);
		SHOW(bigdeer2, 30);
		SHOW(bigdeer1, 30);
		SHOW(bigdeer2, 30);
		SHOW(bigdeer3, 30);
		SHOW(bigdeer4, 30);
		SHOW(bigdeer0, 30);
	}

	--x_pos;

	for (looper = 0; looper < 6; looper++)
	{
		SHOW(lookdeer4, 40);
		SHOW(lookdeer3, 40);
		SHOW(lookdeer2, 40);
		SHOW(lookdeer1, 40);
		SHOW(lookdeer2, 40);
		SHOW(lookdeer3, 40);
		SHOW(lookdeer4, 40);
	}

	SHOW(lookdeer0, 40);

	for (; y_pos < 10; y_pos++)
	{
		for (looper = 0; looper < 2; looper++)
		{
			SHOW(bigdeer4, 30);
			SHOW(bigdeer3, 30);
			SHOW(bigdeer2, 30);
			SHOW(bigdeer1, 30);
			SHOW(bigdeer2, 30);
			SHOW(bigdeer3, 30);
			SHOW(bigdeer4, 30);
		}

		SHOW(bigdeer0, 30);
	}

	--y_pos;

	mvwin(lookdeer3, y_pos, x_pos);
	wrefresh(lookdeer3);
	wrefresh(w_del_msg);
}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.