/************************************************************************
   io_ncurses.c  -- shows midi events using ncurses or printf

   Copyright (C) 1994-1996 Nathan I. Laredo

   This program is modifiable/redistributable under the terms
   of the GNU General Public Licence.

   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., 675 Mass Ave, Cambridge, MA 02139, USA.
   Send your comments and all your spare pocket change to
   laredo@gnu.ai.mit.edu (Nathan Laredo) or to PSC 1, BOX 709, 2401
   Kelly Drive, Lackland AFB, TX 78236-5128, USA.
 *************************************************************************/
#include "playmidi.h"
#include <ncurses.h>
#include "gsvoices.h"
#include <sys/time.h>
#include <unistd.h>
#include <errno.h>
#include <signal.h>

char *metatype[7] =
{"Text", "Copyright Notice", "Sequence/Track name",
 "Instrument Name", "Lyric", "Marker", "Cue Point"};

char *sharps[12] =		/* for a sharp key */
{"C", "C#", "D", "D#", "E", "F", "F#", "G", "G#", "A", "A#", "B"};
char *flats[12] =		/* for a flat key */
{"C", "Db", "D", "Eb", "E", "F", "Gb", "G", "Ab", "A", "Bb", "B"};
char *majflat[15] =		/* name of major key with 'x' flats */
{"C", "F", "Bb", "Eb", "Ab", "Db", "Gb", "Cb", "Fb", "Bbb", "Ebb",
 "Abb", "Gbb", "Cbb", "Fbb"};	/* only first 8 defined by file format */
char *majsharp[15] =		/* name of major key with 'x' sharps */
{"C", "G", "D", "A", "E", "B", "F#", "C#", "G#", "D#", "A#",
 "E#", "B#", "F##", "C##"};	/* only first 8 defined by file format */
char *minflat[15] =		/* name of minor key with 'x' flats */
{"A", "D", "G", "C", "F", "Bb", "Eb", "Ab", "Db", "Gb", "Cb",
 "Fb", "Bbb", "Ebb", "Abb"};	/* only first 8 defined by file format */
char *minsharp[15] =		/* name of minor key with 'x' sharps */
{"A", "E", "B", "F#", "C#", "G#", "D#", "A#", "E#", "B#", "F##",
 "C##", "G##", "D##", "A##"};	/* only first 8 defined by file format */

char *drumset[11] =
{
 "STANDARD    ", "ROOM        ", "POWER       ", "ELECTRONIC  ",
 "TR-808/909  ", "JAZZ        ", "BRUSH       ", "ORCHESTRA   ",
 "SFX         ", "User Program", "CM-64/32L   "
};

#define SET(x) (x == 8 ? 1 : x >= 16 && x <= 23 ? 2 : x == 24 ? 3 : \
		x == 25  ? 4 : x == 32 ? 5 : x >= 40 && x <= 47 ? 6 : \
		x == 48 ? 7 : x == 56 ? 8 : x >= 96 && x <= 111 ? 9 : \
		x == 127 ? 10 : 0)

extern int graphics, verbose, perc;
extern int format, ntrks, division;
extern unsigned long int ticks;
extern char *filename, *gmvoice[256];
extern float skew;
extern void seq_reset();
extern struct timeval start_time;

struct timeval now_time, want_time;
char textbuf[1024], **nn;
int i, ytxt, karaoke;

void close_show(error,file)
int error;
const char *file;
{
    int err = errno;
    if (graphics) {
	attrset(A_NORMAL);
	refresh();
	endwin();
    }
    if (err)
    {
      if (file)
	fprintf (stderr, "%s: %s\n", file, strerror (err));
      else
	fprintf (stderr, "%s\n", strerror (err));
    }
    if (error)
      exit(error);
}

#define CHN		(cmd & 0xf)
#define NOTE		((int)data[0])
#define VEL		((int)data[1])
#define OCTAVE		(NOTE / 12)
#define OCHAR		(0x30 + OCTAVE)
#define XPOS		(14 + ((NOTE/2) % ((COLS - 16) / 4)) * 4)
#define YPOS		(CHN + 2)
#define NNAME		nn[NOTE % 12]

int cdeltat(t1, t2)
struct timeval *t1;
struct timeval *t2;
{
    int d1, d2;

    d1 = t1->tv_sec - t2->tv_sec;
    if((d2 = t1->tv_usec - t2->tv_usec) < 0)
	(d2 += 1000000, d1 -= 1);
    d2 /= 10000;
    return (d2 + d1 * 100);
}
int updatestatus()
{
    int ch, d1, d2;

    want_time.tv_sec = start_time.tv_sec + (ticks / 100);
    want_time.tv_usec = start_time.tv_usec + (ticks % 100) * 10000;
    if (want_time.tv_usec > 1000000)
	(want_time.tv_usec -= 1000000, want_time.tv_sec++);

    do {
	attrset(A_BOLD);
	if ((ch = getch()) != ERR)
	    switch (ch) {
	    case KEY_RIGHT:
		if ((skew -= 0.01) < 0.25)
		    skew = 0.25;
		if (graphics)
		    mvprintw(1, COLS - 6, "%0.2f", skew);
		break;
	    case KEY_LEFT:
		if ((skew += 0.01) > 4)
		    skew = 4.0;
		if (graphics)
		    mvprintw(1, COLS - 6, "%0.2f", skew);
		break;
	    case KEY_PPAGE:
	    case KEY_UP:
		seq_reset();
		return (ch == KEY_UP ? 0 : -1);
		break;
	    case 18:
	    case 12:
		wrefresh(curscr);
		break;
	    case 'q':
	    case 'Q':
	    case 3:
		close_show(0,0);
		exit (0);
	    default:
	        fprintf (stderr, "%d\n", ch);
		return 1;	/* skip to next song */
		break;
	    }
	gettimeofday(&now_time, NULL);
	d1 = now_time.tv_sec - start_time.tv_sec;
	d2 = now_time.tv_usec - start_time.tv_usec;
	if (d2 < 0)
	    (d2 += 1000000, d1 -= 1);
	mvprintw(1, 0, "%02d:%02d.%d", d1 / 60, d1 % 60, d2 / 100000);
	refresh();
	d1 = cdeltat(&want_time, &now_time);
	if (d1 > 15)
	    usleep(100000);
    } while (d1 > 10);
    return NO_EXIT;
}

void showevent(cmd, data, length)
int cmd;
unsigned char *data;
int length;
{
    if (cmd < 8 && cmd > 0) {
	if (length > COLS)
	    length = COLS;
	if (length >= sizeof (textbuf))
	    length = sizeof (textbuf) - 1;
	if ((cmd == 1 || cmd == 2) && strncmp(textbuf, (const char *)data, length - 1) == 0)
	     return;	/* ignore repeat messages, "WinJammer Demo" etc. */
	if (verbose) {
	    printf("%s: ", metatype[cmd - 1]);
	    for (i = 0; i < length; i++)
		putchar(data[i]);
	    putchar('\n');
	} else {
	    attrset(A_BOLD | COLOR_PAIR(cmd));
	    if (!karaoke || *data == '\\' || *data == '/' || 
		(*data >= '@' && *data <= 'Z') || *data == '(' ||
		karaoke + length > COLS || (cmd != 1 && karaoke)) {
		karaoke = 0;
		if ((++ytxt) > LINES - 1)
		    ytxt = 19;
		move(ytxt, 0);
		clrtoeol();
		if (*data == '\\' || *data == '/')
		    (data++, length--);	/* karaoke newlines */
		if (*data == '@')	/* karaoke info */
		    (data += 2, length -= 2);
	    }
	    strncpy(textbuf, (const char *)data, length < COLS - karaoke ? length :
		    COLS - karaoke);
	    textbuf[length] = 0;
	    mvaddstr(ytxt, karaoke, textbuf);
	    if (cmd == 1) {
		karaoke += strlen(textbuf);
		if (karaoke > COLS - 10)
		    karaoke = 0;
	    } else
		karaoke = 0;
	}
    } else if (cmd == key_signature) {
	if (graphics || verbose)
	    nn = ((NOTE & 0x80) ? flats : sharps);
	if (verbose) {
	    if (VEL)	/* major key */
		printf("Key: %s major\n", (!(NOTE & 0x80) ?
			majsharp[NOTE] : majflat[256-NOTE]));
	    else	/* minor key */
		printf("Key: %s minor\n", (!(NOTE & 0x80) ?
			minsharp[NOTE] : minflat[256-NOTE]));
	}
    } else
	switch (cmd & 0xf0) {
	case MIDI_KEY_PRESSURE:
	    if (verbose > 4)
		printf("Chn %d Key Pressure %s%c=%d\n",
		       1 + (cmd & 0xf), NNAME, OCHAR, VEL);
	    break;
	case MIDI_NOTEON:
	    if (graphics)
		if (VEL) {
		    attrset(A_BOLD | COLOR_PAIR((CHN % 6 + 1)));
		    if (!ISPERC(CHN) || NOTE > 127 ||
			gmvoice[NOTE + 128] == NULL)
			mvprintw(YPOS, XPOS, "%s%c", NNAME, OCHAR);
		    else
			mvprintw(YPOS, XPOS, "%c%c%c",
				 gmvoice[NOTE + 128][0],
				 gmvoice[NOTE + 128][1],
				 gmvoice[NOTE + 128][2]);
		} else
		    mvaddstr(YPOS, XPOS, "   ");
	    else if (verbose > 5)
		printf("Chn %d Note On %s%c=%d\n",
		       1 + (cmd & 0xf), NNAME, OCHAR, VEL);
	    break;
	case MIDI_NOTEOFF:
	    if (graphics)
		mvaddstr(YPOS, XPOS, "   ");
	    else if (verbose > 5)
		printf("Chn %d Note Off %s%c=%d\n",
		       1 + (cmd & 0xf), NNAME, OCHAR, VEL);
	    break;
	case MIDI_CTL_CHANGE:
	    if (verbose > 5)
		printf("Chn %d Ctl Change %d=%d\n",
		       1 + (cmd & 0xf), NOTE, VEL);
	    break;
	case MIDI_CHN_PRESSURE:
	    if (verbose > 5)
		printf("Chn %d Pressure=%d\n",
		       1 + (cmd & 0xf), NOTE);
	    break;
	case MIDI_PITCH_BEND:
	    {
		register int val = (VEL << 7) | NOTE;

		if (graphics) {
		    attrset(A_BOLD);
		    if (val > 0x2000)
			mvaddch(YPOS, 11, '>');
		    else if (val < 0x2000)
			mvaddch(YPOS, 11, '<');
		    else
			mvaddch(YPOS, 11, ' ');
		} else if (verbose > 4)
		    printf("Chn %d Bender=0x%04x\n",
			   1 + CHN, val);
	    }
	    break;
	case MIDI_PGM_CHANGE:
	    if (graphics) {
		attrset(COLOR_PAIR((CHN % 6 + 1)) | A_BOLD);
		if (!ISPERC(CHN))
		    mvaddnstr(YPOS, 0, gsvoice[NOTE], 12);
		else
		    mvaddstr(YPOS, 0, drumset[SET(NOTE)]);
	    } else if (verbose > 3)
		printf("Chn %d Program=%s %d\n",
		       1 + CHN, (ISPERC(CHN) ? drumset[SET(NOTE)]
				 : gsvoice[NOTE]), NOTE + 1);
	    break;
	case 0xf0:
	case 0xf7:
	    if (verbose > 2) {
		printf("Sysex(%2x): ", cmd);
		for (i = 0; i < length; i++)
		    printf("%02x", data[i]);
		putchar('\n');
	    }
	    break;
	default:
	    break;
	}
}

static void init_show_text (void)
{
    char *tmp;
    attrset(A_NORMAL);
    mvprintw(0, 0, RELEASE " by Nathan Laredo");
    mvprintw(0, 40, "Now Playing:");
    mvprintw(1, 40, "[P]ause [N]ext [L]ast [O]ptions");
    mvvline(2, 12, ACS_VLINE, 16); /*ytxt - 2);*/
    mvhline(18 /*ytxt*/, 0, ACS_HLINE, 12);
    mvaddch(18 /*ytxt*/, 12, ACS_LRCORNER);
    mvprintw(1, 0, "00:00.0 - 00:00.0, %d track%c", ntrks,
	     ntrks > 1 ? 's' : ' ');
    tmp = strrchr(filename, '/');
    strncpy(textbuf, (tmp == NULL ? filename : tmp + 1), COLS - 53);
    if (strlen(textbuf) > COLS - 53)
	textbuf[COLS - 53] = '\0';
    attrset(A_BOLD);
    mvaddstr(0, 53, textbuf);
    mvaddch(1, 41, 'P');
    mvaddch(1, 49, 'N');
    mvaddch(1, 56, 'L');
    mvaddch(1, 63, 'O');
    mvaddstr(0, 0, RELEASE);
}

void init_show()
{
    nn = flats;
    ytxt = 18;
    karaoke = 0;
    if (graphics) {
	clear();
	init_show_text ();
	attrset(A_NORMAL);
	for (i = 0; i < 16; i++)
	    mvprintw(i + 2, 0, "Channel %2d", i + 1);
	refresh();
    } else if (verbose) {
	printf("** Now Playing \"%s\"\n", filename);
	printf("** Format: %d, Tracks: %d, Division: %d\n", format,
	       ntrks, division);
    }
}

static void resize_signal_handler (int sig)
{
    struct winsize size;
    if (!ioctl (fileno (stdout), TIOCGWINSZ, &size))
    {
	int y;
	resize_term (size.ws_row, size.ws_col);
	if (size.ws_col > 14)
	    for (y = 2; y < 18; ++y)
	    {
		move (y, 14);
		clrtoeol ();
	    }
	init_show_text ();
	wrefresh (curscr);
    }
    signal (SIGWINCH, resize_signal_handler);
}
                                            
void setup_show(argc, argv)
int argc;
char **argv;
{
    if (graphics) {
	signal (SIGWINCH, resize_signal_handler);
	initscr();
	start_color();
	verbose = 0;
	init_pair(1, COLOR_RED, COLOR_BLACK);
	init_pair(2, COLOR_GREEN, COLOR_BLACK);
	init_pair(3, COLOR_YELLOW, COLOR_BLACK);
	init_pair(4, COLOR_BLUE, COLOR_BLACK);
	init_pair(5, COLOR_MAGENTA, COLOR_BLACK);
	init_pair(6, COLOR_CYAN, COLOR_BLACK);
	init_pair(7, COLOR_WHITE, COLOR_BLACK);
	raw();
	noecho();
	nodelay(stdscr, TRUE);
	keypad(stdscr, TRUE);
	attrset(A_NORMAL);
    }
}