/*
 * 3do-view - 3D objects (3DO) viewer for MS-Dos/Win32/SVGAlib/X11
 *
 * 3do-view.c - main application file
 * ____________________________________________________________
 *
 * Developed by Ondrej Jombik <nepto@platon.sk>
 *          and Stefan Soun <neexist@orangemail.sk>
 * Copyright (c) 1997-2000 Condy software inc.
 * Copyright (c) 2001-2004 Platon SDG, http://platon.sk/
 * All rights reserved.
 *
 * See README file for more information about this software.
 * See COPYING file for license information.
 *
 * Download the latest version from
 * http://platon.sk/projects/games/
 */

/* $Platon: games/3do-view/3do-view.c,v 1.10 2004/04/06 09:54:14 nepto Exp $ */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>

#include <system.h> /* target operating system type */

#if PLATON_SYSTEM_SVGALIB || PLATON_SYSTEM_X11
#  include <dos2linux.h>
#endif

#if PLATON_SYSTEM_MSDOS || PLATON_SYSTEM_WIN32
#  include <conio.h>
#  include <dos.h>
#endif

#if PLATON_SYSTEM_WIN32
#  include <dos2win32.h>
#  include <winbgim.h>
#  include <direct.h>
#endif

#if PLATON_SYSTEM_MSDOS
#  include <dir.h>
#endif

#if PLATON_SYSTEM_X11
#  include <x11-bgi.h>
#endif

#include <typedef.h>
#include <standart.h>
#include <my-graph.h>
#include <mouse.h>

#include "dir.h"

#define PI    3.1415926536
#define ALFA  PI/6
#define BETA  PI/6

#define	OSX		1
#define	OSY		2
#define OSZ		4

enum modes
{
	MODE_MAIN_MENU,
	MODE_AUTOMATIC_TURNING,
	MODE_MANUAL_TURNING,
	MODE_FILE_SELECTION,
	MODE_INFORMATION,
	MODE_EXIT_DIALOG,
	MODE_QUIT
};

enum file_selector_modes
{
	MODE_SELECTED_NONE,
	MODE_SELECTED_DIRECTORY,
	MODE_SELECTED_FILE,
	MODE_SELECTED_DIRECTORY_MOVE,
	MODE_SELECTED_FILE_MOVE
};

int q,k,l,pocbod,stop=0;
BYTE p;
double ALFAX,ALFAY,ALFAZ,POSUNX=0.04,POSUNY=0.075,POSUNZ=0.111,POSXOLD,POSYOLD,POSZOLD;
int bodxbase[100],bodybase[100],bodzbase[100],
	bodx[100],body[100],bodz[100];
int pocspoj[100],spoj[100][20];

/* Function prototypes */
int open_3do_file(const char *filename);
void vykresli(int color);

void intro(void) /* {{{ */
{
	printf("\r\n3D OBJECTS (3DO) viewer\r\n");
	printf("Copyright (c) 1998-2000 Condy software inc.\r\n");
	printf("Copyright (c) 2001-2004 Platon Software Development Group\r\n");
} /* }}} */

/************************ ERROR1 (mouse error) ******************************/
void ERROR1(void) /* {{{ */
{
	intro();
	textbackground(CYAN);
	textcolor(RED+BLINK);
	cprintf("\r\nFATAL ERROR");
	textbackground(0);
	textcolor(15);
	cprintf("\r\nThis program requires mouse.\r\n");
	exit(0);
} /* }}} */

/************************ ERROR2 (file error) *******************************/
void ERROR2(void) /* {{{ */
{
	intro();
	printf("\r\nCommand line: 3do-view <name>\r\nname - 3D Object file (.3do)\r\n");
	exit(0);
} /* }}} */

/************************* INTERFACE ****************************************/
void intface(void) /* {{{ */
{
	hidemouse();
	setfillstyle(1, 0);
	rectangle(479,0,639,479);
	bar(480,1,638,478);
	rectangle(486,27,633,80);
	rectangle(486,117,633,170);
	rectangle(486,207,633,260);
	rectangle(486,297,633,350);
	rectangle(486,387,633,440);
	setcolor(GREEN);
	outtextxy(559,70,"AUTOMAT. OTACANIE");
	outtextxy(559,160,"MANUALNE OTACANIE");
	setcolor(LIGHTBLUE);
	outtextxy(559,250,"OTVORENIE SUBORU");
	outtextxy(559,340,"INFORMACIE");
	setcolor(RED);
	outtextxy(559,430,"KONIEC");
	setcolor(WHITE);
	delay(50);
	q = MODE_MAIN_MENU;
	showmouse();
} /* }}} */

/********************* AUTOMATICKE OTACANIE OBJEKTU *************************/
void run(void) /* {{{ */
{
	hidemouse();
	setfillstyle(1, 0);
	bar(480,1,638,478);
	outtextxy(559,16,"AUTOMAT. OTACANIE");
	rectangle(486,387,633,440);
	rectangle(486,297,633,350);
	rectangle(486,207,633,260);
	rectangle(486,40,526,70);
	rectangle(593,40,633,70);
	rectangle(486,90,526,120);
	rectangle(593,90,633,120);
	rectangle(486,140,526,170);
	rectangle(593,140,633,170);
	setcolor(GREEN);
	outtextxy(559,55,"X");
	outtextxy(559,105,"Y");
	outtextxy(559,155,"Z");
	setcolor(RED);
	outtextxy(506,55,"+");
	outtextxy(506,105,"+");
	outtextxy(506,155,"+");
	setcolor(LIGHTBLUE);
	outtextxy(612,55,"-");
	outtextxy(612,105,"-");
	outtextxy(612,155,"-");
	setcolor(WHITE);
	outtextxy(559,250,"POKRACOVANIE");
	outtextxy(559,340,"STOP");
	outtextxy(559,430,"HLAVNE MENU");
	showmouse();
	delay(50);
	q = MODE_AUTOMATIC_TURNING;
} /* }}} */

/********************** POKRACOVANIE OTACANIA *******************************/
void CONTINUE(void) /* {{{ */
{
	if (stop==1);{
		POSUNX=POSXOLD;
		POSUNY=POSYOLD;
		POSUNZ=POSZOLD;
		stop=0;
	}
} /* }}} */

/************************** ZASTAVENIE OTACANIA *****************************/
void STOP(void) /* {{{ */
{
	if (stop!=1) {
		POSXOLD=POSUNX;
		POSYOLD=POSUNY;
		POSZOLD=POSUNZ;
		POSUNX=0;
		POSUNY=0;
		POSUNZ=0;
		stop=1;
	}
} /* }}} */

/************************* MANUALNE OTACANIE ********************************/
void manual(void) /* {{{ */
{
	hidemouse();
	setfillstyle(1, 0);
	bar(480,1,638,478);
	STOP();
	rectangle(486,40,526,70);
	rectangle(593,40,633,70);
	rectangle(486,90,526,120);
	rectangle(593,90,633,120);
	rectangle(486,140,526,170);
	rectangle(593,140,633,170);
	rectangle(486,387,633,440);
	outtextxy(559,16,"MANUALNE OTACANIE");
	setcolor(GREEN);
	outtextxy(559,55,"X");
	outtextxy(559,105,"Y");
	outtextxy(559,155,"Z");
	setcolor(RED);
	outtextxy(506,55,"+");
	outtextxy(506,105,"+");
	outtextxy(506,155,"+");
	setcolor(LIGHTBLUE);
	outtextxy(612,55,"-");
	outtextxy(612,105,"-");
	outtextxy(612,155,"-");
	setcolor(WHITE);
	outtextxy(559,430,"HLAVNE MENU");
	showmouse();
	q = MODE_MANUAL_TURNING;
} /* }}} */

/*************************** FILE SELECTOR **********************************/
void file_selector(int mode, int item) /* {{{ */
{
	register int i;
	static int files_offset = 0, directories_offset = 0;
	static int files_size   = 0, directories_size   = 0;
	static char **directories = NULL;
	static char **files       = NULL;
	char out_str[18];
	if (mode == MODE_SELECTED_DIRECTORY) {
		item += directories_offset;
		if (item >= 0 && item < directories_size)
			chdir(directories[item]);
		if (directories != NULL)
			free_directories_or_files(directories);
		if (files != NULL)
			free_directories_or_files(files);
		directories        = NULL;
		files              = NULL;
		files_offset       = 0;
		directories_offset = 0;
	} else if (mode == MODE_SELECTED_FILE) {
		item += files_offset;
		if (item >= 0 && item < files_size) {
			vykresli(BLACK);
			if (open_3do_file(files[item])) {
				settextjustify(LEFT_TEXT, TOP_TEXT);
				bar(1, 1, 470, 11);
				setcolor(WHITE);
				outtextxy(1, 1, files[item]);
				settextjustify(CENTER_TEXT, CENTER_TEXT);
			}
			vykresli(WHITE);
		}
	} else if (mode == MODE_SELECTED_DIRECTORY_MOVE) {
		directories_offset += item;
		directories_offset = min(directories_size - 14, directories_offset);
		directories_offset = max(0, directories_offset);
	} else if (mode == MODE_SELECTED_FILE_MOVE) {
		files_offset += item;
		files_offset = min(files_size - 14, files_offset);
		files_offset = max(0, files_offset);
	}
	if (directories == NULL && files == NULL) {
		get_directories_and_files(&directories, &files);
		for (i = 0; directories != NULL && directories[i] != NULL; i++);
		directories_size = i;
		for (i = 0; files != NULL && files[i] != NULL; i++);
		files_size = i;
	}
	if (q != MODE_FILE_SELECTION
			|| mode == MODE_SELECTED_DIRECTORY
			|| mode == MODE_SELECTED_DIRECTORY_MOVE
			|| mode == MODE_SELECTED_FILE_MOVE) {
		hidemouse();
		setfillstyle(1, 0);
		bar(480,1,638,478);
		outtextxy(559,16,"OTVORENIE SUBORU");
		rectangle(486,387,633,440);
		outtextxy(559,430,"HLAVNE MENU");
		/* directories box */
		rectangle(486,37,633,185);
		rectangle(486,190,505,200);
		rectangle(509,190,524,200);
		rectangle(595,190,610,200);
		rectangle(614,190,633,200);
		setcolor(directories_offset == 0 ? LIGHTGRAY: WHITE);
		outtextxy(496, 196, "<<");
		outtextxy(517, 196, "<");
		setcolor(directories_offset == max(0, directories_size - 14) ? LIGHTGRAY : WHITE);
		outtextxy(603, 196, ">");
		outtextxy(624, 196, ">>");
		setcolor(WHITE);
		sprintf(out_str, "[%d]", directories_size);
		outtextxy(559, 196, out_str);
		/* files box */
		rectangle(486,207,633,355);
		rectangle(486,360,505,370);
		rectangle(509,360,524,370);
		rectangle(595,360,610,370);
		rectangle(614,360,633,370);
		setcolor(files_offset == 0 ? LIGHTGRAY : WHITE);
		outtextxy(496, 366, "<<");
		outtextxy(517, 366, "<");
		setcolor(files_offset == max(0, files_size - 14) ? LIGHTGRAY : WHITE);
		outtextxy(603, 366, ">");
		outtextxy(624, 366, ">>");
		setcolor(WHITE);
		sprintf(out_str, "[%d]", files_size);
		outtextxy(559, 366, out_str);
		settextjustify(LEFT_TEXT, CENTER_TEXT);
		for (i = 0; directories != NULL && directories[i] != NULL && i < 14; i++) {
			strncpy(out_str, directories[i + directories_offset], 18);
			if (strlen(directories[i + directories_offset]) > 17)
				strcpy(out_str + 15, "...");
			outtextxy(490, 47 + i * 10, out_str);
		}
		for (i = 0; files != NULL && files[i] != NULL && i < 14; i++) {
			strncpy(out_str, files[i + files_offset], 18);
			if (strlen(files[i + files_offset]) > 17)
				strcpy(out_str + 15, "...");
			outtextxy(490, 217 + i * 10, out_str);
		}
		settextjustify(CENTER_TEXT, CENTER_TEXT);
		showmouse();
		if ((mode != MODE_SELECTED_DIRECTORY_MOVE || abs(item) > 1)
				&& (mode != MODE_SELECTED_FILE_MOVE || abs(item) > 1))
			delay(160);
	}
	q = MODE_FILE_SELECTION;
} /* }}} */

/**************************** INFORMACIE ************************************/
void info(void) /* {{{ */
{
	hidemouse();
	setfillstyle(1, 0);
	bar(480,1,638,478);
	outtextxy(559,16,"INFORMACIE");
	rectangle(486,387,633,440);
	outtextxy(559,430,"HLAVNE MENU");
	showmouse();
	delay(50);
	q = MODE_INFORMATION;
} /* }}} */

/*************************** QUIT *******************************************/
void quit(void) /* {{{ */
{
	hidemouse();
	setfillstyle(1, 0);
	bar(480,1,638,478);
	rectangle(486,387,633,440);
	rectangle(486,297,633,350);
	outtextxy(559,16,"KONIEC PROGRAMU?");
	setcolor(RED);
	outtextxy(559,340,"ANO");
	setcolor(LIGHTBLUE);
	outtextxy(559,430,"NIE");
	setcolor(WHITE);
	showmouse();
	delay(100);
	q = MODE_EXIT_DIALOG;
} /* }}} */

/******************** VYKRESLENIE OBJEKTU Z 3D DO 2D ************************/
void vykresli(int color) /* {{{ */
{
	register int x1,x2,y1,y2;
	register double sin_ALFA, cos_ALFA, sin_BETA, cos_BETA;
	sin_ALFA = sin(ALFA);
	cos_ALFA = cos(ALFA);
	sin_BETA = sin(BETA);
	cos_BETA = cos(BETA);
	setcolor(color);
	hidemouse();
	for (k=1;k<=pocbod;k++) {
		for (l=1;l<=pocspoj[k];l++) {
			x1=-bodx[k]*cos_ALFA+body[k]*cos_BETA;
			y1=bodx[k]*sin_ALFA+body[k]*sin_BETA-bodz[k];
			x2=-bodx[spoj[k][l]]*cos_ALFA+body[spoj[k][l]]*cos_BETA;
			y2=bodx[spoj[k][l]]*sin_ALFA+body[spoj[k][l]]*sin_BETA-bodz[spoj[k][l]];
			if (x1<-238)x1=-238;
			if (x1>238)x1=238;
			if (x2<-238)x2=-238;
			if (x2>238)x2=238;
			if (y1<-238)y1=-238;
			if (y1>238)y1=238;
			if (y2<-238)y2=-238;
			if (y2>238)y2=238;
			line(240+x1,240+y1,240+x2,240+y2);
		}
	}
	showmouse();
} /* }}} */

/******************** POSUNUTIE PODLA OSI X,Y,Z *****************************/
void posun(void) /* {{{ */
{
	int xbod,ybod,zbod;
	for (k=1;k<=pocbod;k++) {
		xbod=bodxbase[k];
		ybod=bodybase[k];
		zbod=bodzbase[k];
		if (p&OSX) {
			int newpoint;
			newpoint=xbod*cos(ALFAZ)-ybod*sin(ALFAZ);
			ybod=xbod*sin(ALFAZ)+ybod*cos(ALFAZ);
			xbod=newpoint;
		}
		if (p&OSY) {
			int newpoint;
			newpoint=xbod*cos(ALFAY)+zbod*sin(ALFAY);
			zbod=-xbod*sin(ALFAY)+zbod*cos(ALFAY);
			xbod=newpoint;
		}
		if (p&OSZ) {
			int newpoint;
			newpoint=ybod*cos(ALFAX)-zbod*sin(ALFAX);
			zbod=ybod*sin(ALFAX)+zbod*cos(ALFAX);
			ybod=newpoint;
		}
		bodx[k]=xbod;
		body[k]=ybod;
		bodz[k]=zbod;
	}
} /* }}} */

/**** ISINBAR (ZISTENIE POZICIE KURZORU VZHLADOM NA PLOCHU X1,Y1,X2,Y2) *****/
BYTE isinbar(int x1,int y1,int x2,int y2) /* {{{ */
{
	WORD xx,yy;
	if (getmousepos(&xx, &yy) != 1)
		return 0;
	if (x1 > x2 && y1 > y2) return xx < x1 && xx > x2 && yy < y1 && yy > y2;
	if (x1 > x2 && y1 < y2) return xx < x1 && xx > x2 && yy < y2 && yy > y1;
	if (x1 < x2 && y1 > y2) return xx < x2 && xx > x1 && yy < y1 && yy > y2;
	if (x1 < x2 && y1 < y2) return xx < x2 && xx > x1 && yy < y2 && yy > y1;
	return 0;
} /* }}} */

/**************************** OPEN 3DO FILE *********************************/
int open_3do_file(const char *filename) /* {{{ */
{
	FILE *f;
	if ((f = fopen(filename, "rt")) == NULL) {
#if 0
		my_graph_close();
		printf("File not found. [%s]\n",filename);
		exit(1);
#endif
		return 0;
	}
	if (fscanf(f,"%d",&pocbod) != 1) {
		fclose(f);
		return 0;
	}
	for (k=1;k<=pocbod;k++) {
		fscanf(f,"%d",&bodxbase[k]);
		fscanf(f,"%d",&bodybase[k]);
		fscanf(f,"%d",&bodzbase[k]);
	}
	for (k=1;k<=pocbod;k++) {
		fscanf(f,"%d",&pocspoj[k]);
		for (l=1;l<=pocspoj[k];l++) {
			fscanf(f,"%d",&spoj[k][l]);
		}
	}
	fclose(f);
	return 1;
} /* }}} */

/**************************** HLAVNY PROGRAM ********************************/
int main(int argc,char *argv[]) /* {{{ */
{
	char pomstr[100];
	clrscr();
	if ((initmouse()!=2)&&(initmouse()!=3))ERROR1();
	if (argc > 1) {
		if (strcmp(argv[1], "-h") && strcmp(argv[1], "--help"))
			(void) open_3do_file(argv[1]);
		else
			ERROR2();
	}
	if (my_graph_init(1) < 0) {
		return 1;
	}
	settextjustify(CENTER_TEXT, CENTER_TEXT);
	settextstyle(0,0,1);
	intface();
	ALFAY=0;
	ALFAX=0;
	ALFAZ=0;
	p=OSX+OSY+OSZ;
	showmouse();
	while (q != MODE_QUIT) {
		if (isinbar(486,387,633,440) == 1 && q == MODE_MAIN_MENU)
			quit();
		if (isinbar(486,297,633,350) == 1 && q == MODE_MAIN_MENU)
			info();
		if (isinbar(486,27,633,80) == 1 && q == MODE_MAIN_MENU)
			run();
		if (isinbar(486,387,633,440) == 1 && q == MODE_MANUAL_TURNING) {
			intface();
			CONTINUE();
		}
		if (isinbar(486,387,633,440) == 1 && q != MODE_MAIN_MENU)
			intface();
		if (isinbar(486,207,633,260) == 1 && q == MODE_MAIN_MENU)
			file_selector(MODE_SELECTED_NONE, 0);
		if (isinbar(486,117,633,170) == 1 && q == MODE_MAIN_MENU)
			manual();
		if (q == MODE_FILE_SELECTION) {
			int mode = MODE_SELECTED_NONE;
			int item = 0;
			if (isinbar(486,37,633,185)) {
				mode = MODE_SELECTED_DIRECTORY;
			} else if (isinbar(486,207,633,355)) {
				mode = MODE_SELECTED_FILE;
			} else if (isinbar(486,190,505,200)) {
				mode = MODE_SELECTED_DIRECTORY_MOVE;
				item = -10;
			} else if (isinbar(509,190,524,200)) {
				mode = MODE_SELECTED_DIRECTORY_MOVE;
				item = -1;
			} else if (isinbar(595,190,610,200)) {
				mode = MODE_SELECTED_DIRECTORY_MOVE;
				item = 1;
			} else if (isinbar(614,190,633,200)) {
				mode = MODE_SELECTED_DIRECTORY_MOVE;
				item = 10;
			} else if (isinbar(486,360,505,370)) {
				mode = MODE_SELECTED_FILE_MOVE;
				item = -10;
			} else if (isinbar(509,360,524,370)) {
				mode = MODE_SELECTED_FILE_MOVE;
				item = -1;
			} else if (isinbar(595,360,610,370)) {
				mode = MODE_SELECTED_FILE_MOVE;
				item = 1;
			} else if (isinbar(614,360,633,370)) {
				mode = MODE_SELECTED_FILE_MOVE;
				item = 10;
			}
			if (mode != MODE_SELECTED_NONE) {
				if (item == 0) {
					WORD yy;
					getmousepos(NULL, &yy);
					item  = yy;
					item -= mode == MODE_SELECTED_FILE ? 212 : 42;
					item /= 10;
					item = min(13, item);
					item = max(0, item);
				}
				file_selector(mode, item);
			}
		}
		if (q == MODE_AUTOMATIC_TURNING) {
			if (stop!=1) {
				if (isinbar(486,40,526,70)==1) {
					if (POSUNX==0)p=p+OSX;
					if (POSUNX!=-0.001)POSUNX+=0.001;
					else POSUNX=0;
					POSUNX+=0.001;
					if (POSUNX==0)p=p-OSX;
				}
				if (isinbar(593,40,633,70)==1) {
					if (POSUNX==0)p=p+OSX;
					if (POSUNX!=0.001)POSUNX-=0.001;
					else POSUNX=0;
					if (POSUNX==0)p=p-OSX;
				}
				if (isinbar(486,90,526,120)==1) {
					if (POSUNY==0)p=p+OSY;
					if (POSUNY!=-0.001)POSUNY+=0.001;
					else POSUNY=0;
					if (POSUNY==0)p=p-OSY;
				}
				if (isinbar(593,90,633,120)==1) {
					if (POSUNY==0)p=p+OSY;
					if (POSUNY!=0.001)POSUNY-=0.001;
					else POSUNY=0;
					if (POSUNY==0)p=p-OSY;
				}
				if (isinbar(486,140,526,170)==1) {
					if (POSUNZ==0)p=p+OSZ;
					if (POSUNZ!=-0.001)POSUNZ+=0.001;
					else POSUNZ=0;
					if (POSUNZ==0)p=p-OSZ;
				}
				if (isinbar(593,140,633,170)==1) {
					if (POSUNZ==0)p=p+OSZ;
					if (POSUNZ!=0.001)POSUNZ-=0.001;
					else POSUNZ=0;
					if (POSUNZ==0)p=p-OSZ;
				}
			}
			if (isinbar(486,207,633,260)==1)CONTINUE();
			if ((isinbar(486,297,633,350)==1)&&(stop!=1))STOP();
			setcolor(WHITE);
			sprintf(pomstr,"%+04.0f",POSUNX*1000);
			bar(530,60,590,70);
			outtextxy(555,65,pomstr);
			sprintf(pomstr,"%+04.0f",POSUNY*1000);
			bar(530,110,590,120);
			outtextxy(555,115,pomstr);
			sprintf(pomstr,"%+04.0f",POSUNZ*1000);
			bar(530,160,590,170);
			outtextxy(555,165,pomstr);
		}
		if (q == MODE_EXIT_DIALOG)
			if (isinbar(486,297,633,350) == 1)
				q = MODE_QUIT;
		if (q == MODE_MANUAL_TURNING) {
			if (isinbar(486,40,526,70)   == 1) POSUNX += 0.01;
			if (isinbar(593,40,633,70)   == 1) POSUNX -= 0.01;
			if (isinbar(486,90,526,120)  == 1) POSUNY += 0.01;
			if (isinbar(593,90,633,120)  == 1) POSUNY -= 0.01;
			if (isinbar(486,140,526,170) == 1) POSUNZ += 0.01;
			if (isinbar(593,140,633,170) == 1) POSUNZ -= 0.01;
		}
		my_graph_refresh();
		delay(50);
		if ((POSUNX>0.0005)||(POSUNY>0.0005)||(POSUNZ>0.0005)
				||(POSUNX<-0.0005)||(POSUNY<-0.0005)||(POSUNZ<-0.0005)) {
			vykresli(BLACK);
			if (POSUNX!=0) {
				if (ALFAX>=180)ALFAX=0;
				else ALFAX+=POSUNX;
			}

			if (POSUNY!=0) {
				if (ALFAY>=180)ALFAY=0;
				else ALFAY+=POSUNY;
			}

			if (POSUNZ!=0) {
				if (ALFAZ>=180)ALFAZ=0;
				else ALFAZ+=POSUNZ;
			}

			posun();
			vykresli(WHITE);
		}
		if (q == MODE_MANUAL_TURNING) {
			POSUNX=0;
			POSUNY=0;
			POSUNZ=0;
		}
	}
	my_graph_close();
	clrscr();
	endstring("3do-view");
	textcolor(0x07);cputs("\r\n\nEspecially thanX 2 ");
	textcolor(11);cputs("Stefan Soun ");
	textcolor(0x07);cputs("a.k.a. ");
	textcolor(128+0x0f);cputs("Pysta");
	cputs("\r\n");
	return 0;
} /* }}} */

/* Modeline for ViM {{{
 * vim: set ts=4:
 * vim600: fdm=marker fdl=0 fdc=0:
 * }}} */