/*
   =============================================================================
	ptdisp.c -- MIDAS-VII Patch editor display functions
	Version 32 -- 1989-11-16 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "all.h"

extern	int8_t	*LineBak(void);
extern	int8_t	*LineFwd(void);

extern	int8_t	*(*BakLine)(void);
extern	int8_t	*(*FwdLine)(void);

extern	uint16_t	pt_alc(void);

extern	void SetDTop(int16_t row, int16_t scan);
extern	void UpdVid(int16_t row, int16_t col, int8_t *str, uint16_t atr);
extern	void aftercm(void);
extern	void ctcpos(int16_t row, int16_t col);
extern	void dptw(void);
extern	void dswap(void);
extern	void voidpb(void);
extern	void vsndpal(int16_t pp[16][3]);
extern	void vsplot4(uint16_t *obase, uint16_t nw, uint16_t fg, uint16_t row, uint16_t col, int8_t *str, uint16_t pitch, uint16_t ht, int16_t cgtab[][256]);
extern	void vvputsv(uint16_t *obase, uint16_t nw, uint16_t fg, uint16_t bg, uint16_t row, uint16_t col, int8_t *str, uint16_t pitch, uint16_t ht, int16_t cgtab[][256]);

extern	uint16_t	*obj8, *obj9, *obj10, *obj11;
extern	uint16_t	*LineBuf, *ScObAdr, *OldLine;
extern	uint16_t	LineAtr;

extern	int16_t	CurLine, CurScan;
extern	int16_t	ScrlObj, SmScNsl;
extern	int16_t	PdScDnF, PdScUpF;
extern	int16_t	ctcsw, submenu;
extern	int16_t	cxval;

extern	int16_t	cg3[][256];

uint16_t	seqflag[16];		/* sequence flags */
uint16_t	seqline[16];		/* current sequencer line */
uint16_t	seqstim[16];		/* sequence stimulus */
uint16_t	seqtime[16];		/* sequence timers */
uint16_t	sregval[16];		/* register values */
uint16_t	trstate[16];		/* trigger states */

struct seqent	seqtab[NSLINES];	/* sequence table */

/* 
*/

int8_t	pthead[] =

	"\260 Definer p ch Stmulus p ch Destnation \275\276 Datum \260 No Seq Rg T \260";

int8_t	*ptmcon[] = {

	"\260 Key  SeqLin  Instr  Index  Level  V Out  Srce  PchWh  Pitch \260",
	"\260 Rel  SeqCtl  Osc    Freq   Loctn  Depth  Mult  ModWh  Freq  \260",
	"\260 Trg  Tuning  WaveA  Pitch  Filtr  Rate   Time  Breth  KeyVl \260",
	"\260 Pls  RegSet  WaveB  Intvl  Fil Q  Inten  Valu  Pedal  KeyPr \260",
	"\260 LED  RegAdd  Confg  Ratio  Dynmc  Aux    Func  GPC/V  Randm \260"
};

int16_t	ptabpal[16][3] = {		/* patch display palette */

	{0, 0, 0},	/*  0 - black */
	{2, 3, 3},	/*  1 - white */
	{0, 0, 1},	/*  2 - dark blue #1 */
	{2, 0, 2},	/*  3 - dark violet */
	{0, 0, 3},	/*  4 - dark blue #2 */
	{3, 0, 0},	/*  5 - red */
	{3, 3, 0},	/*  6 - yellow */
	{1, 2, 0},	/*  7 - dark green */
	{0, 3, 3},	/*  8 - light blue */
	{2, 2, 2},	/*  9 - gray */
	{0, 3, 0},	/* 10 - light green */
	{3, 1, 2},	/* 11 - light violet */
	{0, 2, 3},	/* 12 - medium blue */
	{2, 0, 0},	/* 13 - dark red */
	{1, 1, 2},	/* 14 - electric purple */
	{3, 3, 3}	/* 15 - bright white */
};

/* 
*/

/*
   =============================================================================
	ptwin() -- fill in a patch table display window
   =============================================================================
*/

void ptwin(int16_t n)
{
	register int16_t i, j;
	int16_t atrbuf[64];
	int8_t  linbuf[66];

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

	switch (n) {

	case 0:		/* headings and box outline */

		/* row 0 */

		memset(linbuf, '\261', 63);
		linbuf[0]  = '\272';
		linbuf[48] = '\267';
		linbuf[62] = '\273';
		linbuf[63] = '\0';

		memsetw(atrbuf, PTBATR, 63);
		atrbuf[63] = 0x0000;

		vputsa(obj8, 0, 0, linbuf, atrbuf);

		/* row 1 */

		memsetw(atrbuf, PTHATR+0x0100, 64);
		atrbuf[0]  = PTBATR;
		atrbuf[1]  = PTHATR;
		atrbuf[14] = PTHATR;
		atrbuf[27] = PTHATR;
		atrbuf[41] = PTHATR;
		atrbuf[47] = PTHATR;
		atrbuf[48] = PTBATR;
		atrbuf[49] = PTHATR;
		atrbuf[52] = PTHATR;
		atrbuf[56] = PTHATR;
		atrbuf[59] = PTHATR;
		atrbuf[61] = PTHATR;
		atrbuf[62] = PTBATR;
		atrbuf[63] = 0x0000;

		vputsa(obj8, 1,  0, pthead, atrbuf);
/* 
*/
		/* row 18 */

		memset(linbuf, '\261', 63);
		linbuf[0]  = '\266';
		linbuf[48] = '\265';
		linbuf[62] = '\264';
		linbuf[63] = '\0';

		memsetw(atrbuf, PTBATR, 63);
		atrbuf[63] = 0x0000;

		vputsa(obj11, 0, 0, linbuf, atrbuf);

		/* row 24 */

		memset(linbuf, '\261', 63);
		linbuf[0]  = '\271';
		linbuf[62] = '\270';
		linbuf[63] = '\0';

		memsetw(atrbuf, PTBATR, 63);
		atrbuf[63] = 0x0000;

		vputsa(obj11, 6, 0, linbuf, atrbuf);

		break;
/* 
*/
	case 1:		/* patches */

		SetDTop(0, 13);

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

			for (j = 0; j < 47; j++)
				linbuf[j] = ' ';

			linbuf[47] = '\0';

			UpdVid(i, 0, "\260", PTBATR);

			UpdVid(i, 1, linbuf,
				(i EQ 7) ? PTEATR : PTPATR);
		}

		dptw();

		break;
/* 
*/
	case 2:		/* sequence status */

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

			sprintf(linbuf, "    %03d %02d %d ",
				seqline[i], sregval[i], trstate[i]);

			vvputsv(obj10, 16, PDBORFG, PDSEQBG,
				i, 0, "\260", 14, 14, cg3);

			vvputsv(obj10, 16, PDSEQFG, PDSEQBG,
				i, 1, linbuf, 14, 14, cg3);

			vvputsv(obj10, 16, PDBORFG, PDSEQBG,
				i, 14, "\260", 14, 14, cg3);

			if (i EQ 7) {

				if (48 EQ XTOC(cxval)) {

					vsplot4(obj10, 16, PDPTRFG,
						i, 0, "\277", 14, 14, cg3);

				} else {

					vsplot4(obj10, 16, PDPTRFG,
						i, 0, "\274", 14, 14, cg3);
				}
			}

			sprintf(linbuf, "%02d", i + 1);

			vvputsv(obj10, 16,
				(seqflag[i] & SQF_RUN) ? PDSEQRN : PDSEQFG, PDSEQBG,
				i, 2, linbuf, 14, 14, cg3);
		}

		break;

	case 3:		/* menu */

		memsetw(atrbuf, PTMATR, 64);
		atrbuf[0]  = PTBATR;
		atrbuf[62] = PTBATR;
		atrbuf[63] = 0x0000;

		for (i = 0; i < 5; i++)
			vputsa(obj11, (i + 1), 0, ptmcon[i], atrbuf);

		break;
	}
}

/* 
*/

/*
   =============================================================================
	ptwins() -- draw the patch table display
   =============================================================================
*/

void ptwins(void)
{
	register int16_t i;

	for (i = 0; i < 4; i++)
		ptwin(i);
}

/*
   =============================================================================
	ptdisp() -- setup the patch table display
   =============================================================================
*/

void ptdisp(void)
{
	dswap();				/* clear the video display */

	BakLine = LineBak;
	FwdLine = LineFwd;

	/* setup object pointers */

	obj8  = &v_score[OB08LOC];		/*  8 - headings */
	obj9  = &v_score[OB09LOC];		/*  9 - patches */
	obj10 = &v_score[OB10LOC];		/* 10 - status */
	obj11 = &v_score[OB11LOC];		/* 11 - menu */

	ScrlObj = 9;
	ScObAdr = obj9;
	LineBuf = obj9;
	OldLine = (uint16_t *)NULL;
	LineAtr = PTPATR;

	CurLine = 0;
	CurScan = 13;

	PdScDnF = FALSE;
	PdScUpF = FALSE;

	/* ---------------- initialize object table -------------------- */
	/*     obj,  typ, bnk,  base, xpix, ypix,  x0,  y0,   flags, pri */

	SetObj(  8,    1,   0,  obj8,  512,   28,   0,   0, PDFL_08, -1);
	SetObj(  9,    1,   0,  obj9,  384,  224,   0,  28, PDFL_09, -1);
	SetObj( 10,    0,   0, obj10,  128,  224, 384,  28, PDFL_10, -1);
	SetObj( 11,    1,   0, obj11,  512,   98,   0, 252, PDFL_11, -1);

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

	memsetw(v_score, 0, 32767);		/* clear display objects */
	memsetw(v_score+32767L, 0, 24577);

	voidpb();				/* void the patch buffer */
	ptwins();				/* fill up the windows */

/* 
*/
	/* display some objects */

	SetPri( 8,  8);				/* headings */
	SetPri( 9,  9);				/* patches */
	SetPri(10,  10);			/* sequence status */
	SetPri(11,  11);			/* menu */

	if (v_regs[5] & 0x0180)			/* select bank 0 */
		vbank(0);

	memcpyw(v_cgtab, cg3, 3584);		/* setup character generator */
	v_regs[1] = (v_regs[1] & 0x0FFF) | 0xE000;

	/* fix the initial scan line specs in the object descriptor table */

	v_odtab[ 8][0] = (v_odtab[ 8][0] & 0x0FFF) | 0xD000;
	v_odtab[ 9][0] = (v_odtab[ 9][0] & 0x0FFF) | 0xD000;

	v_odtab[11][0] = (v_odtab[11][0] & 0x0FFF) | 0xD000;

	submenu = FALSE;

	ctcsw = TRUE;				/* enable cursor */
	ctcpos(DATAROW, 2);				/* set initial cursor */
	aftercm();				/* set initial submenu */

	vsndpal(ptabpal);			/* set the palette */
}