/* mhl.c   by Michael Thorpe   2019-08-10 */

#include <assert.h>
#include <curses.h>
#include <errno.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/select.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <sys/types.h>
#include "runner.h"

#define DEFAULT_SPEED 113 /* 0=full speed, 113=half speed by default */
#define ONLY_MOVE_WHEN_OFF 1 /* 0=move even when dimmer!=0, 1=only when dark */

/* These are wrong, but should be kept in some form */
#if OLD_STYLE_LIGHT_BOARD
#define IN_PAN   40 /* fader 48 */
#define IN_TILT  42 /* fader 47 */
#define IN_DIM   47 /* fader 46 */
#define IN_SCENE 46 /* fader 45 */
#define IN_GOBO  45 /* fader 44 */
#define IN_FOCUS 44 /* fader 43 */
#else
#define IN_PAN   12
#define IN_TILT  11
#define IN_DIM   10
#define IN_SCENE 9
#define IN_GOBO  25
#define IN_FOCUS 26
#endif

/* These are 0-based (i.e., one smaller than the manual says) */
#define PAN (1-1)
#if FINE_MODE
#define PAN2 (PAN+1)
#endif
#define TILT (3-!FINE_MODE-1)
#if FINE_MODE
#define TILT2 (TILT+1)
#endif
#define COLOR (5-!FINE_MODE-!FINE_MODE-1)
#define RGOBO (6-!FINE_MODE-!FINE_MODE-1)
#define ROTATION (7-!FINE_MODE-!FINE_MODE-1)
#define FGOBO (8-!FINE_MODE-!FINE_MODE-1)
#define PRISM (9-!FINE_MODE-!FINE_MODE-1)
#define FOCUS (10-!FINE_MODE-!FINE_MODE-1)
#define SHUTTER (11-!FINE_MODE-!FINE_MODE-1)
#define DIMMER (12-!FINE_MODE-!FINE_MODE-1)
#define SPEED (13-!FINE_MODE-!FINE_MODE-1)
#define SPECIAL (14-!FINE_MODE-!FINE_MODE-1)
#define NUM_CHANNELS (14-!FINE_MODE-!FINE_MODE)

struct mhlscene {
	float panbase,tiltbase;
	float panscale,tiltscale;
	unsigned char gobo,focus;
	int color;
};

int mhl_base_pos=0,mhl_last_pos=-1;

static unsigned char curvals[NUM_CHANNELS];
static int curchan=0;
static struct mhlscene *mhlscenes;
static int nummhlscenes=0;
static int curscenenum=-1;

static void setval(int chan,unsigned char val) {
	int i=0,j,k;
	char line[80];
	int on=-1,off=-1;
	assert(0<=curscenenum);
	assert(curscenenum<nummhlscenes);
	if(COLOR==chan && curvals[chan] != val && mhlscenes)
		mhlscenes[curscenenum].color=val;
	curvals[chan]=val;
	if(mhlscenes) { /* update the mhlscenes entry, if we have one */
		switch(chan) {
#if FINE_MODE
		case PAN: case PAN2: mhlscenes[curscenenum].panbase=(float)curvals[PAN]+(float)curvals[PAN2]/256.-mhlscenes[curscenenum].panscale*(curlook->func(curlook,IN_PAN)-128)/256.; break;
		case TILT: case TILT2: mhlscenes[curscenenum].tiltbase=(float)curvals[TILT]+(float)curvals[TILT2]/256.-mhlscenes[curscenenum].tiltscale*(curlook->func(curlook,IN_TILT)-128)/256.; break;
#else
		case PAN: mhlscenes[curscenenum].panbase=val-mhlscenes[curscenenum].panscale*(curlook->func(curlook,IN_PAN)-128)/256.; break;
		case TILT: mhlscenes[curscenenum].tiltbase=val-mhlscenes[curscenenum].tiltscale*(curlook->func(curlook,IN_TILT)-128)/256.; break;
#endif
/* COLOR is handled above the value change so we can leave "unspecified" as a color */
		case FGOBO: mhlscenes[curscenenum].gobo=val; break;
		case FOCUS: mhlscenes[curscenenum].focus=val; break;
		}
	}
	if(!mhlframe.h || !mhlframe.w)
		return;
	if(curchan==chan) {
		on=0;
		off=3;
	}
	switch(chan) {
	case PAN:
#if FINE_MODE
	case PAN2:
		if(PAN==curchan) {
			on=0;
			off=3;
		} else if(PAN2==curchan) {
			on=4;
			off=7;
		}
#endif
		k=0;
		i+=sprintf(line+i,"%3u",curvals[PAN]);
#if FINE_MODE
		line[i++]='.';
		i+=sprintf(line+i,"%-3u",curvals[PAN2]);
#endif
		i+=sprintf(line+i,"  Pan");
		break;
	case TILT:
#if FINE_MODE
	case TILT2:
		if(TILT==curchan) {
			on=0;
			off=3;
		} else if(TILT2==curchan) {
			on=4;
			off=7;
		}
#endif
		k=1;
		i+=sprintf(line+i,"%3u",curvals[TILT]);
#if FINE_MODE
		line[i++]='.';
		i+=sprintf(line+i,"%-3u",curvals[TILT2]);
#endif
		i+=sprintf(line+i,"  Tilt");
		break;
	case COLOR:
		k=2;
		i+=sprintf(line+i,"%3u  Color: ",curvals[COLOR]);
		if(curvals[COLOR]<=13)
			i+=sprintf(line+i,"white");
		else if(curvals[COLOR]<=27)
			i+=sprintf(line+i,"red");
		else if(curvals[COLOR]<=41)
			i+=sprintf(line+i,"blue");
		else if(curvals[COLOR]<=55)
			i+=sprintf(line+i,"green");
		else if(curvals[COLOR]<=69)
			i+=sprintf(line+i,"yellow");
		else if(curvals[COLOR]<=83)
			i+=sprintf(line+i,"magenta");
		else if(curvals[COLOR]<=97)
			i+=sprintf(line+i,"orange");
		else if(curvals[COLOR]<=111)
			i+=sprintf(line+i,"purple");
		else if(curvals[COLOR]<=127)
			i+=sprintf(line+i,"pink");
		else if(curvals[COLOR]<=187) {
			i+=sprintf(line+i,"forwards (%u%%)",100*(188-curvals[COLOR])/(188-128));
		} else if(curvals[COLOR]<=193)
			i+=sprintf(line+i,"stopped");
		else {
			i+=sprintf(line+i,"backwards (%u%%)",100*(curvals[COLOR]-193)/(255-193));
		}
		break;
	case RGOBO:
		k=3;
		i+=sprintf(line+i,"%3u  Rotating gobos: ",curvals[RGOBO]);
		if(curvals[RGOBO]<=9)
			i+=sprintf(line+i,"open");
		else if(curvals[RGOBO]<=19)
			i+=sprintf(line+i,"#1 = stars");
		else if(curvals[RGOBO]<=29)
			i+=sprintf(line+i,"#2 = phone dial");
		else if(curvals[RGOBO]<=39)
			i+=sprintf(line+i,"#3 = sunburst");
		else if(curvals[RGOBO]<=49)
			i+=sprintf(line+i,"#4 = spiral");
		else if(curvals[RGOBO]<=59)
			i+=sprintf(line+i,"#5 = triangle");
		else if(curvals[RGOBO]<=69)
			i+=sprintf(line+i,"#6 = textured");
		else if(curvals[RGOBO]<=89)
			i+=sprintf(line+i,"#1 shake %u%%",100*(curvals[RGOBO]-69)/(89-69));
		else if(curvals[RGOBO]<=109)
			i+=sprintf(line+i,"#2 shake %u%%",100*(curvals[RGOBO]-89)/(109-89));
		else if(curvals[RGOBO]<=129)
			i+=sprintf(line+i,"#3 shake %u%%",100*(curvals[RGOBO]-109)/(129-109));
		else if(curvals[RGOBO]<=149)
			i+=sprintf(line+i,"#4 shake %u%%",100*(curvals[RGOBO]-129)/(149-129));
		else if(curvals[RGOBO]<=169)
			i+=sprintf(line+i,"#5 shake %u%%",100*(curvals[RGOBO]-149)/(169-149));
		else if(curvals[RGOBO]<=189)
			i+=sprintf(line+i,"#6 shake %u%%",100*(curvals[RGOBO]-169)/(189-169));
		else
			i+=sprintf(line+i,"scroll %u%%",100*(curvals[RGOBO]-189)/(255-189));
		break;
	case ROTATION:
		k=4;
		i+=sprintf(line+i,"%3u  Gobo rotation: ",curvals[ROTATION]);
		if(curvals[ROTATION]<=127)
			i+=sprintf(line+i,"indexed to %u%%",100*curvals[ROTATION]/127);
		else if(curvals[ROTATION]<=187)
			i+=sprintf(line+i,"forward %u%%",100*(188-curvals[ROTATION])/(188-128));
		else if(curvals[ROTATION]<=193)
			i+=sprintf(line+i,"stopped");
		else
			i+=sprintf(line+i,"backward %u%%",100*(curvals[ROTATION]-193)/(255-193));
		break;
	case FGOBO:
		k=5;
		i+=sprintf(line+i,"%3u  Fixed gobos: ",curvals[FGOBO]);
		if(curvals[FGOBO]<=13)
			i+=sprintf(line+i,"open (4/10 throw)");
		else if(curvals[FGOBO]<=27)
			i+=sprintf(line+i,"#1 = Celtic knot");
		else if(curvals[FGOBO]<=41)
			i+=sprintf(line+i,"#2 = apple slices/tart");
		else if(curvals[FGOBO]<=55)
			i+=sprintf(line+i,"#3 = volleyball/BofA");
		else if(curvals[FGOBO]<=69)
			i+=sprintf(line+i,"#4 = sunburst (.5/10 hole)");
		else if(curvals[FGOBO]<=83)
			i+=sprintf(line+i,"#5 = film/plant (1/10 hole)");
		else if(curvals[FGOBO]<=97)
			i+=sprintf(line+i,"#6 = Pikachutlotl (1.5/10 hole)");
		else if(curvals[FGOBO]<=111)
			i+=sprintf(line+i,"#7 = iris (2/10 hole)");
		else if(curvals[FGOBO]<=127)
			i+=sprintf(line+i,"#1 shake %u%%",100*(curvals[FGOBO]-111)/(127-111));
		else if(curvals[FGOBO]<=143)
			i+=sprintf(line+i,"#2 shake %u%%",100*(curvals[FGOBO]-127)/(143-127));
		else if(curvals[FGOBO]<=159)
			i+=sprintf(line+i,"#3 shake %u%%",100*(curvals[FGOBO]-143)/(159-143));
		else if(curvals[FGOBO]<=175)
			i+=sprintf(line+i,"#4 shake %u%%",100*(curvals[FGOBO]-159)/(175-159));
		else if(curvals[FGOBO]<=191)
			i+=sprintf(line+i,"#5 shake %u%%",100*(curvals[FGOBO]-175)/(191-175));
		else if(curvals[FGOBO]<=207)
			i+=sprintf(line+i,"#6 shake %u%%",100*(curvals[FGOBO]-191)/(207-191));
		else if(curvals[FGOBO]<=223)
			i+=sprintf(line+i,"#7 shake %u%%",100*(curvals[FGOBO]-207)/(223-207));
		else
			i+=sprintf(line+i,"rotating %u%%",100*(curvals[FGOBO]-223)/(255-223));
		break;
	case PRISM:
		k=6;
		i+=sprintf(line+i,"%3u  Prism: ",curvals[PRISM]);
		if(curvals[PRISM]<=3)
			i+=sprintf(line+i,"open");
		else if(curvals[PRISM]<=63)
			i+=sprintf(line+i,"forward %u%%",100*(64-curvals[PRISM])/(64-4));
		else if(curvals[PRISM]<=67)
			i+=sprintf(line+i,"stopped");
		else if(curvals[PRISM]<=127)
			i+=sprintf(line+i,"backward %u%%",100*(curvals[PRISM]-67)/(127-67));
		else
			i+=sprintf(line+i,"macro %u",1+(curvals[PRISM]-128)/8);
		break;
	case FOCUS:
		k=7;
		i+=sprintf(line+i,"%3u  Focus",curvals[FOCUS]);
		break;
	case SHUTTER:
		k=8;
		i+=sprintf(line+i,"%3u  Shutter: ",curvals[SHUTTER]);
		if(curvals[SHUTTER]<=31)
			i+=sprintf(line+i,"closed");
		else if(curvals[SHUTTER]<=63)
			i+=sprintf(line+i,"open");
		else if(curvals[SHUTTER]<=95)
			i+=sprintf(line+i,"strobe %u%%",100*(curvals[SHUTTER]-63)/(95-63));
		else if(curvals[SHUTTER]<=127)
			i+=sprintf(line+i,"open");
		else if(curvals[SHUTTER]<=159)
			i+=sprintf(line+i,"pulse effect");
		else if(curvals[SHUTTER]<=191)
			i+=sprintf(line+i,"open");
		else if(curvals[SHUTTER]<=223)
			i+=sprintf(line+i,"random strobe %u%%",100*(curvals[SHUTTER]-191)/(223-191));
		else
			i+=sprintf(line+i,"open");
		break;
	case DIMMER:
		k=9;
		i+=sprintf(line+i,"%3u  Dimmer",curvals[DIMMER]);
		break;
	case SPEED:
		k=10;
		i+=sprintf(line+i,"%3u  Speed: ",curvals[SPEED]);
		if(curvals[SPEED]<=225)
			i+=sprintf(line+i,"%u%%",100*(226-curvals[SPEED])/226);
		else if(curvals[SPEED]<=235)
			i+=sprintf(line+i,"blackout by movement");
		else if(curvals[SPEED]<=245)
			i+=sprintf(line+i,"blackout by wheel change");
		else
			i+=sprintf(line+i,"no function");
		break;
	case SPECIAL:
		k=11;
		i+=sprintf(line+i,"%3u  Special: ",curvals[SPECIAL]);
		if(curvals[SPECIAL]<=19)
			i+=sprintf(line+i,"normal");
		else if(curvals[SPECIAL]<=39)
			i+=sprintf(line+i,"any position");
		else if(curvals[SPECIAL]<=59)
			i+=sprintf(line+i,"lamp on");
		else if(curvals[SPECIAL]<=79)
			i+=sprintf(line+i,"lamp off");
		else if(curvals[SPECIAL]<=99)
			i+=sprintf(line+i,"motor reset");
		else if(curvals[SPECIAL]<=119)
			i+=sprintf(line+i,"internal program 1");
		else if(curvals[SPECIAL]<=139)
			i+=sprintf(line+i,"internal program 2");
		else if(curvals[SPECIAL]<=159)
			i+=sprintf(line+i,"internal program 3");
		else if(curvals[SPECIAL]<=179)
			i+=sprintf(line+i,"internal program 4");
		else if(curvals[SPECIAL]<=199)
			i+=sprintf(line+i,"internal program 5");
		else if(curvals[SPECIAL]<=219)
			i+=sprintf(line+i,"internal program 6");
		else if(curvals[SPECIAL]<=239)
			i+=sprintf(line+i,"internal program 7");
		else
			i+=sprintf(line+i,"sound active");
		break;
	}
	if(k<mhlframe.h) {
		move(mhlframe.y+k,mhlframe.x);
		for(j=0;j<i && j<mhlframe.w;j++) {
			if(off==j)
				attroff(A_STANDOUT);
			else if(on==j)
				attron(A_STANDOUT);
			addch(line[j]);
		}
		while(j++<mhlframe.w)
			addch(' ');
	}
	attroff(A_STANDOUT);
}

static void setcurchan(int new) {
	int old=curchan;
	curchan=new;
	setval(old,curvals[old]);
	setval(new,curvals[new]);
}

static int decreasechan(int chan) {
	if(0<curvals[chan])
		setval(chan,curvals[chan]-1);
	else if(PAN2==chan && 0<curvals[PAN]) {
		setval(PAN,curvals[PAN]-1);
		setval(PAN2,255);
	} else if(TILT2==chan && 0<curvals[TILT]) {
		setval(TILT,curvals[TILT]-1);
		setval(TILT2,255);
	} else
		return(1);
	return(0);
}

static int increasechan(int chan) {
	if(curvals[chan]<255)
		setval(chan,curvals[chan]+1);
	else if(PAN2==chan && curvals[PAN]<255) {
		setval(PAN,curvals[PAN]+1);
		setval(PAN2,0);
	} else if(TILT2==chan && curvals[TILT]<255) {
		setval(TILT,curvals[TILT]+1);
		setval(TILT2,0);
	} else
		return(1);
	return(0);
}

static void mhl_store() {
	FILE *f;
	int i;
	if(!mhlscenes)
		return;
	f=fopen(".mhl","w");
	if(!f) {
		perror("open(.mhl)");
		return;
	}
	for(i=0;i<nummhlscenes;i++) {
		fprintf(f,"%f",mhlscenes[i].panbase);
		if(mhlscenes[i].panscale)
			fprintf(f,"*%f",mhlscenes[i].panscale);
		fprintf(f,"\t%f",mhlscenes[i].tiltbase);
		if(mhlscenes[i].tiltscale)
			fprintf(f,"*%f",mhlscenes[i].tiltscale);
		fprintf(f,"\t%u\t%u",(unsigned int)mhlscenes[i].gobo,(unsigned int)mhlscenes[i].focus);
		if(-1 != mhlscenes[i].color)
			fprintf(f,"\t%d",mhlscenes[i].color);
		fputc('\n',f);
	}
	if(fclose(f))
		perror("close");
}

static void add_mhlscene() {
	mhlscenes=(struct mhlscene *)realloc(mhlscenes,(nummhlscenes+1)*sizeof(struct mhlscene));
	assert(mhlscenes);
	mhlscenes[nummhlscenes].panbase=215;
	mhlscenes[nummhlscenes].panscale=16;
	mhlscenes[nummhlscenes].tiltbase=255-32;
	mhlscenes[nummhlscenes].tiltscale=18;
	mhlscenes[nummhlscenes].gobo=0;
	mhlscenes[nummhlscenes].focus=128;
	mhlscenes[nummhlscenes].color=-1;
	nummhlscenes++;
}

static void change_to_scene(int newscenenum) {
	while(nummhlscenes<=newscenenum)
		add_mhlscene();
	curscenenum=newscenenum;
	if(-1 != mhlscenes[curscenenum].color)
		setval(COLOR,mhlscenes[curscenenum].color);
	setval(FGOBO,mhlscenes[curscenenum].gobo);
	setval(FOCUS,mhlscenes[curscenenum].focus);
	if(12<mhlframe.h && 8<=mhlframe.w)
		mvprintw(mhlframe.y+12,mhlframe.x,"Scene: %d",curscenenum);
}

int mhl_load() {
	FILE *f;
	int line=0;
	long l;
	char buf[2500];
	char *tmp;
	if(mhlscenes) {
		nummhlscenes=0;
		free(mhlscenes);
		mhlscenes=0;
	}
	f=fopen(".mhl","r");
	if(!f) {
		if(ENOENT==errno) {
			mhl_base_pos=0;
			mhl_last_pos=-1;
			goto NO_SCENES;
		}
		perror("open(.mhl)");
		return(1);
	}
	mhl_base_pos=100;
	mhl_last_pos=mhl_base_pos+14-1-!FINE_MODE-!FINE_MODE;
	while(fgets(buf,sizeof(buf),f)) {
		line++;
		mhlscenes=(struct mhlscene *)realloc(mhlscenes,(nummhlscenes+1)*sizeof(struct mhlscene));
		assert(mhlscenes);
		mhlscenes[nummhlscenes].panbase=strtof(buf,&tmp);
		mhlscenes[nummhlscenes].panscale=('*'==tmp[0])?strtof(tmp+1,&tmp):0;
		if('\t' != tmp[0]) {
			fprintf(stderr,".mhl:%d: Invalid pan\n",line);
			return(1);
		}
		mhlscenes[nummhlscenes].tiltbase=strtof(tmp+1,&tmp);
		mhlscenes[nummhlscenes].tiltscale=('*'==tmp[0])?strtof(tmp+1,&tmp):0;
		if('\t' != tmp[0]) {
			fprintf(stderr,".mhl:%d: Invalid tilt\n",line);
			return(1);
		}
		l=strtol(tmp+1,&tmp,0);
		if(l<0 || 255<l || '\t' != tmp[0]) {
			fprintf(stderr,".mhl:%d: Invalid gobo\n",line);
			return(1);
		}
		mhlscenes[nummhlscenes].gobo=l;
		l=strtol(tmp+1,&tmp,0);
		if(l<0 || 255<l || ('\t' != tmp[0] && '\n' != tmp[0])) {
			fprintf(stderr,".mhl:%d: Invalid focus\n",line);
			return(1);
		}
		mhlscenes[nummhlscenes].focus=l;
		if('\t'==tmp[0]) {
			l=strtol(tmp+1,&tmp,0);
			if(l<0 || 255<l || '\n' != tmp[0]) {
				fprintf(stderr,".mhl:%d: Invalid color\n",line);
				return(1);
			}
			mhlscenes[nummhlscenes].color=l;
		} else {
			mhlscenes[nummhlscenes].color=-1;
		}
		nummhlscenes++;
	}
	if(fclose(f))
		perror("close");
NO_SCENES:
/* Initialize our settings and the display */
	curvals[PAN]=128;
#if FINE_MODE
	curvals[PAN2]=128;
#endif
	curvals[TILT]=128;
#if FINE_MODE
	curvals[TILT2]=128;
#endif
	curvals[COLOR]=0;
	curvals[RGOBO]=0;
	curvals[ROTATION]=0;
	curvals[FGOBO]=0;
	curvals[PRISM]=0;
	curvals[FOCUS]=128;
	curvals[SHUTTER]=48;
	curvals[DIMMER]=0;
	curvals[SPEED]=DEFAULT_SPEED;
	curvals[SPECIAL]=0;
	if(mhl_base_pos)
		change_to_scene(0);
	atexit(mhl_store);
	return(0);
}

static void mhl_redraw() {
	int i,j;
	if(!mhlframe.h || !mhlframe.w)
		return;
	draw_titlebar(&mhlframe);
	setval(PAN,curvals[PAN]);
	setval(TILT,curvals[TILT]);
	for(i=COLOR;i<NUM_CHANNELS;i++)
		setval(i,curvals[i]);
	i-=FINE_MODE+FINE_MODE;
	if(0<=curscenenum && i<mhlframe.h && 8<=mhlframe.w) {
		mvprintw(mhlframe.y+i,mhlframe.x,"Scene: %d",curscenenum);
		for(j=8;j<mhlframe.w;j++)
			addch(' ');
		i++;
	}
	for(;i<mhlframe.h;i++) {
		move(mhlframe.y+i,mhlframe.x);
		for(j=0;j<mhlframe.w;j++)
			addch(' ');
	}
}

static int desiredscenenum=0;
void mhl_update() {
	int pan,tilt;
	if(!mhlscenes)
		return;
	if(desiredscenenum != curscenenum) {
		if(0==curvals[DIMMER] || !ONLY_MOVE_WHEN_OFF)
			change_to_scene(desiredscenenum);
	}
	setval(DIMMER,curlook->func(curlook,IN_DIM));
	pan=mhlscenes[curscenenum].panbase*256+mhlscenes[curscenenum].panscale*(curlook->func(curlook,IN_PAN)-128);
	tilt=mhlscenes[curscenenum].tiltbase*256+mhlscenes[curscenenum].tiltscale*(curlook->func(curlook,IN_TILT)-128);
	if(pan<0) pan=0;
	if(65535<pan) pan=65535;
	if(tilt<0) tilt=0;
	if(65535<tilt) tilt=65535;
	setval(PAN,pan/256);
	setval(TILT,tilt/256);
#if FINE_MODE
	setval(PAN2,pan%256);
	setval(TILT2,tilt%256);
#endif
	setval(DIMMER,curlook->func(curlook,IN_DIM));
}

void mhl_setscene(int mhlposidx) {
	if(-1 != mhlposidx)
		desiredscenenum=mhlposidx;
}

unsigned char mhl_output(int subchan) {
	if(0<=subchan && subchan<NUM_CHANNELS)
		return(curvals[subchan]);
	return(0);
}

void mhl_power(enum mhlpower_t new) {
	switch(new) {
	case NEUTRAL: setval(SPECIAL,0); break;
	case ON: setval(SPECIAL,50); break;
	case OFF: setval(SPECIAL,70); break;
	}
}

static int mhl_input(int c) {
	switch(c) {
		case '0':
			setval(curchan,0);
			break;
		case 'b':
			setval(COLOR,35); /* blue */
			break;
		case 'd':
			setcurchan(DIMMER);
			break;
		case 'f':
			setval(curchan,255);
			break;
		case 'g':
			setval(COLOR,49); /* green */
			break;
		case 'h':
			setval(curchan,128);
			break;
		case 'k':
			setval(COLOR,119); /* pink */
			break;
		case 'm':
			setval(COLOR,77); /* magenta */
			break;
		case 'o':
			setval(COLOR,91); /* orange */
			break;
		case 'p':
			setval(COLOR,105); /* purple */
			break;
		case 'q':
			setval(curchan,64);
			break;
		case 'r':
			setval(COLOR,21); /* red */
			break;
		case 'w':
			setval(COLOR,0); /* white */
			break;
		case 'y':
			setval(COLOR,63); /* yellow */
			break;
		case KEY_UP:
			if(0==curchan)
				errmsg("Already at top");
			else
				setcurchan(curchan-1);
			break;
		case KEY_DOWN:
			if(NUM_CHANNELS-1==curchan)
				errmsg("Already at bottom");
			else
				setcurchan(curchan+1);
			break;
		case KEY_LEFT:
			if(decreasechan(curchan))
				errmsg("Already at min");
			break;
		case KEY_RIGHT:
			if(increasechan(curchan))
				errmsg("Already at max");
			break;
		case KEY_SLEFT:
			if(decreasechan(PAN))
				errmsg("Already at min");
			break;
		case KEY_SRIGHT:
			if(increasechan(PAN))
				errmsg("Already at max");
			break;
		case KEY_PPAGE:
			setcurchan(0);
			break;
		case KEY_NPAGE:
			setcurchan(NUM_CHANNELS-1);
			break;
		default:
			errmsg("Unknown char");
			return(0);
	}
	return(1);
}

struct frame mhlframe={draw:mhl_redraw,input:mhl_input};