/*
   =============================================================================
	idselbx.c -- instrument definition box selection functions
	Version 46 -- 1988-09-15 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"
#include "fields.h"
#include "hwdefs.h"
#include "vsdd.h"
#include "graphdef.h"

#include "midas.h"
#include "instdsp.h"

#include "stdio.h"
#include "vsddsw.h"

extern	void	(*itxput)(int16_t row, int16_t col, int8_t *txt, int16_t tag);

extern	void	lseg(int16_t x1, int16_t y1, int16_t x2, int16_t y2, int16_t t);
extern	void	dswin(int16_t n);
extern	void	tsplot4(int16_t *obase, int16_t nw, int16_t fg, int16_t row, int16_t col, int8_t *str, int16_t pitch);
extern	void	vbfill4(uint16_t *obj, int16_t obwidth, int16_t xmin, int16_t ymin, int16_t xmax, int16_t ymax, uint16_t color);
extern	int16_t	entbh(int16_t n);
extern	void	vtdisp(uint16_t *obj, uint16_t fg, uint16_t bg, int16_t row, int16_t col, int8_t *buf);
extern	void	advicur(void);
extern	void	bspicur(void);

extern	void	drawfn(int16_t fn, int16_t how, int16_t pen, int16_t wn);
extern	int16_t	selpnt(void);
extern	int16_t	ttox(uint16_t time, int16_t window);
extern	int16_t	vtoy(int16_t val, int16_t window);

extern	int16_t	timeto(int16_t fn, int16_t pj);
extern	uint16_t	exp_c(uint16_t c);

/* 
*/

extern	int16_t	cursbox, cxval, cyval;
extern	int16_t	curvce, curfunc, curpnt;
extern	int16_t	hitbox, hitcx, hitcy, idnamsw, idimsw, idtdat;
extern	int16_t	pntsv, pecase, stccol, subj, submenu;

extern	int16_t	temin, temax;

extern	struct	selbox	*csbp, *curboxp;
extern	struct	instdef vbufs[];
extern	struct	instdef idefs[];

extern	struct	instpnt	*pntptr;

extern	int16_t	idbox[][8];
extern	int16_t	instmod[];

extern	int8_t	*vtdeptr;

extern	int8_t	*idbxlbl[];
extern	int8_t	idhlbl[];
extern	int8_t	bfs[];

extern	uint16_t	*instob;

/* forward references */

int16_t	bx_null(void);
int16_t	idfnbox(int16_t n);

extern	int16_t gcurpos(int16_t xloc, int16_t yloc);
extern	int16_t rd_ires(int16_t n);
extern	int16_t vtyper(void);
extern	void allwins(void);
extern	void arcurs(uint16_t icolor);
extern	void drawpt(int16_t px, int16_t py, int16_t pc);
extern	void idbord(void);
extern	void idvlblc(void);
extern	void idvtyp(void);
extern	void pntsel(void);
extern	void setgc(int16_t xv, int16_t yv);
extern	void settc(int16_t rv, int16_t cv);
extern	void vtsetup(uint16_t *obj, int16_t (*dsp)(), int16_t col, int8_t *ptr, int16_t tr, int16_t tc, int16_t (*adv)(), int16_t (*bsp)(), int16_t (*cup)(), int16_t (*cdn)(), int16_t (*stop)(), uint16_t fg, uint16_t bg);
extern	void wcmenu(int16_t wc);

/* 
*/

struct	selbox	idboxes[] = {

	{  1,   1,  84,  26,      0, idfnbox},	/*  0: Freq 1 */
	{ 86,   1, 169,  26,      1, idfnbox},	/*  1: Freq 2 */
	{171,   1, 254,  26,      2, idfnbox},	/*  2: Freq 3 */
	{256,   1, 339,  26,      3, idfnbox},	/*  3: Freq 4 */
	{341,   1, 424,  26,      4, idfnbox},	/*  4: Filter / Resonance */
	{426,   1, 509,  26,      5, idfnbox},	/*  5: Location */

	{  1,  28,  84,  54,      6, idfnbox},	/*  6: Index 1 */
	{ 86,  28, 169,  54,      7, idfnbox},	/*  7: Index 2 */
	{171,  28, 254,  54,      8, idfnbox},	/*  8: Index 3 */
	{256,  28, 339,  54,      9, idfnbox},	/*  9: Index 4 */
	{341,  28, 424,  54,     10, idfnbox},	/* 10: Index 5 */
	{426,  28, 509,  54,     11, idfnbox},	/* 11: Index 6 */

	{  1,  56, 509, 208,     12, idfnbox},	/* 12: Level */

	{  1, 210, 110, 236, 0x0000, entbh},	/* 13: Source- Mlt */
	{112, 210, 142, 236, 0x0000, entbh},	/* 14: Pt */
	{144, 210, 206, 236, 0x0000, entbh},	/* 15: Time */
	{208, 210, 366, 236, 0x0000, entbh},	/* 16: Value */
	{368, 210, 509, 236, 0x0000, entbh},	/* 17: Action */

	{  1, 238, 131, 348, 0x0000, idfnbox},	/* 18: Algorithm */
	{133, 238, 267, 251, 0x0000, idfnbox},	/* 19: Voice & Inst */
	{269, 238, 379, 306, 0x0000, entbh},	/* 20: Oscillators */
	{381, 238, 509, 348, 0x0000, idfnbox},	/* 21: Waveshape */

	{133, 308, 379, 348, 0x0000, entbh},	/* 22: Variables */

	{133, 252, 267, 306,     19, idfnbox},	/* 23: Name & Comments */

	{  0,   0,   0,   0, 	  0, FN_NULL}	/* end of table */
};

/* 
*/

/*
   =============================================================================
	idtxput() -- put out instrument menu text for the instrument display
   =============================================================================
*/

void idtxput(int16_t row, int16_t col, int8_t *txt, int16_t tag)
{
	if (v_regs[5] & 0x0180)
		vbank(0);

	tsplot4(instob, 64, CFBX19, row, col, txt, 14);
}

/*
   =============================================================================
	showim() -- show the instrument menu
   =============================================================================
*/

void showim(void)
{
	register int16_t row, col, ins;

	ins = 0;

	for (col = 1; col < 46; col += 22) {

		(*itxput)(0, col, "No Instrument", 0);

		for (row = 1; row < 15; row++) {

			if (ins GE NINST)
				break;

			sprintf(bfs, "%02d %-16.16s", ins, idefs[ins].idhname);
			(*itxput)(row, col, bfs, 1);
			++ins;
		}
	}
}

/* 
*/

/*
   =============================================================================
	cdnicur() -- instrument definition virtual typewriter -- cursor down
   =============================================================================
*/

void cdnicur(void)
{
	register struct instdef *ip;

	ip = &vbufs[curvce];

	switch (idtdat) {

	case 0:
		idtdat = 1;
		vtdeptr = ip->idhcom1;
		settc(19, stccol);
		return;

	case 1:
		idtdat = 2;
		vtdeptr = ip->idhcom2;
		settc(20, stccol);
		return;

	case 2:
		idtdat = 3;
		vtdeptr = ip->idhcom3;
		settc(21, stccol);
		return;

	case 3:
		idtdat = 0;
		vtdeptr = ip->idhname;
		settc(18, stccol);
		return;
	}
}

/* 
*/

/*
   =============================================================================
	cupicur() -- instrument definition virtual typewriter -- cursor up
   =============================================================================
*/

void cupicur(void)
{
	register struct instdef *ip;

	ip = &vbufs[curvce];

	switch (idtdat) {

	case 0:
		idtdat = 3;
		vtdeptr = ip->idhcom3;
		settc(21, stccol);
		return;

	case 1:
		idtdat = 0;
		vtdeptr = ip->idhname;
		settc(18, stccol);
		return;

	case 2:
		idtdat = 1;
		vtdeptr = ip->idhcom1;
		settc(19, stccol);
		return;

	case 3:
		idtdat = 2;
		vtdeptr = ip->idhcom2;
		settc(20, stccol);
		return;
	}
}

/* 
*/

/*
   =============================================================================
	edfunc() -- setup to edit a function
   =============================================================================
*/

int16_t edfunc(int16_t n)
{
	register uint16_t cx;
	register struct instdef *ip;

	ip = &vbufs[curvce];

	/* first, put level in selected window */

	cx = exp_c(ID_LVLC);	/* label background = level background */

	vbank(0);
	vbfill4(instob, 128, idbox[n][0], idbox[n][1],
		idbox[n][2], idbox[n][3], cx);

	tsplot4(instob, 64,
		((ip->idhfnc[12].idftmd & I_TM_KEY) ? idbox[n][4] : ID_INST),
		 idbox[n][6], idbox[n][7], idbxlbl[12], 14);

	if (n NE 12)	/* if not editing the level, draw it in the label */
		drawfn(12, 0, ID_CLVL, n);

/* 
*/
	/* next, put the level and selected functions in the level window */

	vbank(0);		/* clear the edit/level  box */
	vbfill4(instob, 128, idbox[12][0], idbox[12][1],
		idbox[12][2], idbox[12][3], cx);

	/* label the function */

	tsplot4(instob, 64,
		((ip->idhfnc[n].idftmd & I_TM_KEY) ? idbox[n][4] : ID_INST),
		idbox[12][6], idbox[12][7], idbxlbl[n], 14);

	/* scale -- x labels */

	tsplot4(instob, 64, TGRID, 14, 0, idhlbl, 14);

	/* scale -- y labels */

	tsplot4(instob, 64, TGRID, 14, 0, "\300", 14);
	tsplot4(instob, 64, TGRID, 12, 0, "\302", 14);
	tsplot4(instob, 64, TGRID, 10, 0, "\304", 14);
	tsplot4(instob, 64, TGRID,  8, 0, "\306", 14);
	tsplot4(instob, 64, TGRID,  6, 0, "\310", 14);
	tsplot4(instob, 64, TGRID,  4, 0, "\312", 14);

	lseg( 7,  56,   7, 196, LGRID);		/* draw the scale */
	lseg( 7, 196, 509, 196, LGRID);

	/* plot functions:  first level, then selected function */

	if (n NE 12)	/* if not editing level, draw it as a reference */
		drawfn(12, 0, ID_CLVL, 12);

	drawfn(n, pntsv, ID_CLIN, 12);

	curfunc = n;		/* make n the current function */

	if (curfunc EQ 4) {

		tsplot4(instob, 64,
			((ip->idhfnc[n].idftmd & I_TM_KEY) ?
				idbox[12][4] : ID_INST),
			idbox[12][6] + 1, idbox[12][7] + 4, "Res", 14);

		rd_ires(12);
	}

	return(TRUE);
}

/* 
*/

/*
   =============================================================================
	showpt() -- show the data about a point
   =============================================================================
*/

void showpt(int16_t q)
{
	register int16_t	ptx, pty, i, j, k;
	register struct instdef *ip;
	int16_t ptc;

	if (q)
		dswin(14);	/* point number */

	dswin(15);		/* time */
	dswin(16);		/* value */
	dswin(17);		/* action */

	ip = &vbufs[curvce];
	j = ip->idhfnc[curfunc].idfpif;
	k = ip->idhfnc[curfunc].idfpt1;

	for (i = 0; i < j; i++) {

		ptx = ttox(timeto(curfunc, i), 12);
		pty = vtoy((ip->idhpnt[k + i].ipval) >> 5, 12);
		ptc = ((ip->idhpnt[k + i].ipvsrc) OR (ip->idhpnt[k + i].ipact) ?
			ID_ACTP : ID_CPNT);

		drawpt(ptx, pty, ptc);
	}

	ptx = ttox(timeto(curfunc, subj), 12);
	pty = vtoy((ip->idhpnt[k + subj].ipval) >> 5, 12);
	drawpt(ptx, pty, ID_SELD);
}

/* 
*/

/*
   =============================================================================
	endityp() -- exit instrument definition virtual typewriter
   =============================================================================
*/

void endityp(void)
{
	idnamsw = FALSE;
	submenu = FALSE;
	idvlblc();
	dswin(19);
	dswin(22);
}

/*
   =============================================================================
	showfn() show the data about a function
   =============================================================================
*/

void showfn(void)
{
	dswin(13);	/* source multiplier */
	showpt(1);	/* point, time, value, action */
}

/*
   =============================================================================
	bx_null() -- null item selection processor
   =============================================================================
*/

int16_t bx_null(void)
{
	return(TRUE);
}

/*
   =============================================================================
	iclrwin() -- clear an instrument editor window
   =============================================================================
*/

void iclrwin(int16_t n)
{
	if (v_regs[5] & 0x0180)
		vbank(0);

	vbfill4(instob, 128, idbox[n][0], idbox[n][1], idbox[n][2], idbox[n][3],
		exp_c(idbox[n][5]));
}

/* 
*/

/*
   =============================================================================
	idfnbox() -- instrument display function box hit processor
   =============================================================================
*/

int16_t idfnbox(int16_t n)
{
	register int16_t col, i, row;
	register struct instdef *ip;
	register int8_t *ivtdptr;

	ip = &vbufs[curvce];

	row = hitcy / 14;
	col = hitcx >> 3;

/* 
*/
	if (hitbox EQ 12) {		/* process a hit in the level window */

		/* handle data entry special case for resonance in filter fn. */

		if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62))
			return(entbh(-1));

		switch (pntsv) {	/* dispatch off of point select state */

		case 0:		/* nothing selected so far:  select a point */

			subj = selpnt();	/* decide on the point */
			pntsel();		/* make it current */
			pntsv = 1;		/* say it's selected */

			edfunc(curfunc);	/* update the display */
			showpt(1);

			/* set cursor to point */

			cxval = ttox(timeto(curfunc, subj), 12);
			cyval = vtoy((pntptr->ipval >> 5), 12);
			arcurs(ID_SELD);
			gcurpos(cxval, cyval);
			break;

		case 1:		/* point was selected:  unselect it */

			pntsv = 0;
			edfunc(curfunc);
			arcurs(ID_NCUR);
			gcurpos(cxval, cyval);
			break;
		}

		return(TRUE);

	} else if (hitbox EQ 18) {		/* configuration */

		if ((row EQ 17) AND (col GE 4) AND (col LE 9)) {

			wcmenu(0);
			return(TRUE);

		} else {

			return(entbh(-1));
		}
/* 
*/
	} else if (hitbox EQ 19) {		/* voice & inst. */

		if ((col GE 26) AND (col LE 29) AND (row EQ 17)) {

			if (idimsw) {	/* menu is up, take it down */

				idimsw = FALSE;

				if (v_regs[5] & 0x0180)
					vbank(0);

				idbord();
				allwins();

			} else {	/* menu is down, put it up */

				idimsw = TRUE;
				itxput = idtxput;

				if (v_regs[5] & 0x0180)
					vbank(0);

				vbfill4(instob, 128, 1, 1, 510, 208,
					exp_c(idbox[19][5]));

				for (i = 13; i LE 18; i++)
					iclrwin(i);

				for (i = 20; i LE 22; i++)
					iclrwin(i);

				showim();
			}

			return(SUCCESS);

		} else {

			return(entbh(-1));	/* do data entry */
		}
/* 
*/
	} else if (hitbox EQ 21) {	/* waveshapes */

		if ((row EQ 17) AND (col GE 48) AND (col LE 54)) {

			wcmenu(1);
			return(TRUE);

		} else {

			return(entbh(-1));
		}

	} else if (hitbox EQ 23) {	/* process a hit in the name window */

		if (idnamsw) {		/* typewriter up - enter data */

			vtyper();
			instmod[curvce] = TRUE;

		} else {		/* put up the typewriter */

			/* set data pointer */

			if (row EQ 18)
				ivtdptr = ip->idhname;
			else if (row EQ 19)
				ivtdptr = ip->idhcom1;
			else if (row EQ 20)
				ivtdptr = ip->idhcom2;
			else
				ivtdptr = ip->idhcom3;

			idtdat = row - 18;

			idvtyp();		/* display typewriter */
			dswin(22);
			idnamsw = TRUE;
			submenu = TRUE;

			vtsetup(instob, vtdisp, 17, ivtdptr, 22, 17,
				advicur, bspicur, cupicur, cdnicur, endityp,
				idbox[19][4], idbox[19][5]);
		}

		return(TRUE);
/* 
*/
	} else if (hitbox < 12) {	/* process a hit in a label window */

		pntsv = 0;			/* unselect previous point */

		arcurs(ID_NCUR);		/* set cursor color */
		gcurpos(cxval, cyval);

		if (n NE curfunc) {		/* new function selected */

			if (curfunc NE 12)
				dswin(curfunc);	/* stow old function */

			edfunc(n);		/* select new function */

		} else {			/* reselect level */

			dswin(curfunc);		/* stow old function */
			edfunc(12);		/* select level */
		}

		subj = 0;			/* reset function selection */
		pntsel();

		showfn();			/* update display */

		setgc(ICURX, ICURY);		/* put cursor in center */
		return(TRUE);
	}

	return(FALSE);
}